طريقه ساختن يك روبات براي يا هو با V‌‌B

[ardavan]

طريقه دريافت PM مشكل دارم
اگه كسي مي دونه يكم توضيح بده
مرسي

[amirjan]

آقا ببين اين به دردت ميخوره --> http://www.iranvig.com/modules.php?name=...e&sid=1134

[ardavan]

ولي مشكلم اين نيست
مشكلم اينه كه وقتي كسي PM مي ده براي دي كد كردن و انيكه چه پمي داده ؟
اي پي اي بقيه اش رديف فقط تشخيص پمي كه داده مشكل دارم
مرسي

[amirjan]

ولي مشكلم اين نيست
مشكلم اينه كه وقتي كسي PM مي ده براي دي كد كردن و انيكه چه پمي داده ؟
اي پي اي بقيه اش رديف فقط تشخيص پمي كه داده مشكل دارم
مرسي

آهان ! اين كه كاري نداره ! (در صورتي كه API و چيزاي ديگه رديف باشه) ... وقتي كه يكي بهت پي ام ميده ، اين رشته رو دريافت مي كني :

کد:

YMSG     H   
›–£5À€[YOUR ID]À€4À€[HIS\HER ID]À€97À€1À€14À€[PM]À€63À€;0À€64À€0À€

خوب اگه تونسته باشي اينو دريافت كني كه ديگه بقيش كاري نداره ! تو رشته بالا اونجايي كه نوشتم [PM] درواقع پي امي كه برات فرستادن ! ديگه توضيح نميدم . با استفاده از دستور زير متن پي ام رو مي كشي بيرون :

کد:

Function GetPM(YMlong, YourID As String, HIS_HER_ID As String) As String
ii = 42 + Len(YourID) + Len(HIS_HER_ID)
a = Mid(YMlong, ii, Len(YMlong) - ii)
b = Right(a, 18)
GetPM = Replace(a, b, "")
End Function

البته دسترو بالا رو همين الان نوشتم ، ممكن كه تو بعضي موارد خوب جواب نده .
راستي حتما اين سورس رو دانلود كن ، خيلي توش نكته داره --> http://www.pscode.com/vb/scripts/showcod...9&lngWId=1

[ardavan]

يه چيزايي گرفتم ميرم روش كار كنم
بابت dl ممنون مرسي
دوباره به اين تاپيك سر بزن اگه مشكلي پيش بياد مي گم
:wink:

[ardavan]

من اصلا نتو نتونستم دريافت كنم از پورت خود ياهو بايد دريافت كنم؟؟؟؟؟؟؟؟
مرسي

[ardavan]

من چرا نمي تونم فايل upload كنم پسوندشم ZIP ولي مي گه ناموق با مديريت تماس بگيرد
7و8 بارم امتحان كردم ولي نشد؟؟؟؟ :cry: