+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] الي خبراء الـxml (/showthread.php?tid=19142)
الي خبراء الـxml - 3asfa~mdmra - 07-02-17
بسم الله الرحمان الرحيم
أود من خبراء 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 SubRE: الي خبراء الـxml - 3asfa~mdmra - 08-02-17
.....................
RE: الي خبراء الـxml - 3asfa~mdmra - 08-02-17
.............
RE: الي خبراء الـxml - 3asfa~mdmra - 08-02-17
*********************
RE: الي خبراء الـxml - مساعدة - 08-02-17
السلام عليكم
ضع سطر التأخير قبل سطر تحميل الصورة في الأداة
كود :
Threading.Thread.Sleep ( 20 * 1000 )