منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > اريد تعديل ع هذا الكود
نسخة كاملة : اريد تعديل ع هذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

e-coder

10-06-17, 09:20 PM
سلام عليكم
اريد فقط الغاء او مسح
كلمة 
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
لتعرفو ماهي المشكلة
وشكراً

bidaya

11-06-17, 04:53 AM
(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
لتعرفو ماهي المشكلة
وشكراً

تفظل اخي اتمنى ان يكون  هذا المطلوب Smile

e-coder

11-06-17, 12:56 PM
(11-06-17, 04:53 AM)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 
لا اريد ان تظهر اللسته هكذا

ولكن اريد فقط مسح
conference.nimbuzz.com
لتيقي الاسماء لحالها
 المشروع بالمرفقات 
ومشروع فيه كافه البيانات فقط
عليكم هوا تغط ع
login
ومن ثم
start
لتعرفو ماهي المشكلة
وشكراً

تفظل اخي اتمنى ان يكون  هذا المطلوب Smile

اخي بارك الله فيك ولكن اسماء الغرف تظهر غير مكتملة


هكذا

anes

11-06-17, 06:47 PM
تفظل اخي تم التعديل

e-coder

12-06-17, 03:45 PM
(11-06-17, 06:47 PM)anes كتب : [ -> ]تفظل اخي تم التعديل
يسلموا مبدع Heart
اخي طلب صغير كيف ممكن نعمل ريستات بحيث يمكن البحث مرة اخري
انا عملت هيك ولكن لم ينجح
 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 

anes

13-06-17, 01:45 AM
(12-06-17, 03:45 PM)e-coder كتب : [ -> ]
(11-06-17, 06:47 PM)anes كتب : [ -> ]تفظل اخي تم التعديل
يسلموا مبدع Heart
اخي طلب صغير كيف ممكن نعمل ريستات بحيث يمكن البحث مرة اخري
انا عملت هيك ولكن لم ينجح
 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 
البرنامج اصبح ليقوم بالدخول

e-coder

13-06-17, 10:40 PM
(13-06-17, 01:45 AM)anes كتب : [ -> ]
(12-06-17, 03:45 PM)e-coder كتب : [ -> ]
(11-06-17, 06:47 PM)anes كتب : [ -> ]تفظل اخي تم التعديل
يسلموا مبدع Heart
اخي طلب صغير كيف ممكن نعمل ريستات بحيث يمكن البحث مرة اخري
انا عملت هيك ولكن لم ينجح
 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 
البرنامج اصبح ليقوم بالدخول
تم تسجيل الدخول ولكن انت استمر
في تشغيل تايمر فان النك يتجمد لفترة دقيقة
لذلك قم بوضع 
  Timer1.Interval =1000
لكي لا يتجمد ولكن المطلوب
ان يبحث مرة اخري عن اسم غرفة
اخري بدلا من اغلاق برنامج ومن ثم تشغيلة
وشكراً لك

e-coder

14-06-17, 03:02 PM
فقط اريد ان يبحث مرة اخري واسم غرفة اخري
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > اريد تعديل ع هذا الكود