07-02-17, 11:24 AM
بسم الله الرحمان الرحيم
أود من خبراء xml التعديل
على هذا الكود
طبيعة الكود
ظهورة كابتشا للمستخدم
لدخول للغرف الدردشة
كل ماهو مطلوب تأخر ظهور الكباتشا
لمدة 20 ثانية فقط
وشكراً
كود :
Private Sub xmll(ByVal sender As Object, ByVal xml As String)
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf xmll), New Object() {sender, xml})
Else
xml = Replace(xml, """", "'")
If InStr(xml, "<body>Enter the right answer to start chatting. ", CompareMethod.Text) <> 0 Then
Dim msg As String = Microsoft.VisualBasic.Mid(xml, InStr(xml, "<body>Enter the right answer to start chatting. ") + 48)
msg = Microsoft.VisualBasic.Left(msg, InStr(msg, "</body>") - 1)
PictureBox1.Load(msg)
End If
End If
End Sub