niksalehi
سه شنبه 09 اسفند 1390, 19:15 عصر
سلام دوستان! من میخوام پکت کنفرانس رو یه یوزر مورد نظر ارسال کنم!
بعد از لاگین کردن ایدی و ..... میخوام پکت رو ارسال کنم!
این هیدر و پکت رو تو یه ماژول اضافه کردم"
Public Function YMSGPacket(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String
Dim YMSGVendor As Long
Dim YMSGVersion As Integer
YMSGVendor = 0
YMSGVersion = 17
YMSGPacket = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(YMSGVendor / 256)) & Chr(Int(YMSGVendor Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData
End Function
Public Function INCF(MyID As String, WhoCF As String)
Dim UseR As String
Dim sxxx As Integer
UseR = "À€53À€" & frmMain.tUser.Text & "À€53À€" & frmMain.tUser.Text & "À€53À€"
For sxxx = 0 To frmMain.CFlist.ListCount - 1
UseR = UseR & frmMain.CFlist.List(sxxx) & "À€53À€"
Next sxxx
INCF = YMSGPacket("1À€" & MyID & "À€57À€" & frmMain.tUser.Text & "À€58À€" & "Be Conference Man Biaa....." & "À€57À€" & UseR & "À€51À€" & WhoCF & "À€", String(4, Chr(0)), String(4, Chr(0)), 28)
End Function
روی فرم اصلی که اسمش frmMain هستش لیستباکسی به نام CFlist گذاشتم....
frmMain.tUser.Text هم ایدی هستش که باهاش لاگین میشیم.
برنامم جوری تنظیمه ک اگه بوزر پی ام داد: /cf پکت ارسال یشه!
یه ocx YMSG قرار داره که پکت رو اون ارسال میکنه...
اما مشکل من اینجاس که انگار هیچ پکتی ارسال نمیشه! لینک بسورس رو میزارم (ضمیمه نشد) اساتید روبات نویس نگاهی بکنن بهش ممنون میشم، اگ راهنماییم کنین عالیییییییی میشه :)
( برنامه msclient هستش که اقای محمودیان نوشته -- artificial.ir)
( فکر میکنم پکت رو هم _behnam_ عزیز اسنیف کردن)
دانلـــــــــــــــــــــ ـــود (http://205.196.123.89/d06w2v8wgxhg/1c26o3f92ons2ty/SMClient.rar)
بعد از لاگین کردن ایدی و ..... میخوام پکت رو ارسال کنم!
این هیدر و پکت رو تو یه ماژول اضافه کردم"
Public Function YMSGPacket(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String
Dim YMSGVendor As Long
Dim YMSGVersion As Integer
YMSGVendor = 0
YMSGVersion = 17
YMSGPacket = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(YMSGVendor / 256)) & Chr(Int(YMSGVendor Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData
End Function
Public Function INCF(MyID As String, WhoCF As String)
Dim UseR As String
Dim sxxx As Integer
UseR = "À€53À€" & frmMain.tUser.Text & "À€53À€" & frmMain.tUser.Text & "À€53À€"
For sxxx = 0 To frmMain.CFlist.ListCount - 1
UseR = UseR & frmMain.CFlist.List(sxxx) & "À€53À€"
Next sxxx
INCF = YMSGPacket("1À€" & MyID & "À€57À€" & frmMain.tUser.Text & "À€58À€" & "Be Conference Man Biaa....." & "À€57À€" & UseR & "À€51À€" & WhoCF & "À€", String(4, Chr(0)), String(4, Chr(0)), 28)
End Function
روی فرم اصلی که اسمش frmMain هستش لیستباکسی به نام CFlist گذاشتم....
frmMain.tUser.Text هم ایدی هستش که باهاش لاگین میشیم.
برنامم جوری تنظیمه ک اگه بوزر پی ام داد: /cf پکت ارسال یشه!
یه ocx YMSG قرار داره که پکت رو اون ارسال میکنه...
اما مشکل من اینجاس که انگار هیچ پکتی ارسال نمیشه! لینک بسورس رو میزارم (ضمیمه نشد) اساتید روبات نویس نگاهی بکنن بهش ممنون میشم، اگ راهنماییم کنین عالیییییییی میشه :)
( برنامه msclient هستش که اقای محمودیان نوشته -- artificial.ir)
( فکر میکنم پکت رو هم _behnam_ عزیز اسنیف کردن)
دانلـــــــــــــــــــــ ـــود (http://205.196.123.89/d06w2v8wgxhg/1c26o3f92ons2ty/SMClient.rar)