[مساعدة]

السلام عليكم

جرب هذا الطريقة

كود :

Private WithEvents emad As New agsXMPP.XmppClientConnection


Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    routine("username@password@Resource")
End Sub


Private Sub routine(args As String)
    Dim s() As String = args.Split("@")
    emad.Server = "nimbuzz.com"
    emad.ConnectServer = "o.nimbuzz.com"
    emad.Open(s(0), s(1))
    emad.Resource = s(2)
    emad.Port = "5222"
End Sub
Private Sub emad_OnClose(sender As Object) Handles emad.OnClose
    ' OnClose Event
End Sub
Private Sub emad_OnReadXml(sender As Object, xml As String) Handles emad.OnReadXml
    ' OnReadXml Event
End Sub
Private Sub emad_OnLogin(sender As Object) Handles emad.OnLogin
    ' OnLogin Event
End Sub
Private Sub emad_OnAuthError(sender As Object, e As agsXMPP.Xml.Dom.Element) Handles emad.OnAuthError
    ' OnAuthError Event
End Sub

كما ترى تم الاستغناء عن AddHandler وذلك باضافة WithEvents عند تعريف المتغير  emad
ولا تنس تنقل الأكود التي كانت في كل من dc وXml1 وloged وwrong في الأحداث الظاهرة في الكود

---

تم التعديل