19-05-17, 04:09 PM
سلام عليكم
اريد من الاخوة المعنين وضع كود
موقت يقوم بتفيذ الكود المطلوب
بوقت يحدده المستخدم
المشروع في المرفقات بالكامل
اما الكود المراد تعديلة هوا
كود :
Private Sub xml(ByVal sender As Object, ByVal xmlq As String)
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf xml), New Object() {sender, xmlq})
Else
xmlq = Replace(xmlq, """", "'")
'اريد وضع تايمر او موقت لتشغيل هذا الكود
'بحيث يحدد المستخدم الوقت لتفيذ هذا الكود ادناه
If (InStr(xmlq, "code='407'")) Then
Label1.Text = "Room member only/الغرفة للأعضـاء فقط"
Label1.ForeColor = Color.Red
End If
End If
End Sub