شروع پروژه BSRobo ربات پرقدرت یاهو مسنجر

[_behnam_]

سلام بچه ها شرمنده چند روز نتونستم بیام ببشخید (ببخشید)

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

Private Sub YMSG1_IncomingAppear(ByVal User As String, ByVal Status As YMSGMode_V2.StatusYID, Messege As String)
If Status = Available Then
Call YMSG1.PckSendMsg(User, Frm_Setting.Text1.Text + "salam")
End If
End Sub

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

مشکل از یاهو وست که 2 بار میفرسته
تو کامپوننت هم 2 بار دریافت میشه
شما اگه پکت رو از قسمت YMSG1_IncomingYDATA دریافت کنید و عملیات رو انجام بدید فکر کنم بهتر باشه

If User <> Online Then
Online = User
If Status = Available Then
YMSG1.PckSendMsg User, "Peygham"
End If
End If
If Status = Offline Then
If User = Online Then
Online = ""
End If