(10-06-17, 09:20 PM)e-coder كتب :سلام عليكماريد فقط الغاء او مسحكلمةconference.nimbuzz.comفي هذا الكودلا اريد ان تظهر اللسته هكذاPHP كود :
Private Sub xml1(ByVal sender As Object, ByVal xml As String)
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New XmlHandler(AddressOf xml1), New Object() {sender, xml})
Else
xml = xml.Replace("""", "'")
If (xml.IndexOf("from='conference.nimbuzz.com'") <> -1) Then
If (xml.IndexOf("<field var='jid' type='jid-single'><value>") <> -1) Then
Dim str As String = xml.Substring((xml.IndexOf("<field var='jid' type='jid-single'><value>") + 42))
str = str.Substring(0, str.IndexOf("</value>"))
If (xml.IndexOf("<field var='num_users' type='text-single'><value>") <> -1) Then
Dim str2 As String = xml.Substring((xml.IndexOf("<field var='num_users' type='text-single'><value>") + 49))
str2 = str2.Substring(0, str2.IndexOf("</value>"))
Me.ListBox1.Items.Add((str & " 25/" & str2))
End If
Else
Me.lblinfo.Text = "Dosetn Exist any room with this keyword"
Me.Button4_Click(Nothing, Nothing)
End If
End If
End If
End Sub
ولكن اريد فقط مسحconference.nimbuzz.comلتيقي الاسماء لحالهاالمشروع بالمرفقاتومشروع فيه كافه البيانات فقطعليكم هوا تغط عloginومن ثمstartلتعرفو ماهي المشكلةوشكراً
تفظل اخي اتمنى ان يكون هذا المطلوب
