l3aran
جمعه 22 شهریور 1392, 15:15 عصر
سلام
خسته نباشید
میخواستم بدونم من یه روبو دارم بعد قبل اینکه یاهو 2 هفته قبل آپدیت کنه میشد با دستور /avt esme id
عکس شخص مقابل رو دید یعنی روبو یه لینک ارسال میکرد که میشد دید از وقتی یاهو آپدیت کرده نمیشه
این کدش بود
Function avtSwitch(Message As String, PersonID As String, selfUser As String)
Dim Response As String
Dim arrPM() As String
arrPM = Split(Message, " ", 2)
If UBound(arrPM) = 1 Then
Response = "Inam avatar :D >> http://img.msg.yahoo.com/avatar.php?yids=" & arrPM(1) & "&.jpg"
Else
' /avt has invalid number of arguments
Response = "Bayad Intori Az /avt Estefade Koni: /avt <red>ID</red>"
End If
avtSwitch = Response
End Function
کسی میدونه باید چی جایگزین کنم تا درست شه ؟
خسته نباشید
میخواستم بدونم من یه روبو دارم بعد قبل اینکه یاهو 2 هفته قبل آپدیت کنه میشد با دستور /avt esme id
عکس شخص مقابل رو دید یعنی روبو یه لینک ارسال میکرد که میشد دید از وقتی یاهو آپدیت کرده نمیشه
این کدش بود
Function avtSwitch(Message As String, PersonID As String, selfUser As String)
Dim Response As String
Dim arrPM() As String
arrPM = Split(Message, " ", 2)
If UBound(arrPM) = 1 Then
Response = "Inam avatar :D >> http://img.msg.yahoo.com/avatar.php?yids=" & arrPM(1) & "&.jpg"
Else
' /avt has invalid number of arguments
Response = "Bayad Intori Az /avt Estefade Koni: /avt <red>ID</red>"
End If
avtSwitch = Response
End Function
کسی میدونه باید چی جایگزین کنم تا درست شه ؟