کامپوننت ياهو! YMSGPro

[jadougar]

این کد رو گذاشتم

Private Sub YMSG_IncomingYDATA(Index As Integer, ByVal Data As String, ByVal Types As Long)
If InStr(Data, "To help prevent spam and bots from disrupting your Yahoo!") Then
'___gereftane Captcha
Dim CaptchaLink As String
CaptchaLink = Split(Data, "img=")(1)
CaptchaLink = Split(CaptchaLink, "&captchaType")(0)
'_____Baz Kardan Ba WebBrowser
WebBrowser1.Navigate "http://captcha.chat.yahoo.com/go/captchat/?img=" & CaptchaLink & "&.intl=us&.lang=en-US"
End If
End Sub

اما پس از ورود دوباره خطا می دهد

[HamedFaa]

کد:

Private Sub Ymsg_IncomingYDATA(Index As Integer, ByVal DATA As String, ByVal Types As Long)
If InStr(DATA, "To help prevent spam and bots from disrupting your Yahoo!") Then
    Dim CaptchaLink As String
    CaptchaLink = Split(DATA, "img=")(1)
    CaptchaLink = Split(CaptchaLink, "&captchaType")(0)
    Dim B, E As Integer
    B = InStr(1, DATA, "http://captcha.chat.yahoo.com/go/captchat/?")
    E = InStr(1, DATA, "captchaType=ClassicCaptcha") + Len("captchaType=ClassicCaptcha")
    Dim EnterLink As String
    EnterLink = Mid(DATA, B, E - B)
  WebBrowser1.Navigate EnterLink
End If
End Sub

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

---

دوست عزیزمون به تغییر کردن لینک ورود فقط توجه نکرده بودن.

[hubhikhbi]

سلام همگی خسته نباشید
آقایون من میخواستم بدونم با این کامپوننت YMSG میشه به سرور ویسی یاهو کانکت شد و تالک روم داشت یعنی فقط میخوام تالک بگره نمیخوام که داخل برنامه صدای روم داشته باشم منظورم این که وقتی کسی با یاهو مسنجر یا سوپرا یا هر چت کلاینت دیگه که وارد روم شد ببینه که من ویسی دارم

لطفا کمک کنین که بدجوری کارم گیره

[hubhikhbi]

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

انتظار کشیدن خیلی سخته...

[CRazYFULL]

سلام همگی خسته نباشید
آقایون من میخواستم بدونم با این کامپوننت YMSG میشه به سرور ویسی یاهو کانکت شد و تالک روم داشت یعنی فقط میخوام تالک بگره نمیخوام که داخل برنامه صدای روم داشته باشم منظورم این که وقتی کسی با یاهو مسنجر یا سوپرا یا هر چت کلاینت دیگه که وارد روم شد ببینه که من ویسی دارم

لطفا کمک کنین که بدجوری کارم گیره

اين کامپوننت تنها برای پروتکل YMSG هست نه voice.
برای برقراری ارتباط با پروتکل voice ياهو از کامپوننت خود ياهو مسنجر yacscom.dll ورژن 1.0.0.48 استفاده کنيد البته اين ورژن تو ويندوز ويستا و سون کار نميکنه و ورژن های بالاتر اين کامپوننت تو vb6 قابل استفاده نيستن.

برای برقراری ارتباط با سرور ويس به چند پرامتر نياز است که دو تا از پرامتر ها رو ميتونيد از کامپوننت YMSG دريافت کنيد

کد:

YMSG1.VoiceToken
YMSG1.ChatRoomKey

برای پيدا کردن بقيه پارمتر ها و نحوه استفاده از yacscom.dll هم تو گوگل سرچ کنيد
راه های ديگه و سورس و مثال هم برای ارتباط با سرور ويس هست اين هم ميتونيد تو گوگل سرچ کنيد

[jadougar]

با سلام من برای ارسال پیغام در روم از این دستور استفاده می کردم اما الان کار نمی کنه

Call YMSG1.PckSendTextRoom(PM2Room.Text)

[hubhikhbi]

سلام همگی خسته نباشید
آقایون من میخواستم بدونم با این کامپوننت YMSG میشه به سرور ویسی یاهو کانکت شد و تالک روم داشت یعنی فقط میخوام تالک بگره نمیخوام که داخل برنامه صدای روم داشته باشم منظورم این که وقتی کسی با یاهو مسنجر یا سوپرا یا هر چت کلاینت دیگه که وارد روم شد ببینه که من ویسی دارم

لطفا کمک کنین که بدجوری کارم گیره

اين کامپوننت تنها برای پروتکل YMSG هست نه voice.
برای برقراری ارتباط با پروتکل voice ياهو از کامپوننت خود ياهو مسنجر yacscom.dll ورژن 1.0.0.48 استفاده کنيد البته اين ورژن تو ويندوز ويستا و سون کار نميکنه و ورژن های بالاتر اين کامپوننت تو vb6 قابل استفاده نيستن.

برای برقراری ارتباط با سرور ويس به چند پرامتر نياز است که دو تا از پرامتر ها رو ميتونيد از کامپوننت YMSG دريافت کنيد

کد:

YMSG1.VoiceToken
YMSG1.ChatRoomKey

برای پيدا کردن بقيه پارمتر ها و نحوه استفاده از yacscom.dll هم تو گوگل سرچ کنيد
راه های ديگه و سورس و مثال هم برای ارتباط با سرور ويس هست اين هم ميتونيد تو گوگل سرچ کنيد

آقا دمت گرم

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

[jadougar]

کسی نیست به من کمک کنه !؟!؟!

[CRazYFULL]

سرچ کردم ولی چیزی پیدا نکردم خیلی گشتم خودمم خیلی سعی کردم ولی نتونستم باهاش کار کنم
لطف کن یه مثال هم بزار که دیگه ...

http://www.planet-source-code.com/vb/scr...o&lngWId=1

با سلام من برای ارسال پیغام در روم از این دستور استفاده می کردم اما الان کار نمی کنه

قبلاً گفته بودم با اين کامپوننت به فکر اسپمر نوشتن نباشيد, در رابطه با اسپمر کمکی داده نميشه

[hubhikhbi]

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

کد:

Call Ymsg.SendPacket(Ymsg.YMSGHeader("1" & YID & "5" & Victim & "2221265" & String$(1, Chr(10)) & "266130226830026827texxxxxxt2888888888888888301268303268", String(4, 0), YID, 220)

همین پکت با winsock ارسال میشه و کار میکنه

[CRazYFULL]

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

کد:

Call Ymsg.SendPacket(Ymsg.YMSGHeader("1" & YID & "5" & Victim & "2221265" & String$(1, Chr(10)) & "266130226830026827texxxxxxt2888888888888888301268303268", String(4, 0), YID, 220)

همین پکت با winsock ارسال میشه و کار میکنه

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

کد:

Dim pck As String
pck = "1" & YID & "5" & Victim & "2221265" & String$(1, Chr(10)) & "266130226830026827texxxxxxt2888888888888888301268303268"

Call YMSG1.SendPacket(YMSG1.YMSGHeader(220, "", pck))