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

[niksalehi]

سلام دوستان.
من در استفاده از پکت ها در یاهو مبتدی هستم ( تقریبا هیچی نمیدونم لول )
من اومدم این پکت رو :

Public Function Invisible(WhoFrom As String, InvisibleMode As Boolean)
Invisible = Header("13À€" & CInt(InvisibleMode) * (-1) + 1 & "À€", String(4, Chr(0)), YmsgID, 197)
End Function
تو یه ماژول قرار دادم، بعد یه دکمه گذاشتم رو فرم و این کد رو براش نوشتم:

Private Sub invisible_Click()
sendData Invisible(tUser.Text, True)
End Sub

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

Compile error:
Wrong number of arguments or invalid property assignment
من سوالم اینه که کجای کار اشتباهه؟
چطوری باید از پکت های یاهو استفاده مرد؟
آیا قسمت های (WhoFrom As String,....) باید به جای whoFrom ایدی لاگین شده رو بنویسم تو فانکشن؟ :افسرده:
ممنونم :قلب:

[oYaMaa]

سلام...

شما باید خودتون پکت رو snif کنید و بر اساس آیدی هایی که داخل پکت هست تشخیص بدین که چیکارست.آموزش snif کردن هم داخل همین سایت موجوده! یه سرچ کنید پیدا می کنید.

فکر میکنم کلمه YmsgID در آخر پکت اضافی باشه.من تا حالا این پکت رو ارسال نکردم.ولی snif کنید حتما به نتیجه می رسید.:چشمک:

[سید حمید حق پرست]

سلام
برای آموزش سنیف به این تاپیک برو . یه فیلم آموزشی توپ داره :
http://barnamenevis.org/showthread.php?296643-%D9%81%DB%8C%D9%84%D9%85-%D8%A2%D9%85%D9%88%D8%B2%D8%B4%DB%8C-%D8%A7%D8%B3%D9%86%DB%8C%D9%81-%D9%BE%DA%A9%D8%AA-%D9%87%D8%A7%DB%8C-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84%DB%8C-%DB%8C%D8%A7%D9%87%D9%88&highlight=snif

موفق باشی

یا علی(ع)

[Snoopboy]

شما به جای YmsgID باید WhoFrom رو قرار بدی در پکتت

[niksalehi]

ممنونم از راهنماییتون!
اما فکر نکنم اسنیف مردن پکت ها فرقی داشته باشه، چه با ایدی X پکت رو اسنیف کنیم چه با ایدی Z!
فیلم رو هم قبلا دیده بودم ااما نتونستم استفاده ای کنم ازش! :(

شما به جای YmsgID باید WhoFrom رو قرار بدی در پکتت
این کار رو هم انجام دادم باز هم نشد! همئن ارور رو داد!
ممنون میشم از دوستان اگ یه پروژه کوچیک که استفاده از پکت ها و سند اون هارو نشون بده قرار بدن!
یا یه مثال کامل از استفاده ازش بزنن

[_behnam_]

سلام
هدر رو قرار بديد تا بررسي كنيم

[niksalehi]

ممنونم

Header("13À€" & CInt(InvisibleMode) * (-1) + 1 & "À€", String(4, Chr(0)), YmsgID, 197)

[_behnam_]

منظورم فانکشن هدر بود

[niksalehi]

اها بله... :لبخند:

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 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

[_behnam_]

هدر رو به صورت زیر اصلاح کنید ببینید مشکل حل نمیشه
ویژوال بیسیک 6 ندارم خودم نمیتونم تست کنم

Byval YMSGPacketData As String, Byval YMSGStatus As String, Byval YMSGKey As String, Byval YMSGCommand As Long

[niksalehi]

Public Function invisible(WhoFrom As String, InvisibleMode As Boolean)
invisible = header("13A`€" & CInt(InvisibleMode) * (-1) + 1 & "A`€", String(4, Chr(0)), YmsgID, 197)
End Function


Private Function header(ByVal YMSGPacketData As String, ByVal YMSGStatus As String, ByVal YMSGKey As String, ByVal YMSGCommand As Long)
header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 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


Private Sub InvisibleMode_Click()
sendData invisible(tUser.Text, True)
End Sub

باز هم نشد!
الان کجای این ایراد داره؟

[_behnam_]

ارور به صورت دیباگ هست یا خطای کامپایلر؟

[niksalehi]

نه دیگه ارور نمیده! اما وقتی روی دکمه کلیک میکنم هیچ اتفاقی نمیفته!

sendData invisible(tUser.Text, True)
این قسمت باید همون تکست باکسی باشه که ایدی توش هست؟ یعنی تکست باکسی که ایدی باهاش لاگین میشه؟

[_behnam_]

اگه اروری رخ نمیده پس نحوه ارسال مشکلی نداره بلکه پکت مشکل داره و باید اسنیف کنید،