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
11-06-17, 04:53 AM (آخر تعديل لهذه المشاركة : 11-06-17, 05:13 AM {2} بواسطة bidaya.)
(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
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
لتعرفو ماهي المشكلة
وشكراً
تفظل اخي اتمنى ان يكون هذا المطلوب
اخي بارك الله فيك ولكن اسماء الغرف تظهر غير مكتملة
12-06-17, 03:45 PM (آخر تعديل لهذه المشاركة : 12-06-17, 06:59 PM {2} بواسطة e-coder.)
(11-06-17, 06:47 PM)anes كتب : تفظل اخي تم التعديل
يسلموا مبدع
اخي طلب صغير كيف ممكن نعمل ريستات بحيث يمكن البحث مرة اخري
انا عملت هيك ولكن لم ينجح
Timer1.Enabled = False
Me.i = 0
اريد فقط العودة للبحث مرة اخري
مع العلم اني حصلت ع كود وقد حاولت ان افك تشفيرة
وهي النتيجة
PHP كود :
Private Sub Xml(ByVal sender As Object, ByVal reza As String) Dim num2 As Integer Try Dim num3 As Integer Label_0001: ProjectData.ClearProjectError Dim num As Integer = -2 Label_000A: num3 = 2 If Not MyBase.InvokeRequired Then goto Label_0050 End If Label_0019: num3 = 3 MyBase.BeginInvoke(New XmlHandler(AddressOf Me.Xml), New Object() { RuntimeHelpers.GetObjectValue(sender), reza }) goto Label_026A Label_0050: num3 = 5 Label_0054: num3 = 6 reza = Strings.LCase(Strings.Replace(reza, """", "'", 1, -1, CompareMethod.Binary)) Label_0071: num3 = 7 If (Strings.InStr(reza, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl' />", CompareMethod.Binary) <= 0) Then goto Label_00AF End If Label_0089: num3 = 8 Me.wait(&H7D0) Label_0098: num3 = 9 Me.Button1.Text = "نجح تسجيل الدخول" goto Label_0107 Label_00AF: num3 = 11 If (Strings.InStr(reza, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized /></failure>", CompareMethod.Binary) <= 0) Then goto Label_0107 End If Label_00C8: num3 = 12 Me.Button1.Text = "فشل تسجيل الدخول" Label_00DD: num3 = 13 Me.TextBox3.ReadOnly = False Label_00EE: num3 = 14 Me.TextBox3.ReadOnly = False Label_00FF: num3 = 15 reza = Nothing Label_0107: num3 = &H11 If (Strings.InStr(reza, "<message xmlns='jabber:client", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_0123: num3 = &H12 If (Strings.InStr(reza, "@conference.nimbuzz.com/", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_013F: num3 = &H13 Dim left As Object = Strings.InStr(Strings.LCase(reza), "@conference.nimbuzz.com/", CompareMethod.Binary) Label_015A: num3 = 20 Dim obj5 As Object = Strings.InStr(Strings.LCase(reza), "' to", CompareMethod.Binary) Label_0175: num3 = &H15 Dim obj3 As Object = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, &H18)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), &H18))) Label_01AA: num3 = &H16 obj3 = Strings.Replace(Conversions.ToString(obj3), " ", "", 1, -1, CompareMethod.Binary) Label_01C7: num3 = &H17 left = Strings.InStr(Strings.LCase(reza), "<body>", CompareMethod.Binary) Label_01E2: num3 = &H18 obj5 = Strings.InStr(Strings.LCase(reza), "</body>", CompareMethod.Binary) Label_01FD: num3 = &H19 Dim obj2 As Object = Strings.LCase(Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, 6)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), 6)))) Label_0235: num3 = &H1A If Not Operators.ConditionalCompareObjectEqual(obj3, "admin", False) Then goto Label_026A End If Label_024B: num3 = &H1B Me.rd_admin = Conversions.ToString(Me.admin(Conversions.ToString(obj2))) Label_026A: num3 = &H20 If (Strings.InStr(reza, "nimbuzz_searchrooms", CompareMethod.Binary) <= 0) Then goto Label_0511 End If Label_0286: num3 = &H21 Dim obj6 As Object = 0 Label_0292: num3 = &H22 Me.TextBox1.Text = "" Label_02A8: num3 = &H24 obj6 = Operators.AddObject(obj6, 1) Label_02BB: num3 = &H25 Dim obj8 As Object = Strings.InStr(reza, "'jid'><value>", CompareMethod.Binary) Label_02D2: num3 = &H26 Dim obj7 As Object = Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) Label_02E9: num3 = &H27 Dim box As TextBox = Me.TextBox1 box.Text = (box.Text & Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj8, 13)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj7, obj8), 13))) & ChrW(13) & ChrW(10)) Label_0341: num3 = 40 reza = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj7, &H1F)), Conversions.ToInteger(Operators.AddObject(Operators.SubtractObject(reza.Length, obj7), &H1F))) Label_0383: num3 = &H29 If (Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) > 0) Then goto Label_02A8 End If Label_039F: num3 = &H2A Me.TextBox1.Text = Strings.Mid(Me.TextBox1.Text, 1, (Me.TextBox1.Text.Length - 2)) Label_03D2: num3 = &H2B Me.Button3.Text = "بحث" Label_03E7: num3 = &H2C reza = "" goto Label_0511 Label_0400: num2 = 0 Select Case (num2 + 1) Case 1 goto Label_0001 Case 2 goto Label_000A Case 3 goto Label_0019 Case 4, &H1C, &H1D, 30, &H1F, &H20 goto Label_026A Case 5 goto Label_0050 Case 6 goto Label_0054 Case 7 goto Label_0071 Case 8 goto Label_0089 Case 9 goto Label_0098 Case 10, &H10, &H11 goto Label_0107 Case 11 goto Label_00AF Case 12 goto Label_00C8 Case 13 goto Label_00DD Case 14 goto Label_00EE Case 15 goto Label_00FF Case &H12 goto Label_0123 Case &H13 goto Label_013F Case 20 goto Label_015A Case &H15 goto Label_0175 Case &H16 goto Label_01AA Case &H17 goto Label_01C7 Case &H18 goto Label_01E2 Case &H19 goto Label_01FD Case &H1A goto Label_0235 Case &H1B goto Label_024B Case &H21 goto Label_0286 Case &H22 goto Label_0292 Case &H23, &H24 goto Label_02A8 Case &H25 goto Label_02BB Case &H26 goto Label_02D2 Case &H27 goto Label_02E9 Case 40 goto Label_0341 Case &H29 goto Label_0383 Case &H2A goto Label_039F Case &H2B goto Label_03D2 Case &H2C goto Label_03E7 Case &H2D, &H2E goto Label_0511 Case Else goto Label_0506 End Select Label_04C6: num2 = num3 Select Case If((num > -2), num, 1) Case 0 goto Label_0506 Case 1 goto Label_0400 End Select Catch obj1 As Object When (?) ProjectData.SetProjectError(DirectCast(obj1, Exception)) goto Label_04C6 End Try Label_0506: Throw ProjectData.CreateProjectError(-2146828237) Label_0511: If (num2 <> 0) Then ProjectData.ClearProjectError End If End Sub
Private Sub Xml(ByVal sender As Object, ByVal reza As String) Dim num2 As Integer Try Dim num3 As Integer Label_0001: ProjectData.ClearProjectError Dim num As Integer = -2 Label_000A: num3 = 2 If Not MyBase.InvokeRequired Then goto Label_0050 End If Label_0019: num3 = 3 MyBase.BeginInvoke(New XmlHandler(AddressOf Me.Xml), New Object() { RuntimeHelpers.GetObjectValue(sender), reza }) goto Label_026A Label_0050: num3 = 5 Label_0054: num3 = 6 reza = Strings.LCase(Strings.Replace(reza, """", "'", 1, -1, CompareMethod.Binary)) Label_0071: num3 = 7 If (Strings.InStr(reza, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl' />", CompareMethod.Binary) <= 0) Then goto Label_00AF End If Label_0089: num3 = 8 Me.wait(&H7D0) Label_0098: num3 = 9 Me.Button1.Text = "نجح تسجيل الدخول" goto Label_0107 Label_00AF: num3 = 11 If (Strings.InStr(reza, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized /></failure>", CompareMethod.Binary) <= 0) Then goto Label_0107 End If Label_00C8: num3 = 12 Me.Button1.Text = "فشل تسجيل الدخول" Label_00DD: num3 = 13 Me.TextBox3.ReadOnly = False Label_00EE: num3 = 14 Me.TextBox3.ReadOnly = False Label_00FF: num3 = 15 reza = Nothing Label_0107: num3 = &H11 If (Strings.InStr(reza, "<message xmlns='jabber:client", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_0123: num3 = &H12 If (Strings.InStr(reza, "@conference.nimbuzz.com/", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_013F: num3 = &H13 Dim left As Object = Strings.InStr(Strings.LCase(reza), "@conference.nimbuzz.com/", CompareMethod.Binary) Label_015A: num3 = 20 Dim obj5 As Object = Strings.InStr(Strings.LCase(reza), "' to", CompareMethod.Binary) Label_0175: num3 = &H15 Dim obj3 As Object = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, &H18)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), &H18))) Label_01AA: num3 = &H16 obj3 = Strings.Replace(Conversions.ToString(obj3), " ", "", 1, -1, CompareMethod.Binary) Label_01C7: num3 = &H17 left = Strings.InStr(Strings.LCase(reza), "<body>", CompareMethod.Binary) Label_01E2: num3 = &H18 obj5 = Strings.InStr(Strings.LCase(reza), "</body>", CompareMethod.Binary) Label_01FD: num3 = &H19 Dim obj2 As Object = Strings.LCase(Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, 6)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), 6)))) Label_0235: num3 = &H1A If Not Operators.ConditionalCompareObjectEqual(obj3, "admin", False) Then goto Label_026A End If Label_024B: num3 = &H1B Me.rd_admin = Conversions.ToString(Me.admin(Conversions.ToString(obj2))) Label_026A: num3 = &H20 If (Strings.InStr(reza, "nimbuzz_searchrooms", CompareMethod.Binary) <= 0) Then goto Label_0511 End If Label_0286: num3 = &H21 Dim obj6 As Object = 0 Label_0292: num3 = &H22 Me.TextBox1.Text = "" Label_02A8: num3 = &H24 obj6 = Operators.AddObject(obj6, 1) Label_02BB: num3 = &H25 Dim obj8 As Object = Strings.InStr(reza, "'jid'><value>", CompareMethod.Binary) Label_02D2: num3 = &H26 Dim obj7 As Object = Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) Label_02E9: num3 = &H27 Dim box As TextBox = Me.TextBox1 box.Text = (box.Text & Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj8, 13)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj7, obj8), 13))) & ChrW(13) & ChrW(10)) Label_0341: num3 = 40 reza = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj7, &H1F)), Conversions.ToInteger(Operators.AddObject(Operators.SubtractObject(reza.Length, obj7), &H1F))) Label_0383: num3 = &H29 If (Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) > 0) Then goto Label_02A8 End If Label_039F: num3 = &H2A Me.TextBox1.Text = Strings.Mid(Me.TextBox1.Text, 1, (Me.TextBox1.Text.Length - 2)) Label_03D2: num3 = &H2B Me.Button3.Text = "بحث" Label_03E7: num3 = &H2C reza = "" goto Label_0511 Label_0400: num2 = 0 Select Case (num2 + 1) Case 1 goto Label_0001 Case 2 goto Label_000A Case 3 goto Label_0019 Case 4, &H1C, &H1D, 30, &H1F, &H20 goto Label_026A Case 5 goto Label_0050 Case 6 goto Label_0054 Case 7 goto Label_0071 Case 8 goto Label_0089 Case 9 goto Label_0098 Case 10, &H10, &H11 goto Label_0107 Case 11 goto Label_00AF Case 12 goto Label_00C8 Case 13 goto Label_00DD Case 14 goto Label_00EE Case 15 goto Label_00FF Case &H12 goto Label_0123 Case &H13 goto Label_013F Case 20 goto Label_015A Case &H15 goto Label_0175 Case &H16 goto Label_01AA Case &H17 goto Label_01C7 Case &H18 goto Label_01E2 Case &H19 goto Label_01FD Case &H1A goto Label_0235 Case &H1B goto Label_024B Case &H21 goto Label_0286 Case &H22 goto Label_0292 Case &H23, &H24 goto Label_02A8 Case &H25 goto Label_02BB Case &H26 goto Label_02D2 Case &H27 goto Label_02E9 Case 40 goto Label_0341 Case &H29 goto Label_0383 Case &H2A goto Label_039F Case &H2B goto Label_03D2 Case &H2C goto Label_03E7 Case &H2D, &H2E goto Label_0511 Case Else goto Label_0506 End Select Label_04C6: num2 = num3 Select Case If((num > -2), num, 1) Case 0 goto Label_0506 Case 1 goto Label_0400 End Select Catch obj1 As Object When (?) ProjectData.SetProjectError(DirectCast(obj1, Exception)) goto Label_04C6 End Try Label_0506: Throw ProjectData.CreateProjectError(-2146828237) Label_0511: If (num2 <> 0) Then ProjectData.ClearProjectError End If End Sub
(11-06-17, 06:47 PM)anes كتب : تفظل اخي تم التعديل
يسلموا مبدع
اخي طلب صغير كيف ممكن نعمل ريستات بحيث يمكن البحث مرة اخري
انا عملت هيك ولكن لم ينجح
Timer1.Enabled = False
Me.i = 0
اريد فقط العودة للبحث مرة اخري
مع العلم اني حصلت ع كود وقد حاولت ان افك تشفيرة
وهي النتيجة
PHP كود :
Private Sub Xml(ByVal sender As Object, ByVal reza As String) Dim num2 As Integer Try Dim num3 As Integer Label_0001: ProjectData.ClearProjectError Dim num As Integer = -2 Label_000A: num3 = 2 If Not MyBase.InvokeRequired Then goto Label_0050 End If Label_0019: num3 = 3 MyBase.BeginInvoke(New XmlHandler(AddressOf Me.Xml), New Object() { RuntimeHelpers.GetObjectValue(sender), reza }) goto Label_026A Label_0050: num3 = 5 Label_0054: num3 = 6 reza = Strings.LCase(Strings.Replace(reza, """", "'", 1, -1, CompareMethod.Binary)) Label_0071: num3 = 7 If (Strings.InStr(reza, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl' />", CompareMethod.Binary) <= 0) Then goto Label_00AF End If Label_0089: num3 = 8 Me.wait(&H7D0) Label_0098: num3 = 9 Me.Button1.Text = "نجح تسجيل الدخول" goto Label_0107 Label_00AF: num3 = 11 If (Strings.InStr(reza, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized /></failure>", CompareMethod.Binary) <= 0) Then goto Label_0107 End If Label_00C8: num3 = 12 Me.Button1.Text = "فشل تسجيل الدخول" Label_00DD: num3 = 13 Me.TextBox3.ReadOnly = False Label_00EE: num3 = 14 Me.TextBox3.ReadOnly = False Label_00FF: num3 = 15 reza = Nothing Label_0107: num3 = &H11 If (Strings.InStr(reza, "<message xmlns='jabber:client", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_0123: num3 = &H12 If (Strings.InStr(reza, "@conference.nimbuzz.com/", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_013F: num3 = &H13 Dim left As Object = Strings.InStr(Strings.LCase(reza), "@conference.nimbuzz.com/", CompareMethod.Binary) Label_015A: num3 = 20 Dim obj5 As Object = Strings.InStr(Strings.LCase(reza), "' to", CompareMethod.Binary) Label_0175: num3 = &H15 Dim obj3 As Object = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, &H18)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), &H18))) Label_01AA: num3 = &H16 obj3 = Strings.Replace(Conversions.ToString(obj3), " ", "", 1, -1, CompareMethod.Binary) Label_01C7: num3 = &H17 left = Strings.InStr(Strings.LCase(reza), "<body>", CompareMethod.Binary) Label_01E2: num3 = &H18 obj5 = Strings.InStr(Strings.LCase(reza), "</body>", CompareMethod.Binary) Label_01FD: num3 = &H19 Dim obj2 As Object = Strings.LCase(Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, 6)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), 6)))) Label_0235: num3 = &H1A If Not Operators.ConditionalCompareObjectEqual(obj3, "admin", False) Then goto Label_026A End If Label_024B: num3 = &H1B Me.rd_admin = Conversions.ToString(Me.admin(Conversions.ToString(obj2))) Label_026A: num3 = &H20 If (Strings.InStr(reza, "nimbuzz_searchrooms", CompareMethod.Binary) <= 0) Then goto Label_0511 End If Label_0286: num3 = &H21 Dim obj6 As Object = 0 Label_0292: num3 = &H22 Me.TextBox1.Text = "" Label_02A8: num3 = &H24 obj6 = Operators.AddObject(obj6, 1) Label_02BB: num3 = &H25 Dim obj8 As Object = Strings.InStr(reza, "'jid'><value>", CompareMethod.Binary) Label_02D2: num3 = &H26 Dim obj7 As Object = Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) Label_02E9: num3 = &H27 Dim box As TextBox = Me.TextBox1 box.Text = (box.Text & Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj8, 13)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj7, obj8), 13))) & ChrW(13) & ChrW(10)) Label_0341: num3 = 40 reza = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj7, &H1F)), Conversions.ToInteger(Operators.AddObject(Operators.SubtractObject(reza.Length, obj7), &H1F))) Label_0383: num3 = &H29 If (Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) > 0) Then goto Label_02A8 End If Label_039F: num3 = &H2A Me.TextBox1.Text = Strings.Mid(Me.TextBox1.Text, 1, (Me.TextBox1.Text.Length - 2)) Label_03D2: num3 = &H2B Me.Button3.Text = "بحث" Label_03E7: num3 = &H2C reza = "" goto Label_0511 Label_0400: num2 = 0 Select Case (num2 + 1) Case 1 goto Label_0001 Case 2 goto Label_000A Case 3 goto Label_0019 Case 4, &H1C, &H1D, 30, &H1F, &H20 goto Label_026A Case 5 goto Label_0050 Case 6 goto Label_0054 Case 7 goto Label_0071 Case 8 goto Label_0089 Case 9 goto Label_0098 Case 10, &H10, &H11 goto Label_0107 Case 11 goto Label_00AF Case 12 goto Label_00C8 Case 13 goto Label_00DD Case 14 goto Label_00EE Case 15 goto Label_00FF Case &H12 goto Label_0123 Case &H13 goto Label_013F Case 20 goto Label_015A Case &H15 goto Label_0175 Case &H16 goto Label_01AA Case &H17 goto Label_01C7 Case &H18 goto Label_01E2 Case &H19 goto Label_01FD Case &H1A goto Label_0235 Case &H1B goto Label_024B Case &H21 goto Label_0286 Case &H22 goto Label_0292 Case &H23, &H24 goto Label_02A8 Case &H25 goto Label_02BB Case &H26 goto Label_02D2 Case &H27 goto Label_02E9 Case 40 goto Label_0341 Case &H29 goto Label_0383 Case &H2A goto Label_039F Case &H2B goto Label_03D2 Case &H2C goto Label_03E7 Case &H2D, &H2E goto Label_0511 Case Else goto Label_0506 End Select Label_04C6: num2 = num3 Select Case If((num > -2), num, 1) Case 0 goto Label_0506 Case 1 goto Label_0400 End Select Catch obj1 As Object When (?) ProjectData.SetProjectError(DirectCast(obj1, Exception)) goto Label_04C6 End Try Label_0506: Throw ProjectData.CreateProjectError(-2146828237) Label_0511: If (num2 <> 0) Then ProjectData.ClearProjectError End If End Sub
Private Sub Xml(ByVal sender As Object, ByVal reza As String) Dim num2 As Integer Try Dim num3 As Integer Label_0001: ProjectData.ClearProjectError Dim num As Integer = -2 Label_000A: num3 = 2 If Not MyBase.InvokeRequired Then goto Label_0050 End If Label_0019: num3 = 3 MyBase.BeginInvoke(New XmlHandler(AddressOf Me.Xml), New Object() { RuntimeHelpers.GetObjectValue(sender), reza }) goto Label_026A Label_0050: num3 = 5 Label_0054: num3 = 6 reza = Strings.LCase(Strings.Replace(reza, """", "'", 1, -1, CompareMethod.Binary)) Label_0071: num3 = 7 If (Strings.InStr(reza, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl' />", CompareMethod.Binary) <= 0) Then goto Label_00AF End If Label_0089: num3 = 8 Me.wait(&H7D0) Label_0098: num3 = 9 Me.Button1.Text = "نجح تسجيل الدخول" goto Label_0107 Label_00AF: num3 = 11 If (Strings.InStr(reza, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized /></failure>", CompareMethod.Binary) <= 0) Then goto Label_0107 End If Label_00C8: num3 = 12 Me.Button1.Text = "فشل تسجيل الدخول" Label_00DD: num3 = 13 Me.TextBox3.ReadOnly = False Label_00EE: num3 = 14 Me.TextBox3.ReadOnly = False Label_00FF: num3 = 15 reza = Nothing Label_0107: num3 = &H11 If (Strings.InStr(reza, "<message xmlns='jabber:client", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_0123: num3 = &H12 If (Strings.InStr(reza, "@conference.nimbuzz.com/", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_013F: num3 = &H13 Dim left As Object = Strings.InStr(Strings.LCase(reza), "@conference.nimbuzz.com/", CompareMethod.Binary) Label_015A: num3 = 20 Dim obj5 As Object = Strings.InStr(Strings.LCase(reza), "' to", CompareMethod.Binary) Label_0175: num3 = &H15 Dim obj3 As Object = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, &H18)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), &H18))) Label_01AA: num3 = &H16 obj3 = Strings.Replace(Conversions.ToString(obj3), " ", "", 1, -1, CompareMethod.Binary) Label_01C7: num3 = &H17 left = Strings.InStr(Strings.LCase(reza), "<body>", CompareMethod.Binary) Label_01E2: num3 = &H18 obj5 = Strings.InStr(Strings.LCase(reza), "</body>", CompareMethod.Binary) Label_01FD: num3 = &H19 Dim obj2 As Object = Strings.LCase(Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, 6)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), 6)))) Label_0235: num3 = &H1A If Not Operators.ConditionalCompareObjectEqual(obj3, "admin", False) Then goto Label_026A End If Label_024B: num3 = &H1B Me.rd_admin = Conversions.ToString(Me.admin(Conversions.ToString(obj2))) Label_026A: num3 = &H20 If (Strings.InStr(reza, "nimbuzz_searchrooms", CompareMethod.Binary) <= 0) Then goto Label_0511 End If Label_0286: num3 = &H21 Dim obj6 As Object = 0 Label_0292: num3 = &H22 Me.TextBox1.Text = "" Label_02A8: num3 = &H24 obj6 = Operators.AddObject(obj6, 1) Label_02BB: num3 = &H25 Dim obj8 As Object = Strings.InStr(reza, "'jid'><value>", CompareMethod.Binary) Label_02D2: num3 = &H26 Dim obj7 As Object = Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) Label_02E9: num3 = &H27 Dim box As TextBox = Me.TextBox1 box.Text = (box.Text & Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj8, 13)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj7, obj8), 13))) & ChrW(13) & ChrW(10)) Label_0341: num3 = 40 reza = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj7, &H1F)), Conversions.ToInteger(Operators.AddObject(Operators.SubtractObject(reza.Length, obj7), &H1F))) Label_0383: num3 = &H29 If (Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) > 0) Then goto Label_02A8 End If Label_039F: num3 = &H2A Me.TextBox1.Text = Strings.Mid(Me.TextBox1.Text, 1, (Me.TextBox1.Text.Length - 2)) Label_03D2: num3 = &H2B Me.Button3.Text = "بحث" Label_03E7: num3 = &H2C reza = "" goto Label_0511 Label_0400: num2 = 0 Select Case (num2 + 1) Case 1 goto Label_0001 Case 2 goto Label_000A Case 3 goto Label_0019 Case 4, &H1C, &H1D, 30, &H1F, &H20 goto Label_026A Case 5 goto Label_0050 Case 6 goto Label_0054 Case 7 goto Label_0071 Case 8 goto Label_0089 Case 9 goto Label_0098 Case 10, &H10, &H11 goto Label_0107 Case 11 goto Label_00AF Case 12 goto Label_00C8 Case 13 goto Label_00DD Case 14 goto Label_00EE Case 15 goto Label_00FF Case &H12 goto Label_0123 Case &H13 goto Label_013F Case 20 goto Label_015A Case &H15 goto Label_0175 Case &H16 goto Label_01AA Case &H17 goto Label_01C7 Case &H18 goto Label_01E2 Case &H19 goto Label_01FD Case &H1A goto Label_0235 Case &H1B goto Label_024B Case &H21 goto Label_0286 Case &H22 goto Label_0292 Case &H23, &H24 goto Label_02A8 Case &H25 goto Label_02BB Case &H26 goto Label_02D2 Case &H27 goto Label_02E9 Case 40 goto Label_0341 Case &H29 goto Label_0383 Case &H2A goto Label_039F Case &H2B goto Label_03D2 Case &H2C goto Label_03E7 Case &H2D, &H2E goto Label_0511 Case Else goto Label_0506 End Select Label_04C6: num2 = num3 Select Case If((num > -2), num, 1) Case 0 goto Label_0506 Case 1 goto Label_0400 End Select Catch obj1 As Object When (?) ProjectData.SetProjectError(DirectCast(obj1, Exception)) goto Label_04C6 End Try Label_0506: Throw ProjectData.CreateProjectError(-2146828237) Label_0511: If (num2 <> 0) Then ProjectData.ClearProjectError End If End Sub
(11-06-17, 06:47 PM)anes كتب : تفظل اخي تم التعديل
يسلموا مبدع
اخي طلب صغير كيف ممكن نعمل ريستات بحيث يمكن البحث مرة اخري
انا عملت هيك ولكن لم ينجح
Timer1.Enabled = False
Me.i = 0
اريد فقط العودة للبحث مرة اخري
مع العلم اني حصلت ع كود وقد حاولت ان افك تشفيرة
وهي النتيجة
PHP كود :
Private Sub Xml(ByVal sender As Object, ByVal reza As String) Dim num2 As Integer Try Dim num3 As Integer Label_0001: ProjectData.ClearProjectError Dim num As Integer = -2 Label_000A: num3 = 2 If Not MyBase.InvokeRequired Then goto Label_0050 End If Label_0019: num3 = 3 MyBase.BeginInvoke(New XmlHandler(AddressOf Me.Xml), New Object() { RuntimeHelpers.GetObjectValue(sender), reza }) goto Label_026A Label_0050: num3 = 5 Label_0054: num3 = 6 reza = Strings.LCase(Strings.Replace(reza, """", "'", 1, -1, CompareMethod.Binary)) Label_0071: num3 = 7 If (Strings.InStr(reza, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl' />", CompareMethod.Binary) <= 0) Then goto Label_00AF End If Label_0089: num3 = 8 Me.wait(&H7D0) Label_0098: num3 = 9 Me.Button1.Text = "نجح تسجيل الدخول" goto Label_0107 Label_00AF: num3 = 11 If (Strings.InStr(reza, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized /></failure>", CompareMethod.Binary) <= 0) Then goto Label_0107 End If Label_00C8: num3 = 12 Me.Button1.Text = "فشل تسجيل الدخول" Label_00DD: num3 = 13 Me.TextBox3.ReadOnly = False Label_00EE: num3 = 14 Me.TextBox3.ReadOnly = False Label_00FF: num3 = 15 reza = Nothing Label_0107: num3 = &H11 If (Strings.InStr(reza, "<message xmlns='jabber:client", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_0123: num3 = &H12 If (Strings.InStr(reza, "@conference.nimbuzz.com/", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_013F: num3 = &H13 Dim left As Object = Strings.InStr(Strings.LCase(reza), "@conference.nimbuzz.com/", CompareMethod.Binary) Label_015A: num3 = 20 Dim obj5 As Object = Strings.InStr(Strings.LCase(reza), "' to", CompareMethod.Binary) Label_0175: num3 = &H15 Dim obj3 As Object = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, &H18)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), &H18))) Label_01AA: num3 = &H16 obj3 = Strings.Replace(Conversions.ToString(obj3), " ", "", 1, -1, CompareMethod.Binary) Label_01C7: num3 = &H17 left = Strings.InStr(Strings.LCase(reza), "<body>", CompareMethod.Binary) Label_01E2: num3 = &H18 obj5 = Strings.InStr(Strings.LCase(reza), "</body>", CompareMethod.Binary) Label_01FD: num3 = &H19 Dim obj2 As Object = Strings.LCase(Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, 6)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), 6)))) Label_0235: num3 = &H1A If Not Operators.ConditionalCompareObjectEqual(obj3, "admin", False) Then goto Label_026A End If Label_024B: num3 = &H1B Me.rd_admin = Conversions.ToString(Me.admin(Conversions.ToString(obj2))) Label_026A: num3 = &H20 If (Strings.InStr(reza, "nimbuzz_searchrooms", CompareMethod.Binary) <= 0) Then goto Label_0511 End If Label_0286: num3 = &H21 Dim obj6 As Object = 0 Label_0292: num3 = &H22 Me.TextBox1.Text = "" Label_02A8: num3 = &H24 obj6 = Operators.AddObject(obj6, 1) Label_02BB: num3 = &H25 Dim obj8 As Object = Strings.InStr(reza, "'jid'><value>", CompareMethod.Binary) Label_02D2: num3 = &H26 Dim obj7 As Object = Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) Label_02E9: num3 = &H27 Dim box As TextBox = Me.TextBox1 box.Text = (box.Text & Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj8, 13)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj7, obj8), 13))) & ChrW(13) & ChrW(10)) Label_0341: num3 = 40 reza = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj7, &H1F)), Conversions.ToInteger(Operators.AddObject(Operators.SubtractObject(reza.Length, obj7), &H1F))) Label_0383: num3 = &H29 If (Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) > 0) Then goto Label_02A8 End If Label_039F: num3 = &H2A Me.TextBox1.Text = Strings.Mid(Me.TextBox1.Text, 1, (Me.TextBox1.Text.Length - 2)) Label_03D2: num3 = &H2B Me.Button3.Text = "بحث" Label_03E7: num3 = &H2C reza = "" goto Label_0511 Label_0400: num2 = 0 Select Case (num2 + 1) Case 1 goto Label_0001 Case 2 goto Label_000A Case 3 goto Label_0019 Case 4, &H1C, &H1D, 30, &H1F, &H20 goto Label_026A Case 5 goto Label_0050 Case 6 goto Label_0054 Case 7 goto Label_0071 Case 8 goto Label_0089 Case 9 goto Label_0098 Case 10, &H10, &H11 goto Label_0107 Case 11 goto Label_00AF Case 12 goto Label_00C8 Case 13 goto Label_00DD Case 14 goto Label_00EE Case 15 goto Label_00FF Case &H12 goto Label_0123 Case &H13 goto Label_013F Case 20 goto Label_015A Case &H15 goto Label_0175 Case &H16 goto Label_01AA Case &H17 goto Label_01C7 Case &H18 goto Label_01E2 Case &H19 goto Label_01FD Case &H1A goto Label_0235 Case &H1B goto Label_024B Case &H21 goto Label_0286 Case &H22 goto Label_0292 Case &H23, &H24 goto Label_02A8 Case &H25 goto Label_02BB Case &H26 goto Label_02D2 Case &H27 goto Label_02E9 Case 40 goto Label_0341 Case &H29 goto Label_0383 Case &H2A goto Label_039F Case &H2B goto Label_03D2 Case &H2C goto Label_03E7 Case &H2D, &H2E goto Label_0511 Case Else goto Label_0506 End Select Label_04C6: num2 = num3 Select Case If((num > -2), num, 1) Case 0 goto Label_0506 Case 1 goto Label_0400 End Select Catch obj1 As Object When (?) ProjectData.SetProjectError(DirectCast(obj1, Exception)) goto Label_04C6 End Try Label_0506: Throw ProjectData.CreateProjectError(-2146828237) Label_0511: If (num2 <> 0) Then ProjectData.ClearProjectError End If End Sub
Private Sub Xml(ByVal sender As Object, ByVal reza As String) Dim num2 As Integer Try Dim num3 As Integer Label_0001: ProjectData.ClearProjectError Dim num As Integer = -2 Label_000A: num3 = 2 If Not MyBase.InvokeRequired Then goto Label_0050 End If Label_0019: num3 = 3 MyBase.BeginInvoke(New XmlHandler(AddressOf Me.Xml), New Object() { RuntimeHelpers.GetObjectValue(sender), reza }) goto Label_026A Label_0050: num3 = 5 Label_0054: num3 = 6 reza = Strings.LCase(Strings.Replace(reza, """", "'", 1, -1, CompareMethod.Binary)) Label_0071: num3 = 7 If (Strings.InStr(reza, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl' />", CompareMethod.Binary) <= 0) Then goto Label_00AF End If Label_0089: num3 = 8 Me.wait(&H7D0) Label_0098: num3 = 9 Me.Button1.Text = "نجح تسجيل الدخول" goto Label_0107 Label_00AF: num3 = 11 If (Strings.InStr(reza, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized /></failure>", CompareMethod.Binary) <= 0) Then goto Label_0107 End If Label_00C8: num3 = 12 Me.Button1.Text = "فشل تسجيل الدخول" Label_00DD: num3 = 13 Me.TextBox3.ReadOnly = False Label_00EE: num3 = 14 Me.TextBox3.ReadOnly = False Label_00FF: num3 = 15 reza = Nothing Label_0107: num3 = &H11 If (Strings.InStr(reza, "<message xmlns='jabber:client", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_0123: num3 = &H12 If (Strings.InStr(reza, "@conference.nimbuzz.com/", CompareMethod.Binary) <= 0) Then goto Label_026A End If Label_013F: num3 = &H13 Dim left As Object = Strings.InStr(Strings.LCase(reza), "@conference.nimbuzz.com/", CompareMethod.Binary) Label_015A: num3 = 20 Dim obj5 As Object = Strings.InStr(Strings.LCase(reza), "' to", CompareMethod.Binary) Label_0175: num3 = &H15 Dim obj3 As Object = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, &H18)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), &H18))) Label_01AA: num3 = &H16 obj3 = Strings.Replace(Conversions.ToString(obj3), " ", "", 1, -1, CompareMethod.Binary) Label_01C7: num3 = &H17 left = Strings.InStr(Strings.LCase(reza), "<body>", CompareMethod.Binary) Label_01E2: num3 = &H18 obj5 = Strings.InStr(Strings.LCase(reza), "</body>", CompareMethod.Binary) Label_01FD: num3 = &H19 Dim obj2 As Object = Strings.LCase(Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(left, 6)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj5, left), 6)))) Label_0235: num3 = &H1A If Not Operators.ConditionalCompareObjectEqual(obj3, "admin", False) Then goto Label_026A End If Label_024B: num3 = &H1B Me.rd_admin = Conversions.ToString(Me.admin(Conversions.ToString(obj2))) Label_026A: num3 = &H20 If (Strings.InStr(reza, "nimbuzz_searchrooms", CompareMethod.Binary) <= 0) Then goto Label_0511 End If Label_0286: num3 = &H21 Dim obj6 As Object = 0 Label_0292: num3 = &H22 Me.TextBox1.Text = "" Label_02A8: num3 = &H24 obj6 = Operators.AddObject(obj6, 1) Label_02BB: num3 = &H25 Dim obj8 As Object = Strings.InStr(reza, "'jid'><value>", CompareMethod.Binary) Label_02D2: num3 = &H26 Dim obj7 As Object = Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) Label_02E9: num3 = &H27 Dim box As TextBox = Me.TextBox1 box.Text = (box.Text & Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj8, 13)), Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(obj7, obj8), 13))) & ChrW(13) & ChrW(10)) Label_0341: num3 = 40 reza = Strings.Mid(reza, Conversions.ToInteger(Operators.AddObject(obj7, &H1F)), Conversions.ToInteger(Operators.AddObject(Operators.SubtractObject(reza.Length, obj7), &H1F))) Label_0383: num3 = &H29 If (Strings.InStr(reza, "@conference.nimbuzz.com</value>", CompareMethod.Binary) > 0) Then goto Label_02A8 End If Label_039F: num3 = &H2A Me.TextBox1.Text = Strings.Mid(Me.TextBox1.Text, 1, (Me.TextBox1.Text.Length - 2)) Label_03D2: num3 = &H2B Me.Button3.Text = "بحث" Label_03E7: num3 = &H2C reza = "" goto Label_0511 Label_0400: num2 = 0 Select Case (num2 + 1) Case 1 goto Label_0001 Case 2 goto Label_000A Case 3 goto Label_0019 Case 4, &H1C, &H1D, 30, &H1F, &H20 goto Label_026A Case 5 goto Label_0050 Case 6 goto Label_0054 Case 7 goto Label_0071 Case 8 goto Label_0089 Case 9 goto Label_0098 Case 10, &H10, &H11 goto Label_0107 Case 11 goto Label_00AF Case 12 goto Label_00C8 Case 13 goto Label_00DD Case 14 goto Label_00EE Case 15 goto Label_00FF Case &H12 goto Label_0123 Case &H13 goto Label_013F Case 20 goto Label_015A Case &H15 goto Label_0175 Case &H16 goto Label_01AA Case &H17 goto Label_01C7 Case &H18 goto Label_01E2 Case &H19 goto Label_01FD Case &H1A goto Label_0235 Case &H1B goto Label_024B Case &H21 goto Label_0286 Case &H22 goto Label_0292 Case &H23, &H24 goto Label_02A8 Case &H25 goto Label_02BB Case &H26 goto Label_02D2 Case &H27 goto Label_02E9 Case 40 goto Label_0341 Case &H29 goto Label_0383 Case &H2A goto Label_039F Case &H2B goto Label_03D2 Case &H2C goto Label_03E7 Case &H2D, &H2E goto Label_0511 Case Else goto Label_0506 End Select Label_04C6: num2 = num3 Select Case If((num > -2), num, 1) Case 0 goto Label_0506 Case 1 goto Label_0400 End Select Catch obj1 As Object When (?) ProjectData.SetProjectError(DirectCast(obj1, Exception)) goto Label_04C6 End Try Label_0506: Throw ProjectData.CreateProjectError(-2146828237) Label_0511: If (num2 <> 0) Then ProjectData.ClearProjectError End If End Sub