واقعآ ممنون بخاطر کمک هایی که می کنی ...........
بیشتر مشکلاتم حل شد !
اما هنوز نمی دونم چطوری به VB بگم که مسیج هایی که میاد رو با مسیج هایی که توی Table مسیج در دیتا بیس هست مقایسه کنه و اگه وجود داشت که از ردیف Answer , جواب پی ام رو ارسال کنه و اگه وجود نداشت یه پی ام مخصوص ارسال کنه
و یه مشکل دیگه که نمیتونم یه کدی بنویسم که مثلآ اگه پی ام به صورت :
دریافت کرد به این معنی هست که بعد از فاصله اول آیدی یه نفره و بعد از فاصله دوم متن پی ام که باید به اون آیدی بده !
نمونه ی این کد در دلفی و رویا به صورت :
كد:
if Req = '/pm' then begin
VarsRoYa.SendStr:='<#459cfe><font face="tahoma"><b>/pm "ID Doostet" "Peyghamet"'+
#13+#10'Mesal :<#459cfe> <font face="tahoma"><b>/pm "robot_download" "Salam"' ;
if VarsRoya.ListParam.Count<3 then exit;
req:=cut(VarsRoya.UserPM[1],False);
VarsRoYa.UserPM:=Cut(VarsRoya.ListParam.Strings[1],False);
Res:=Cut(VarsRoya.ListParam.Strings[2],False);
varsRoYa.sendstr:=format('<font size="12" face="tahoma">:-$salam %s joon Yeki Behem Goft Behet Begam : '+res+' Goft IDsho Behet Nagam:-$',[VarsRoYa.UserPM]);
end;