کمک در نوشتن Add list saver

[snoopboy]

با سلام و خسته نباشید . من یگ سورس می خوام که بتونم باهاش تو یاهو اد لیستو بگیرم. ممنونم

[CRazYFULL]

http://www.xexample.com/showpost.php?p=4988&postcount=1

[snoopboy]

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

[CRazYFULL]

خوب پس اين:
با اين کامپوننت راحت ميشه ادد ليست رو به دست آورد

کد:

http://files.myopera.com/m0jix/program/ymsg.ocx_example.rar

[snoopboy]

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

[CRazYFULL]

ممنونم . خیلی به کار اومد فقط یک سوال دارم . اول اینکه سورس این کامپننت رو کسی نداره؟

نه

آیا میشه در برنامه دیگری از این استفاده کرد که توسط خود کامپننت لوگین نشده باشه و بتونه پکت ارسال کنه ممنون میشم جواب بدین

نه حتماً بايد با کامپوننت لاگين شده باشه
چه پکتهايی لازم داری؟

[snoopboy]

من خودم پکتهای ایگنور کردن و حذف از لیست ایگنور رو دارم . حالا می خوام با استفاده از این برنامه همراه با اینکه اد لیست رو میگیره بتونم لیست ایگنور رو بگیرم و کسیو بهش اضافه کنم یا کسیو کم کنم. با استفاده از این کامپننت میشه . اگه نمیشه چظوری بهش اضافه کنم؟

[CRazYFULL]

اين کامپوننت قابليت گرفتن ايگنور ليست رو نداره اما ميشه از رويداد YDATA تمام پکت هايی که دريافت ميشه رو گرفت

اين کد رو تو رويداد YDATA بذار

کد:

Select Case Types
    Case 241 ' gereftane lista
    Call AddIGList(DATA)

End Select

اين تابع رو برای گرفتن ايگنور ليست نوشتم

کد:

Sub AddIGList(ByVal DATA As String)
Dim lDATA As String, Shoro As String, Item As String
Shoro = "À€320À€7À€" ' avale har id to ignore list ba in megdhar shoro mishe
List1.Clear
lDATA = DATA

Do While InStr(lDATA, Shoro)
    If InStr(lDATA, Shoro) > 0 Then

    Item = Split(Split(lDATA, Shoro)(1), "À€")(0) ' joda sazie id
    List1.AddItem Item
    
    lDATA = Right(lDATA, Len(lDATA) - InStr(lDATA, Shoro)) 'data az meghadr ghabli ke joda shod kam mishe
    End If
DoEvents
Loop
    
End Sub

---

پکتهايی که تو کامپوننت قرار ندارند با اين تابع فرستاده ميشن

کد:

YMSG1.SendPacket "type header", "packet

"

[snoopboy]

ممنون . واقعا عالی هست . یه سوال من هیدرو تو یه ماژول تعریف کردم . باید حتما اینجا هم تعریف کنم؟ بعد تو برنامه توسط آموزشهایی که داده شده . رفتم ولی بازم نشد که به رو برم و اعضای روم رو بگیرم . اگه میشه آموزش آون هم بگذارید. همچنین آموزش اد کردن رو . اونم از طریق آموزشها نشد . اگه میشه بگید چطوری این کامپوننت رو تو ریسورس قرار بدم که کنار برنامه نباشه . ممنون
الان این هیدر منه .

کد:

Private Function YMSGPacket(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String
YMSGPacket = Name & Chr(Int(Ver / 256)) & Chr(Int(Ver Mod 256)) & String(2, 0) & 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 AddIgnore(YID As String, Target As String) As String
AddIgnore = YMSGPacket("1À€" & YID & "À€13À€1À€302À€319À€300À€319À€7À€" & Target & "À€301À€319À€303À€319À€", String(4, 0), YID, 133)
End Function

چطوری باید معرفیش کنم به برنامه ؟

[CRazYFULL]

اين جور که بوش مياد ميخوای اسپمر مينويسی?

ممنون . واقعا عالی هست . یه سوال من هیدرو تو یه ماژول تعریف کردم . باید حتما اینجا هم تعریف کنم؟ بعد تو برنامه توسط آموزشهایی که داده شده . رفتم ولی بازم نشد که به رو برم و اعضای روم رو بگیرم . اگه میشه آموزش آون هم بگذارید. همچنین آموزش اد کردن رو . اونم از طریق آموزشها نشد . ممنون بازم

هدر به صورت ديفالت تعريف شده، تنها بايد شماره هکس نوع پکت وارد بشه به ماژول و توابع ديگه نيازی نيست


اول بايد تابع ورود به روم رو اجرا کنی

کد:

YMSG1.PckJoindRoom "Asia Global Chat:139"

بعد از رويداد CaptchaLink لينک تصوير کپچا رو ميگير و خودت بايد شماره تصوير رو به سرور بفرستی
اگه درست بفرستی آيدی وارد روم ميشه و...

کد:

YMSG1.PckAddBuddy "ID girande", "name goroh", "Esm", "famil", "peygham"

مقدار های غير ضروری رو ميتونی خالی بذاری

[snoopboy]

ببخشید جناب CrazyFull من با سوکت بلدم به سرور کپچا بفرستم و تو این هم به همون صورت هست؟ لینک Captcha رو با پروت 80 زدم . ولی فرستادن با این سرور رو نمیتون انجام بدم . چظوری فراخوانی کنم به Picture Box و از تو Text Box کد رو بفرستم به سرور در ضمن کد Captcha هم این هست .اگه میشه نحوه ریسورس کردن این کامپننت هم بگید که چطوری در ریسورس قرارش بدم

کد:

"captcha.chat.yahoo.com", 80

این هم برای Data

کد:

On Error Resume Next
  Dim Data As String
    Socket.GetData Data
    If InStr(Data, "captchat/close?") Then
        Caption = "Captcha OK"
        Unload Me
    ElseIf InStr(Data, "?tryagain=") Then
        Caption = "Bad Code"
    End If

سوال بعدی من یه لیست ایدی به برنامه معرفی کردم حالا می خواستم سند تو ال کنم ولی نمی فرسته به لیست . به ایدی تکی میفرسته به لیست نمی فرسته این کدم هست

کد:

Dim i As Integer
For i = 0 To List1.ListCount
YMSG1.PckSendMsg List1.List(i), Text5
Next i