شروع پروژه BSRobo ربات پرقدرت یاهو مسنجر

[_behnam_]

سلام بچه ها شرمنده چند روز نتونستم بیام ببشخید (ببخشید)

با سلام خدمت دوستان گرامی ... من برای رباتم دستور زیر رو زدم برای پی ام دادن به کسانی که انلاین هستن

Private Sub YMSG1_IncomingAppear(ByVal User As String, ByVal Status As YMSGMode_V2.StatusYID, Messege As String)
If Status = Available Then
Call YMSG1.PckSendMsg(User, Frm_Setting.Text1.Text + "salam")
End If
End Sub

اما متاسفانه هر ایدی ان میشه به جای یکبار ارسال پیام 3 بار و گاهی هم دوبار پیام رو براش ارسال میکنه ... مشکلش چیه دوستان؟

مشکل از یاهو وست که 2 بار میفرسته
تو کامپوننت هم 2 بار دریافت میشه
شما اگه پکت رو از قسمت YMSG1_IncomingYDATA دریافت کنید و عملیات رو انجام بدید فکر کنم بهتر باشه

If User <> Online Then
Online = User
If Status = Available Then
YMSG1.PckSendMsg User, "Peygham"
End If
End If
If Status = Offline Then
If User = Online Then
Online = ""
End If

[mahdi.int]

سلام

دوستان
اگر ممکنه این سورس رو به یه نرم افزار تبدیل کنید.
تا بتونیم استفاده کنیم.

ممنون

[behzad_vb.net]

سلام دوستان من هنوز مشکل دارم داخل دریافت پی ام پی ام دریافت نمیکنه مشکل چیه

[behzad_vb.net]

دستان چرا جواب نمیدید همه رفتید پی ام من ارسال نمیشه از اول تاپیکها ربات را دنبال کردم منم میخوام روی این پروژه کار کنم ولی پی ام نمیاد فقط ارسال میشه کمک کنید خواهشن

[_behnam_]

اگه ربات پی ام دریافت نکنه احتمال 2 تا مشکل هست
1. اگه با GPRS لاگین میشید خوب دیتاهای دریافتی و ارسالی GPRS با آیپی های غیر GPRS تفاوت داره که پی ام شما به آیدی های که تو لیستشون نیستید نمیرسه
2. چون از کامپوننت استفاده میشه این کامپوننت یه مشکل اساسی داره که هر آیدی حرف آخرش عدد 4 باشه رو کامل نشون نمیده واسه همین پی ام ها ردو بدل نمیشه
'''''''''''''''''''''
به امید خدا اگه وقت کردم ورژن 2 BSrobo رو میزارم که با وینسوک لاگین میشه و خیلی امکاناتش هم بیشتر هستش
خوشحال میشم نظر بدید

[behzad_vb.net]

ای دی که به من پی ام میده اینه
behzad_games_2009
و پی امش نمیاد
و اینکه من با وایمکس به اینترنت متصل میشم
کمککنید خواهشن ایا باید با *** وصل شم

[_behnam_]

تا حالا با وایمکس کار نکردم با *** کانکت بشید شاید مشکل حل بشه

[behzad_vb.net]

خب یک سری راه کار هست با مودم اون راه را کسی میدونه

[behzad_vb.net]

ببخشید اشتباه دادم پست قبلی را راهای با winsock چطوری کسی میدونه

[_behnam_]

behzad_vb.net اگه میشه وقتی پستی رو به اشتباه وارد کردید همونو اصلاح کنید نه یک پست دیگه ارسال کنید که تاپیک شلوغ و درهم برهم نشه
وینسوک هم یک کامپوننت تقریبا قوی هستش واسه ارتباط با شبکه سایتها و سرور ها که من توی همین سایت آموزش دادم چطور به سرور یتهو متصل بشید

[behzad_vb.net]

بخدا من سرچ میکنم ولی سرچ سایت اصلا کلمه کلیدی یاهو و ربات یاهو و... را مینویسه جستوجو یافت نشد

[farshid_vb]

دوستان ممنون ولی از قدیم گفتن : گوشت رو دست گربه نسپارین

من با اجازه دوستان می خوام این برنامه توپپپپپپپپس شما رو به یه یاهو کرکر تبدیل کنم
یعنی ببینم میشه باهاش بگرده و پسورد هک کنه ؟


راستی چند با میشه با این برنامه پسورد غلط به یک آی دی داد ؟

[ostovarit]

دوستان ممنون ولی از قدیم گفتن : گوشت رو دست گربه نسپارین

من با اجازه دوستان می خوام این برنامه توپپپپپپپپس شما رو به یه یاهو کرکر تبدیل کنم
یعنی ببینم میشه باهاش بگرده و پسورد هک کنه ؟


راستی چند با میشه با این برنامه پسورد غلط به یک آی دی داد ؟

- طبق قوانین فروم این جور مباحث خلافه!
- این کار رو هم که می گی نمیشه :
* بعد از چند بار پس غلط دادن یک کپچا نیاز هست برای لاگین
* بعد از چند بار پس غلط زدن ایدی بلاک میشه
* بعد از چند بار فرستادن پکت های پشت سر هم آی پی بلاک میشه
به امید فعالیت مفید شما در این فروم

[Mohamad26]

سلام .
دیدم که همه دنبال یه ربات یاهو میگردن گفتم استارت شروع BSRobo رو بزنم.
ابن ربات که تازه خودم نوشتم با کاموننت YMSGpro لاگین میشه
امکاناتش تغریبا خوبه اما شک ندارم که بهتر میشه
BSRobo نرم افزاریه شبیه به cypher که آقای محمودیان 2 سال پیش تو سایتش قرار داد
منم فعلا روباتم با cypher لاگین میشه اما کم کم میخوام رباتمو با BSrobo لاگین کنم
دوستان این پروژه اپن سورسه . دوستان به هر نحوه میتونید واسه خودتون ادیت کنید و ارتغاع بدین اما فروشش کار درستی نیست و من راضی نیستم چون خودم به صورت رایگان در اختیارتون گذاشتم.


امکانات : BSRobo V 1.0.0
تغییر استاتوس دستی
دارای بانک اطلاعات اکسس
تغییر رنگ و فونت و سایز پی ام های ارسالی ربات
ارسال پیام از طرف ربات به دیگران
یاد دادن کلمه جدید به ربات توسط کسانی که در حال چت هستن
معرفی ربات به دوستان با دستور budy/
تبدیل عدد به حروف با دستور adad/
به دست آوردن آواتار آیدی دیگران با دستور avt/
دستورات gf/ , /bf
نوشتن متن دلخواه در استاتوس ربات توسط کسانی که با آن در حال چت هستن status/
دستورات time/ , /date
ارسال پی ام به صورت راندوم با <or>
ارسال چند خط پی ام با <enter>
دسترسی به لیست ادلیست های ربات
و .......

pass : barnamenevis.org
با تشکر بهنام اسلامی راد

سلام
من تازه واردم
ببخشيد ميشه بگين چرا اين سورس و برنامه ي exe رو اسكن ميكنيم همه آنتي ويروسها گير ميدن بهش.
همشون ميگن تروجان داره.

اينم لينك اسكن :
http://www.virustotal.com/file-scan/...0e9-1313087838

???

[Sina_Od]

تروجان نداره. آنتی ویروس این ها رو تروجان میشناسه چون به ارسال اطّلاعات مشغول میشن از لحاظ امنیتی اگه به سورس مطمئن هستید مشکلی نیست.

[puriyahdl]

سلام
استادای عزیز من هر کاری کردم نتونستم به یک چت روم وصل شم .
میشه برام یه نمونه بزارید ؟
مرسی

[_behnam_]

سرور یاهو عوض شده این کامپوننت دیگه وارد روم نمیشه

[Veteran]

2 صفحه قبل طریقه گرفتن لینک کپچا رو گفتین

WebBrowser.Navigate "http://captcha.chat.yahoo.com/go/captchat/?img=" & PictureLink & "&.intl=us&.lang=en-US"

اما من اینو میزنم ارور میدده از ymsgpro هم استفاده میکنم

[_behnam_]

باید Webbroser به فرم اضافه کنید

[Veteran]

HTTP/1.1 412 Precondition Failed

[MAHDIhp_devsq]

با سلام به همه دوستان
سوالر دارم :
می خواستم بپرسم چطور میشه فهمید چه آی دی آن لاینه یا آف لابنه با تشکر
جیمیلم:Mahdihp.devsc@gmail.com

[امید خطیبی]

با سلام خدمت دوستان
یک سوال داشتم ما چگونه می توانیم کاری کنیم که فرم این ربات همانند یاهو باشه و زمانی که فردی پیغام را فرستاد پیغام این فرد در فرم دیگر و در Rich_textbox به ما نمایش دهد
و در گوشه همان فرم یک چک باکس داشته باشیم که فرد دیگر با ربات در حال گفتگو نباشه و حساب های دیگر اگر پیغامی فرستادند بتوانند با ربات صحبت کنند به صورت تک نفری با یک عضو صحبت کنیم.
و یک موضوع دیگر این هست که یک فرم برای لاگین داشته باشیم و فرم دیگر برای تنظیمات یاهو و ای دی.
اینجوری بگم که برنامه یاهو مسنجری شبی سازی شده در کنار یک ربات یاهو و دوستان این برنامه را اگر کسی می تواند با پاکت های یاهو بسازه بهتر میشه و زمانی که سرورهای یاهو چنج میشه اون ها را هم بتوان دستی تغییر داد و زمانی که تغییر داده شد و به سرور لاگین شد سرور در لیست سرور ها ذخیره شود.
و قابلیت اپدیت داشته باشه.
این برنامه حجمش بالا میره ولی یک برنامه درجه یک میشه که همه هم می توانند از این برنامه استفاده کنند و هم اگر فکری به ذهنشان رسید و برنامه شخصی شد کد تغییر یافته را بگذارند اینجا تا همه استفاده کنند البته این رو بگویم که همه باید تلاش کنند نه این که یک نفر برنامه بنویسه باقی افراد کد را بردارند و تغییری داخل این برنامه ندهند.

[LEEEEE]

kasi file exe dare be man bede ke robo betone link bede?
age dare in idmo add kone
mehdi_naghavi1@yahoo.com

[kenman]

با سلام خدمت دوستان عزیز من می خوام اد لیست های آیدی که باهاش آنلاین شدم
بره توی یک لیست باکس باید چیکار کنم؟

y!id : loverajabloo
ممنون میشم منو کمک کنید

[MAHDIhp_devsq]

با سلام به آقای بهنام جان خسته نباشی بنده یه سوالی درمورد اینکه چطور میشه با این کامپوننت یاهو YMSGPro مال آقای کرزی فایل را فرستاد به طرف مقابل و اینکه چطور میشه فهمید آی دی های ادلیست مون آن لاین یا آفلاین هستند با تشکر لطفا راهنمایی کنید.

[ho3ein.3ven]

Private Sub YMSG1_IncomingAddList(ByVal User As String, ByVal GroupName As String)
If GroupName <> "" Then
Frm_main.ADDlist.AddItem "===================="
Frm_main.ADDlist.AddItem "Group: " & GroupName
Frm_main.ADDlist.AddItem "--------------------"
Else
Frm_main.ADDlist.AddItem User
End If
End Sub
موفق باشید

[_behnam_]

با سلام خدمت دوستان عزیز من می خوام اد لیست های آیدی که باهاش آنلاین شدم
بره توی یک لیست باکس باید چیکار کنم؟

y!id : loverajabloo
ممنون میشم منو کمک کنید

Private Sub YMSG1_IncomingAddList(ByVal User As String, ByVal GroupName As String)
If GroupName <> "" Then List1.AddItem "++++++" & GroupName & "++++++"
If User <> "" Then List1.AddItem User
End Sub

[_behnam_]

با سلام به آقای بهنام جان خسته نباشی بنده یه سوالی درمورد اینکه چطور میشه با این کامپوننت یاهو YMSGPro مال آقای کرزی فایل را فرستاد به طرف مقابل و اینکه چطور میشه فهمید آی دی های ادلیست مون آن لاین یا آفلاین هستند با تشکر لطفا راهنمایی کنید.

YMSG1.PckSendFile "TOUSER","C:\1.jpg"

به جای TOUSER آیدی طرف مقابل رو بنویسید

[Tarragon]

سلام من از این نرم افزار هیچی سر در نمی یارم می شه بگید چطوری به exe تبدیلش کنم؟

[andres6819]

HTTP/1.1 412 Precondition Failed

این مشکل چجوری حل میشه؟

[armini]

Private Sub YMSG1_IncomingAddList(ByVal User As String, ByVal GroupName As String)
If GroupName <> "" Then List1.AddItem "++++++" & GroupName & "++++++"
If User <> "" Then List1.AddItem User
End Sub

با سلام خدمت همه دوستان و عرض خسته نباشید خدمت داداش گلمون آقا بهنام
من یه سوال داشتم ،این کدی که واسه نشون دادن ادلیستا مینویسیم باید جای خاصی اونو فراخوانی کنیم یا اینکه خودبخود فراخوانی میشه؟؟؟چون من خودم اینو تو برنامه گذاشتم آیدیم درست لاگین شد ولی ادلیستام نیومدن،برنامه رو قدم به قدم که اجراش کردم دیدم این کد اصلا اجرا نمیشه،کسی میدونه مشکل از کجاست؟؟؟؟؟؟

[mahan.y2012]

سلام با تشکر
هر چی ID رو وارد میکنم اصلا online نمیشه
چرا؟

[ho3ein.3ven]

با سلام خدمت همه دوستان و عرض خسته نباشید خدمت داداش گلمون آقا بهنام
من یه سوال داشتم ،این کدی که واسه نشون دادن ادلیستا مینویسیم باید جای خاصی اونو فراخوانی کنیم یا اینکه خودبخود فراخوانی میشه؟؟؟چون من خودم اینو تو برنامه گذاشتم آیدیم درست لاگین شد ولی ادلیستام نیومدن،برنامه رو قدم به قدم که اجراش کردم دیدم این کد اصلا اجرا نمیشه،کسی میدونه مشکل از کجاست؟؟؟؟؟؟

سلام باید حتما در رویداد incomingaddlist باشه .

[ho3ein.3ven]

با سلام به همه دوستان
سوالر دارم :
می خواستم بپرسم چطور میشه فهمید چه آی دی آن لاینه یا آف لابنه با تشکر
جیمیلم:Mahdihp.devsc@gmail.com

سلاو با کد های زیر :
Sourc = frmMain.Inet1.OpenURL("http://opi.yahoo.com/online?u=" & Ids & "&m=j")
If InStr(Sourc, "NOT ONLINE") Then
Online = Ids & " Is <black> Offline</black>"
Else
Online = Ids & " Is <blue> Online</blue>"
End If

[l3aran]

کسی میتونه سورس کنفرانس و لیست کسانی که با ربات در حال چت هستند مثل
chater/
active/
اینا رو اگر داره بده من ؟

[hd2010hd]

سلام .
دیدم که همه دنبال یه ربات یاهو میگردن گفتم استارت شروع BSRobo رو بزنم.
ابن ربات که تازه خودم نوشتم با کاموننت YMSGpro لاگین میشه
امکاناتش تغریبا خوبه اما شک ندارم که بهتر میشه
BSRobo نرم افزاریه شبیه به smclient که آقای محمودیان 2 سال پیش تو سایتش قرار داد
دوستان این پروژه اپن سورسه . دوستان به هر نحوه میتونید واسه خودتون ادیت کنید و ارتغاع بدین اما فروشش کار درستی نیست و من راضی نیستم چون خودم به صورت رایگان در اختیارتون گذاشتم.


امکانات : BSRobo V 1.0.0
تغییر استاتوس دستی
دارای بانک اطلاعات اکسس
تغییر رنگ و فونت و سایز پی ام های ارسالی ربات
ارسال پیام از طرف ربات به دیگران
یاد دادن کلمه جدید به ربات توسط کسانی که در حال چت هستن
معرفی ربات به دوستان با دستور budy/
تبدیل عدد به حروف با دستور adad/
به دست آوردن آواتار آیدی دیگران با دستور avt/
دستورات gf/ , /bf
نوشتن متن دلخواه در استاتوس ربات توسط کسانی که با آن در حال چت هستن status/
دستورات time/ , /date
ارسال پی ام به صورت راندوم با <or>
ارسال چند خط پی ام با <enter>
دسترسی به لیست ادلیست های ربات
و .......

pass : barnamenevis.org
با تشکر بهنام اسلامی راد

سلام دوست عزیز توی وی بی من از ocx ایراد میگیره و نمیذاره فراخوانیش کنم اخه مشکل چیه؟؟؟؟

[minii_hack]

من یه سوال دارم شما برای ارسال جواب در سورس اصلی از Respon استفاده کردین می خواستم بدونم این Respon چیه از کجا امده!!
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
من با دستور

all YMSG1.PckSendMsg(touser, textto)

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

[hamidmatris]

سلام به دوستان عزیز.اگه میشه قسمت های این روبو رو توضیح بدید.مثلا قسمت login چطوری به سرور وصل میشه یا قسمتی که /help میزنی از کجا دستور رو میگیره.و اگه بخوایم دستور جدیدی به روبو بدیم باید به کجا اضافه کنیم