Artificial Intelligence - هوش مصنوعی - سایفر روبات (Cypher Robot)

Artificial Intelligence - هوش مصنوعی (http://artificial.ir/intelligence/)

- پروژه های هوش مصنوعی در ایران (http://artificial.ir/intelligence/forum42.html)

- - سایفر روبات (Cypher Robot) (http://artificial.ir/intelligence/thread2.html)

نقل قول:

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

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

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

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

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

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

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

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

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

این دفعه مشکلم اینه که وقتی ادد میکنن روبات رو , روبات اددشون نمیکنه و باید حتمآ بهش پی ام بدن !
مشکل بعدی اینه که اگه یه دستور توی اسکریپت باشه که اگه پی ام مثل 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+' :D .</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 کنید .

تشکر .

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

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

lol
یادم رفته :D

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

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

در كد بايين ايرادي هست مي تونيد رفع كنيد

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