07-02-17, 11:24 AM
بسم الله الرحمان الرحيم
أود من خبراء xml التعديل
على هذا الكود
طبيعة الكود
ظهورة كابتشا للمستخدم
لدخول للغرف الدردشة
![[صورة مرفقة: 14864521493681.png]](http://store6.up-00.com/2017-02/14864521493681.png)
كل ماهو مطلوب تأخر ظهور الكباتشا
لمدة 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