ايران ويج

نسخه‌ی کامل: بحث پيرامون پکت های پرتوکل ياهو (YMSG)
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2
به دليل به هم ريختگی و بی نظم شدن تاپيک های موضوعات ديگه اين تاپيک رو ايجاد کردم که بچه ها فقط توی اين تاپيک به تبادل نظر و بحث بپردازند
سلام And خسته نباشید Heart 028

من پکت وارد شدن به روم برای پروتکل 102 میخام (بدون استفاده از کامپوننت)

جستجو کردم ولی چیزی پیدا نکردم Whistle
سلام دوستان عزیز : من یه مشکلی دارم اونم اینه که وقتی یک pm به ایدی طرف مقابل میدم که افلاین هست . براش فرستاده نمیشه تو یکی از پست های آقای CRazYFULL دیدم که این مشکل رو برطرف کردن ولی لینک دانلود کامپونت خراب بود اگه میشه
این مشکل رو حل کنید که در صورت افلاین هم pm به دست طرف برسه . ممنون
(۳۱-مرداد-۱۳۹۰, ۰۵:۴۷:۱۲)W-I-L-S-O-N نوشته است: [ -> ]یه مسلمون از نوع شیعه نبود جواب مارو بده ؟؟؟
من نه کافرم نه یهودی گناه که نمیکنید جواب منو بدید
باو میدونم جای این درخواست من اینجا نبود ولی خوب من بلد نبودم تاپیک جدید بزنم دیگه از بس که این ایرانویج کـ...ر...ـه

واقعآ خجالت داره بین مسلمانها فرق میذارید.

من مسلمان سنی هستم و این هم پاکت ورود به روم برای تو که . . .

این از header

کد:
Private Function Header(ByVal StrPacketType As String, ByVal StrStat As String, ByVal StrSession As String, ByVal StrComm As Long) As String
On Error Resume Next
Dim Version As String
Version = 102
Header = "YMSG" & Chr(0) & Chr(&HF) & String(2, Chr(0)) & Chr(Int(Len(StrPacketType) / 256)) & Chr(Int(Len(StrPacketType) Mod 256)) & Chr(Int(StrComm / 256)) & Chr(Int(StrComm Mod 256)) & Mid(StrStat, 1, 4) & Mid(StrSession, 1, 4) & StrPacketType
End Function

و این هم از پاکت اصلی.

کد:
Public Function JoinRoom(Whofrom As String, RoomName As String, ByVal RoomKey As String)
Dim Packet As String
Packet = "1À€" & Whofrom & "À€104À€" & RoomName & "À€129À€" & RoomKey & "À€62À€2À€"
JoinRoom = Header(Packet, String(4, 0), Whofrom, 152)
End Function

و این هم خروج از روم.
کد:
Public Function LeaveRoom(YahooID As String) As String
Dim Packet As String
Packet = "1À€" & YahooID & "À€1005À€357453521..lvlalvlacl-.-.-.-.-.-.-.-xterr0r@rogers.com..13..256..50..l2o5v4..52..lvlalvlacl-.-.-.-.-.-.-.-xterr0r@rogers.com..57..l2o5v4-KtqCObwvSn416ed83uI0Nw--..58..Join My Voice Conference.....97..1..233..t_KWLBpTpl74itc6Vh3o0NY36qgW5o5Is-..234..l2o5v4-KtqCObwvSn416ed83uI0Nw--.."
LeaveRoom = Header(Packet, String(4, 0), YahooID, 15)
End Function

به امید روزی که بهفهمید مسلمان ها باید متحد باشند.
موفق باشید.Heart
(۰۱-شهریور-۱۳۹۰, ۰۰:۴۸:۳۹)zirak نوشته است: [ -> ]
(۳۱-مرداد-۱۳۹۰, ۰۵:۴۷:۱۲)W-I-L-S-O-N نوشته است: [ -> ]یه مسلمون از نوع شیعه نبود جواب مارو بده ؟؟؟
من نه کافرم نه یهودی گناه که نمیکنید جواب منو بدید
باو میدونم جای این درخواست من اینجا نبود ولی خوب من بلد نبودم تاپیک جدید بزنم دیگه از بس که این ایرانویج کـ...ر...ـه

واقعآ خجالت داره بین مسلمانها فرق میذارید.

من مسلمان سنی هستم و این هم پاکت ورود به روم برای تو که . . .

این از header

کد:
Private Function Header(ByVal StrPacketType As String, ByVal StrStat As String, ByVal StrSession As String, ByVal StrComm As Long) As String
On Error Resume Next
Dim Version As String
Version = 102
Header = "YMSG" & Chr(0) & Chr(&HF) & String(2, Chr(0)) & Chr(Int(Len(StrPacketType) / 256)) & Chr(Int(Len(StrPacketType) Mod 256)) & Chr(Int(StrComm / 256)) & Chr(Int(StrComm Mod 256)) & Mid(StrStat, 1, 4) & Mid(StrSession, 1, 4) & StrPacketType
End Function

و این هم از پاکت اصلی.

کد:
Public Function JoinRoom(Whofrom As String, RoomName As String, ByVal RoomKey As String)
Dim Packet As String
Packet = "1À€" & Whofrom & "À€104À€" & RoomName & "À€129À€" & RoomKey & "À€62À€2À€"
JoinRoom = Header(Packet, String(4, 0), Whofrom, 152)
End Function

و این هم خروج از روم.
کد:
Public Function LeaveRoom(YahooID As String) As String
Dim Packet As String
Packet = "1À€" & YahooID & "À€1005À€357453521..zirak..13..256..50..zirak..52..zirak..57..zirak-KtqCObwvSn416ed83uI0Nw--..58..Join My Voice Conference.....97..1..233..t_KWLBpTpl74itc6Vh3o0NY36qgW5o5Is-..234..l2o5v4-KtqCObwvSn416ed83uI0Nw--.."
LeaveRoom = Header(Packet, String(4, 0), YahooID, 15)
End Function

به امید روزی که بهفهمید مسلمان ها باید متحد باشند.
موفق باشید.Heart

دمت قییییییییییییییییژ Wink
باو اون مسلون شیعه که کفتم که شوخی کردم به قول بچه ها Just For Fun بود Wink والا من اصلا فرق بین شیعه با سنی نمیدونم Whistle حالا بحث اسلام ولش کن بریم به Vb خودمون Biggrin

آقا این پکت که گذاشتی ظاهرا کار نمیکنه من این پکت با همون هدر که گذاشی سند کردم ولی تو DataArrival چیزی ّبرنگشت Sad

اینجوری فرستادم
کد:
Winsock2.SendData JoinRoom(ID.Text, "canada", 2)
(۰۱-شهریور-۱۳۹۰, ۰۰:۴۸:۳۹)zirak نوشته است: [ -> ][quote='W-I-L-S-O-N' pid='156644' dateline='1313975832']
یه مسلمون از نوع شیعه نبود جواب مارو بده ؟؟؟
من نه کافرم نه یهودی گناه که نمیکنید جواب منو بدید
باو میدونم جای این درخواست من اینجا نبود ولی خوب من بلد نبودم تاپیک جدید بزنم دیگه از بس که این ایرانویج کـ...ر...ـه

واقعآ خجالت داره بین مسلمانها فرق میذارید.

من مسلمان سنی هستم و این هم پاکت ورود به روم برای تو که . . .

این از header

کد:
Public Function Header(ByVal PacketType As String, ByVal Pck As String) As String
Dim i As Integer
Dim X As Integer
X = 0
i = Len(Pck)
Do While i > 255
i = i - 256
X = X + 1
Loop
Header = Name & Chr(0) & Chr(Ver) & String(2, 0) & Chr(X) & Chr(i) & Chr(0) & _
Chr("&H" & PacketType) & String(8, 0) & Pck
Debug.Print Header
End Function

و این هم از پاکت اصلی.

کد:
Public Function RoomJoin(WhoFrom As String, RoomName As String) As String
    RoomJoin = Header("98", "1À€" & WhoFrom & "À€104À€" & RoomName & "À€129À€" & roomNum & "À€62À€2À€")
End Function

و این هم خروج از روم.
کد:
Public Function LeaveRoom(USER As String, Room As String) As String
Dim Packet As String
Packet = "1À€" & USER & "À€1005À€322" & "85272À€"
LeaveRoom = Header("A0", Packet)
End Function

و این هم پاکت فرستادن متن به روم.

کد:
Public Function SendChat(RoomName As String, Username As String, Text As String) As String
Dim Packet As String
Packet = "104À€" & RoomName & "À€109À€" & Username & "À€117À€" & Text & "À€124À€1À€"
SendChat = Header("A8", Packet)
End Function
به امید روزی که بهفهمید مسلمان ها باید متحد باشند.
موفق باشید.Heart
آقا اینها که گذاشتی Headerهاشون با پکت لوگین من جور در نمیاد و پکت هایی که برای Join گذاشتی با Header من جور در نمیاد

شما یه هدر با یه پکت لوگین برای همون هدر و یه پکت ورود به روم بزار Heart
(۰۱-شهریور-۱۳۹۰, ۲۲:۲۴:۴۵)W-I-L-S-O-N نوشته است: [ -> ]آقا اینها که گذاشتی Headerهاشون با پکت لوگین من جور در نمیاد و پکت هایی که برای Join گذاشتی با Header من جور در نمیاد

شما یه هدر با یه پکت لوگین برای همون هدر و یه پکت ورود به روم بزارHeart


عزیز شاید header شما با header که من گذاشتم هردو یک اسم هستند.

شما میتونید هدری که من گذاشتم رو اسمشو عوض کنی ( در پاکتها هم همینطور)

مثلآ مال تو header هست

اسم این رو به YMSGHeader تبدیل کن ...
به همین راحتی

موفق باشیدWink
نه نه نه من اتفاقا دقت کردم که اسم Hedearها باهم مشابه نباشه

من آیدی با Header خودم لوگین میکنم بعدش پکت رو با Header شما سند میکنم(اسم Headerها مشابه نیست) ولی ایدی Sign Out میشه

من خودم دیشب پکت های SendPm ، SendBuzz ، ChangeStatus ، InviteCf و چندتا دیگه با برنامه wireshark اسنیف کردم همشون تست کردم همشونم کار کردن ولی پکت ورود به روم که اسنیف کردم وقتی سند میکنم تو DataArrival هیچی برنمیگرده من خودم گیج شدم که چرا فقط همین یدونه پکت برا من جواب نمیده.Confused

این پکت من

کد:
("1À€" & MyID & "À€104À€" & RoomName & "À€129À€1190À€62À€2À€")

فرق پکت من با پکت های شما اینه که پکت های شما RoomNum و RoomKey دارن ولی پکت من بجای اونها عدد 1190 داره

اینم Header من

کد:
Public Function Header(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
Header = "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

شما الان با همین پکت که به من دادی خودت میتونی وارد روم بشی؟
HeartHeartHeart
(۰۲-شهریور-۱۳۹۰, ۰۸:۲۷:۱۶)W-I-L-S-O-N نوشته است: [ -> ]نه نه نه من اتفاقا دقت کردم که اسم Hedearها باهم مشابه نباشه


از این استفاده کنHeart


موفق باشیWink
(۰۲-شهریور-۱۳۹۰, ۰۸:۲۷:۱۶)W-I-L-S-O-N نوشته است: [ -> ]نه نه نه من اتفاقا دقت کردم که اسم Hedearها باهم مشابه نباشه


از این استفاده کنHeart


موفق باشیWink
آقا مشکل این بود که من پکت LoginChat سند نمیکردم دیگه BiggrinBiggrinBiggrin

دمت گرم مشکل حل شد ولی ای کاش میشد این کلید تشکر هر چندبار که دلت میخاد بزنی Tongue یک بار که فایده نداره Heart Heart Heart


صفحه‌ها: 1 2