[e-coder]

السلام عليكم 

بعد صلاه على رسول الله محمد

الشركة المالكة لشات الدردشة

نمبوز قامت بتغير استخدام تقنية الاتصال

بxmpp

الي 

improver socket using Tls and DIGEST-MD5 login

الكود الدخول التالي القديم

PHP كود :

x = New agsXMPP.XmppClientConnection
        With x
            .Server = "nimbuzz.com"
            .ConnectServer = "o.nimbuzz.com"
            .Open(id.Text, password.Text)
            .Resource = ("Nimbuzz_Symbian" & Me.Generatecode())
            .Status = "GAZA LOVE ♥ all"
            .ClientVersion = ("1.0")
            .Port = "5222"
            .Show = protocol.client.ShowType.NONE



            AddHandler .OnClose, AddressOf dc
            AddHandler .OnReadXml, AddressOf Xml1
            AddHandler .OnLogin, AddressOf loged
            AddHandler .OnAuthError, AddressOf wrong

        End With
 Private Sub Xml1(ByVal sender As Object, ByVal xml As String)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml1), New Object() {sender, xml})
        Else
            xml = Replace(xml, """", "'")
            On Error Resume Next
            If (InStr(xml, "<captcha xmlns='nimbuzz:captcha'>") <> 0) Then
                target5 = xml.Substring(xml.IndexOf("chatting. ") + 10)
                target5 = target5.Substring(0, target5.IndexOf("</body") - 0)
                PictureBox1.ImageLocation = target5
            End If
        End If
    End Sub
    Private Sub dc(ByVal sender As Object)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New ObjectHandler(AddressOf dc), New Object() {sender})
        Else
            id.BackColor = Color.Yellow
            Timer1.Enabled = True
        End If
    End Sub
    Private Sub loged(ByVal sender As Object)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged), New Object() {sender})
        Else

            id.BackColor = Color.DarkSeaGreen

        End If
    End Sub
    Private Sub wrong(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong), New Object() {sender, e})
        Else

            id.BackColor = Color.Red

        End If
    End Sub 


تحميل مكتبة

asixmpp.dll

في المرفقات

   وشكراً