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

[king.bibak]

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

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

آره منظورم همینه کسانی که الان توی روم هستند و قبل از من اومدن توی روم

[joker]

آقا آخرين و كاملترين فايلي كه براي ارتباط با پروتكل مسنجر ياهو هست و هنوز كار بكنه بي مشكل را يكي اينجا برا من ضميمه كنه ، خدا خيرش بده :)

[mostafabestman]

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

[mostafabestman]

دوستان این موضوع مهمه...کسی جوابمو نمیده؟

[soroush_vs]

سلام دوستان
این کامپوننت از کار افتاده؟
قسمت ارسال پیامش؟یا همون پی ام دادن از کار افتاده؟

[zirak]

سلام دوستان
این کامپوننت از کار افتاده؟
قسمت ارسال پیامش؟یا همون پی ام دادن از کار افتاده؟

کار میکنه عزیز .
فقط باید درست بنویسی. یه نگاه بنداز.[/code]

کد:

YMSG1.PckSendMsg "ID TARAF", "PAYAM ", "ID KE KHODET LOGIN KARDI"

[jadougar]

با سلام می خواستم بدونم مشکل این کد چیه ؟؟؟

WebBrowser1.Navigate "http://captcha.chat.yahoo.com/go/captchat/?img=" & PictureLink & "&.intl=us&.lang=en-US"

با این کد به صفحه کد پیج یاهو می رفتم الان نمی شه ؟؟؟

[snoopboy]

یاهو جدیدا Captcha رو آپدیت کرده و از طریق دستورات این Component نمی شه به یاهو متصل شد

[zirak]

با سلام می خواستم بدونم مشکل این کد چیه ؟؟؟

WebBrowser1.Navigate "http://captcha.chat.yahoo.com/go/captchat/?img=" & PictureLink & "&.intl=us&.lang=en-US"

با این کد به صفحه کد پیج یاهو می رفتم الان نمی شه ؟؟؟

این هم گرفتن کاپچا به روش جدید.

کد:

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

[bah69man]

Public Sub CaptchaRequest(Buffer As String)
Dim CaptchaLink As String
If InStr(1, Buffer, "http://captcha.chat.yahoo.com") = 0 Then
Exit Sub
End If
CaptchaLink = Mid(Buffer, InStr(1, Buffer, "http://captcha.chat.yahoo.com"), InStr(1, Buffer, ".jpg") - InStr(1, Buffer, "http://captcha.chat.yahoo.com") + 4)
InputBox "áØÝÇ Èå áíäß ÒíÑ ãÑÇÌÚå ßÑÏå æ ßÏ ÇãäíÊí ÏÇÏå ÔÏå ÑÇ æÇÑÏ ßäíÏ", "Captcha request", CaptchaLink
End Sub


این کد رو چطور میتونم ادیت کنم که با کپچای جدید بخونه؟

[snoopboy]

سلام .جناب Zirak این کدی که شما دادی برای این OCX هست یا کلا می شه از این روش استفاده کرد؟