بحث پيرامون پکت های پرتوکل ياهو (YMSG)

[CRazYFULL]

به دليل به هم ريختگی و بی نظم شدن تاپيک های موضوعات ديگه اين تاپيک رو ايجاد کردم که بچه ها فقط توی اين تاپيک به تبادل نظر و بحث بپردازند

[W-I-L-S-O-N]

سلام And خسته نباشید

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

جستجو کردم ولی چیزی پیدا نکردم

[bvk]

سلام دوستان عزیز : من یه مشکلی دارم اونم اینه که وقتی یک pm به ایدی طرف مقابل میدم که افلاین هست . براش فرستاده نمیشه تو یکی از پست های آقای CRazYFULL دیدم که این مشکل رو برطرف کردن ولی لینک دانلود کامپونت خراب بود اگه میشه
این مشکل رو حل کنید که در صورت افلاین هم pm به دست طرف برسه . ممنون

[zirak]

یه مسلمون از نوع شیعه نبود جواب مارو بده ؟؟؟
من نه کافرم نه یهودی گناه که نمیکنید جواب منو بدید
باو میدونم جای این درخواست من اینجا نبود ولی خوب من بلد نبودم تاپیک جدید بزنم دیگه از بس که این ایرانویج کـ...ر...ـه

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

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

این از 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

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

---

یه مسلمون از نوع شیعه نبود جواب مارو بده ؟؟؟
من نه کافرم نه یهودی گناه که نمیکنید جواب منو بدید
باو میدونم جای این درخواست من اینجا نبود ولی خوب من بلد نبودم تاپیک جدید بزنم دیگه از بس که این ایرانویج کـ...ر...ـه

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

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

این از 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

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

[W-I-L-S-O-N]

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

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

اینجوری فرستادم

کد:

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

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

[W-I-L-S-O-N]

آقا اینها که گذاشتی Headerهاشون با پکت لوگین من جور در نمیاد و پکت هایی که برای Join گذاشتی با Header من جور در نمیاد

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

[zirak]

آقا اینها که گذاشتی Headerهاشون با پکت لوگین من جور در نمیاد و پکت هایی که برای Join گذاشتی با Header من جور در نمیاد

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

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

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

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

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

موفق باشید

[W-I-L-S-O-N]

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

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

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

این پکت من

کد:

("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

شما الان با همین پکت که به من دادی خودت میتونی وارد روم بشی؟

[zirak]

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

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


موفق باشی

---

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

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


موفق باشی

[W-I-L-S-O-N]

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

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