نمايش پست تنها
قديمي ۰۷-۲۹-۱۳۸۹, ۰۳:۰۰ بعد از ظهر   #434 (لینک دائم)
terpak
عضو فوق فعال
 
آواتار terpak
 
تاريخ عضويت: شهريور ۱۳۸۹
پست ها: 45
تشكرها: 3
12 تشكر در 10 پست
Talking

این هم دستور budy/ که قولش رو داده بودم
باید توی سویچ help/ هم دستور اضاف کنید . خودتون دیگه باید اینو بلد باشید
کد زیرو توی frmMain زیر کد gf/ کپی کنید

ElseIf Left(Message, 5) = "/budy" Then
txtPersonID.Text = Trim(Replace(Mid(Message, 7), " ", "+"))
txtMessage.Text = "salam, KHoobi :X, azizam <green>" & PersonID & "</green> Gofte khodamo behet MOarefi KOnam ke Az emkanatam Estefade KOni <green> /help </green> bezan ta bebini chikara baladam "
sendData SendPm(tUser.Text, txtPersonID.Text, txtMessage.Text)
txtMessage.Text = " "
txtPersonID.TabIndex = " "
Response = "Mersi KE mano BE Doostet Moarefi Kardi "
terpak آفلاين است   پاسخ با نقل قول