منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] اريد تعديل ع هذا الكود
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] اريد تعديل ع هذا الكود
e-coder غير متصل
عضو مبدع
المشاركات : 127
المواضيع 58
الإنتساب : May 2017
السمعة : 1
الشكر: 50
تم شكره 32 مرات في 22 مشاركات
#7
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 - 10-06-17, 09:20 PM
RE: اريد تعديل ع هذا الكود - بواسطة bidaya - 11-06-17, 04:53 AM
RE: اريد تعديل ع هذا الكود - بواسطة e-coder - 11-06-17, 12:56 PM
RE: اريد تعديل ع هذا الكود - بواسطة anes - 11-06-17, 06:47 PM
RE: اريد تعديل ع هذا الكود - بواسطة e-coder - 12-06-17, 03:45 PM
RE: اريد تعديل ع هذا الكود - بواسطة anes - 13-06-17, 01:45 AM
RE: اريد تعديل ع هذا الكود - بواسطة e-coder - 13-06-17, 10:40 PM
RE: اريد تعديل ع هذا الكود - بواسطة e-coder - 14-06-17, 03:02 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information ما هو الخطاء في الكود ProgressBar1 Mostafa201255411 1 193 26-11-25, 08:19 PM
آخر رد: asmarsou
  [VB.NET] مساعدة تعديل على الكود ZEEN4ZEEN 2 210 08-10-25, 02:20 PM
آخر رد: salamandal
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 2 1,051 28-08-25, 09:13 AM
آخر رد: محمد مسافر
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 0 843 27-08-25, 04:05 PM
آخر رد: محمد مسافر
  ما هو الخطأ فى هذا الكود خالد كامل1 10 1,142 28-05-25, 09:16 PM
آخر رد: خالد كامل1
  تعديل كود تحديث البيانات مصمم هاوي 1 784 26-04-25, 06:07 PM
آخر رد: مصمم هاوي
  تعديل على استدعاء الدرجات حسب الاختيار مصمم هاوي 11 993 15-04-25, 06:16 PM
آخر رد: princelovelorn
  ارجو تعديل الكود بواستطة الاجراء المخزن new_programer 3 677 03-04-25, 02:44 PM
آخر رد: princelovelorn
  مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت سيد أحمد 5 820 23-03-25, 10:54 PM
آخر رد: سيد أحمد
  [سؤال] اريد طباعة تقرير ريبورت فيو مباشرة فور عرض التقرير mh66 1 558 22-03-25, 09:59 AM
آخر رد: mh66

التنقل السريع :


يقوم بقرائة الموضوع: