سایفر روبات (Cypher Robot) - صفحه 5 - Artificial Intelligence

**Siavash** · ۰۲-۱۹-۱۳۸۷, ۱۰:۵۹ بعد از ظهر

نقل قول:

سلام سیاوش جان واقعا عالی بود فقط من تو قسمت های Make add user packet و Make packet for getting invisible مشکل دارم وقتی میخوام کامپایل کنم اررور میده!

اونها کامنت هستند و باید سبز رنگ باشند. احتمالا ' اولش رو حذف کردی.
این بخش ها یکی برای اینه که روبات رو اینویزیبل کنید. و اون یکی برای اینه که یک کاربر رو به لیستتون اضافه کنید. باید پکت ساخته شدرو به وسیله ی سوکت سند کنید. مثل پکت فرستادن پی ام.

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

Ashkan_yazdgroup · ۰۲-۱۹-۱۳۸۷, ۱۱:۲۴ بعد از ظهر

سلام سياوش جان من كه از اين بحث ها زياد سر در نياوردم اما باز دنبال ميكنم

اين لينكي كه ميزارمو نگاه كن يه سري كد سورس روبوت گذاشته اگه شد يه توضيحي راجع بهشون بده

visual basic, vb, active server pages (ASP),java, javscript,c, c++, c__ , vbscript,active server pages, ASP, vbscript,SQL, database, informix, oracle, SQL Server,Perl, CGI,Delphi, PHP,Free source code for the taking. Over five million lines of progra

**Siavash** · ۰۲-۲۰-۱۳۸۷, ۰۲:۰۷ قبل از ظهر

این سایت منبع خیلی خوبی برای زبان برنامه نویسی Vb هست اینجا نمونه های مختلف برای لاگین کردن داخل یاهو شاید پیدا بشه اما فکر نکنم متود لاگین این ها هنوز توسط یاهو! پشتیبانی بشه.
شما کافیه سی دی Vb رو تهیه کنید و آخرین ضمیمه هم دریافت کنید و اون رو با Vb باز کنید در انتها هم دکمه ی مثلث رو بزنید. به همین سادگی روبات شما راه می افته! البته در صورتی که سویچ ها و امکانات جدید تر بخواین به اون اضافه کنید باید کمی با Vb آشنا باشید.

BeHNaM · ۰۲-۲۳-۱۳۸۷, ۰۲:۰۲ بعد از ظهر

سیاوش جان میشه یه توضیح بدی که چیکار کنیم که روبات به صورت تصادفی یا همون Random بتونه جواب بده !
برای مثال یه کلمه داخل دیتابیس چند بار وجود داشته باشه با جوابهای متفاوت و هربار یکی از جوابها نمایش داده بشه !
مرسی

soroosh-ab · ۰۲-۲۳-۱۳۸۷, ۰۶:۴۵ بعد از ظهر

سلام . بازم اومدم با مشکلات جدید !

این دفعه مشکلم اینه که وقتی ادد میکنن روبات رو , روبات اددشون نمیکنه و باید حتمآ بهش پی ام بدن !
مشکل بعدی اینه که اگه یه دستور توی اسکریپت باشه که اگه پی ام مثل example بود , یه جوابی بده و Status رو عوض کنه و اگه Example توی دیتا بیس نباشه میگه مثلآ متوجه نشدم و ابن دستورم انجام میده ( یعنی هم دیتابیس و هم اسکرپت رو انجام میده ! ) باید یه اولویت باشه که اول از اسکریپت باشه بعد دیتابیس و بعد اگه هر دو تا نبود اونوقت بگه متوجه نشدم و Else آخر رو انجام بده !

این قضیه ربط به Flag داشت توی رویا که اگه True بود از دیتابیس میفرستاد و اگه False بود از اسکریپت استفاده میکرد و به این شکل بود :

نقل قول:

if Flag then begin
For i:=1 to VarsRoya.ListParam.Count-1 do
Req:= Req+' '+VarsRoya.ListParam.Strings[i] ;
Req:=Cut(Req,True);
// ADOQuery1.SQL.Text:='Select * From Message Where ( Requst ='''+Req+''' )';
ADOQuery1.SQL.Text:='Select * From Message Where Requst LIKE ''%'+Req+'%''';
ADOQuery1.Open;
if not ADOQuery1.IsEmpty then begin
i:=Random (ADOQuery1.RecordCount)+1;
ADOQuery1.RecNo:=i;
VarsRoYa.SendStr :='<FADE #333333,#000000,#ff0000><font size="9" face="arial">[System]: '+
ADOQuery1.FieldByName('Response').AsString+'

.</Fade></font>';
end;
ADOQuery1.close;
end;
ADS_pro;
end;
end;

__________________text________________________

if Req ='f' then begin
varsroya.sendstr := '<black><font face="Tahoma"><B> B-) alefba migi? khodam baladam baba </fade>' ;
Flag:=False;

شرمنده اگه به هم ریختس به خاطر فروم هست توی فایل تکست Paste کنید .

تشکر .

Ashkan_yazdgroup · ۰۲-۳۱-۱۳۸۷, ۱۲:۵۲ قبل از ظهر

با سلام ميشه لطف كنيد لينك دانلود برنامه هايي كه VB و java لوگين ميشن رو بزاريد تا دانلود كنم
با تشكر

Pilevar · ۰۳-۴-۱۳۸۷, ۱۰:۲۱ قبل از ظهر

دوستان DLL رو توی VB چطور نصب میکردیم؟؟؟؟

lol
یادم رفته

mjanbazi · ۰۶-۲۱-۱۳۸۷, ۰۴:۱۳ قبل از ظهر

سلام
سیاوش
این سورس برنامه تو خطای 11004 می ده متن خطاش اینه
error11004 ,valid name no data record of requested time
چیکار کنم درست شه دی ال ال تو مسیر خود فایل هست

kamal_behtarin · ۰۶-۲۲-۱۳۸۷, ۰۱:۱۸ بعد از ظهر

salam agha man bahash harf mizanam nemifahme nemidoonam chera faghat ashkale yahoo ro dark mikone

r-co · ۰۶-۳۱-۱۳۸۷, ۰۱:۱۹ بعد از ظهر

For i = 1 To Len(questionasked)
If Mid(questionasked, i, 1) = "" Then GoTo finished
If Mid(questionasked, i, 1) = Mid(questionasked, i + 1, 1) Then
questionasked = Replace(questionasked, Mid(questionasked, i, 1) & Mid(questionasked, i, 1), Mid(questionasked, i, 1))
i = i - 1
End If

Next i