16-09-17, 04:24 PM
السلام عليكم
بعد صلاه على رسول الله محمد
الشركة المالكة لشات الدردشة
نمبوز قامت بتغير استخدام تقنية الاتصال
ب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
في المرفقات
وشكراً