[ VB.NET ] مشكلة في كود VB.NET


  • الـلـهـم انـصـر اخـوانـنـا الـمـسـلـمـيـن فـي بـورمـا وكـن مـعـهـم يـاربـاه يـاربـاه

y.a.a.u.z

:: عضو جديد ::
25 مارس 2019
5
5
0
كنت قبل فترة برمجة كود برمجي وتابعة دورات برمجه اجنبيه
وبدات التعلم وبدات التصميم لكن قمت بتصميم كود وصار به مشكله لم اعرف حله جربت كثير اشياء ولم تنحل معي
ابدا هل ممكن مساعده واخباري بماذا اخطاءة في هذا الكود لاني لا احب ان اخذ شئ كوبي بيست دون ان افهمه وشكرا لكم​
C#:
Public Sub sstart()
        Try
            Dim num2 As Integer = ListView1.Items.Count - 1
            Dim num3 As Integer = 0
            Do
                Dim num4 As Integer = num3
                Dim num5 As Integer = num2
                If num4 > num5 Then
                    Exit Do
                End If
                Dim text As String = Strings.Format(DateAndTime.Now, "General Date")
                Dim random As New Random()
                Dim newValue As String = Conversions.ToString(random.Next(100000, 1000000))
                If ListView1.Items(num3).Checked Then
                    ListView1.Items(num3).Checked = False
                    wh_ph = ListView1.Items(num3).SubItems(0).Text
                    wh_name = ListView1.Items(num3).SubItems(1).Text
                    ListView1.Items(num3).SubItems(2).Text = "Wait Send"
                    ToolStripMenuItem5.Text = wh_name
                    ToolStripMenuItem14.Text = wh_ph
                    RichTextBox1.Text = Conversions.ToString(ListBox1.Items(Random_ms))
                    RichTextBox1.Text = RichTextBox1.Text.Replace("[FT_Name]", wh_name).Replace("[FT_time]", text).Replace("[FT_phone]", wh_ph).Replace("[FT_Number]", newValue)
                    If AcaciaRadioButton4.Checked Then
                        driver2.ExecuteScript(String.Format(myFuncObj.path_FT(url_(3)), wh_ph, Uri.EscapeDataString(RichTextBox1.Text)))
                        driver2.ExecuteScript(url_(7))
                        driver2.ExecuteScript(url_(8))
                        Thread.Sleep(time3)
                        driver2.FindElement(By.CssSelector(url_(5))).Click()
                    ElseIf AcaciaRadioButton5.Checked Then
                        If image_video = 0 Then
                            driver2.ExecuteScript(String.Format(myFuncObj.path_FT(url_(3)), wh_ph, Uri.EscapeDataString(RichTextBox1.Text)))
                            driver2.ExecuteScript(url_(7))
                            driver2.ExecuteScript(url_(8))
                            Thread.Sleep(time3)
                            driver2.FindElementByXPath(url_(10)).Click()
                            Thread.Sleep(time3)
                            Dim num6 As Integer = ListBox2.Items.Count - 1
                            Dim num7 As Integer = 0
                            Do
                                Dim num8 As Integer = num7
                                num5 = num6
                                If num8 > num5 Then
                                    Exit Do
                                End If
                                driver2.FindElementByXPath(url_(11)).SendKeys(Conversions.ToString(ListBox2.Items(num7)))
                                Thread.Sleep(2000)
                                driver2.FindElement(By.CssSelector(url_(12))).Click()
                                Thread.Sleep(time3)
                                num7 += 1
                            Loop
                            driver2.FindElement(By.CssSelector(url_(5))).Click()
                        ElseIf image_video = 1 Then
                            driver2.ExecuteScript(String.Format(myFuncObj.path_FT(url_(3)), wh_ph, ""))
                            driver2.ExecuteScript(url_(7))
                            driver2.ExecuteScript(url_(8))
                            Thread.Sleep(time3)
                            driver2.FindElementByXPath(url_(10)).Click()
                            Thread.Sleep(time3)
                            driver2.FindElementByXPath(url_(11)).SendKeys(Conversions.ToString(ListBox2.Items(CI1)))
                            Thread.Sleep(time3)
                            Dim webElement As IWebElement = driver2.FindElement(By.CssSelector(url_(9)))
                            webElement.SendKeys(RichTextBox1.Text)
                            driver2.FindElement(By.CssSelector(url_(12))).Click()
                            Thread.Sleep(time3)
                            If CI1 = ListBox2.Items.Count - 1 Then
                                CI1 = 0
                            Else
                                CI1 += 1
                            End If
                        End If
                    ElseIf AcaciaRadioButton6.Checked Then
                        Dim webElement2 As IWebElement = driver2.FindElement(By.CssSelector(url_(9)))
                        webElement2.SendKeys(RichTextBox1.Text)
                        Thread.Sleep(time3)
                        driver2.FindElement(By.CssSelector(url_(5))).Click()
                    ElseIf AcaciaRadioButton9.Checked Then
                        driver2.ExecuteScript(String.Format(myFuncObj.path_FT(url_(3)), wh_ph, Uri.EscapeDataString(RichTextBox1.Text)))
                        driver2.ExecuteScript(url_(7))
                        driver2.ExecuteScript(url_(8))
                        Thread.Sleep(time3)
                        driver2.FindElementByXPath(url_(10)).Click()
                        Thread.Sleep(time3)
                        Dim num9 As Integer = ListBox2.Items.Count - 1
                        Dim num10 As Integer = 0
                        Do
                            Dim num11 As Integer = num10
                            num5 = num9
                            If num11 > num5 Then
                                Exit Do
                            End If
                            driver2.FindElementByXPath(url_(13)).SendKeys(Conversions.ToString(ListBox2.Items(num10)))
                            Thread.Sleep(2000)
                            driver2.FindElement(By.CssSelector(url_(12))).Click()
                            Thread.Sleep(time3)
                            num10 += 1
                        Loop
                        driver2.FindElement(By.CssSelector(url_(5))).Click()
                    ElseIf AcaciaRadioButton10.Checked Then
                        driver2.ExecuteScript(String.Format(myFuncObj.path_FT(url_(3)), wh_ph, ""))
                        driver2.ExecuteScript(url_(7))
                        driver2.ExecuteScript(url_(8))
                    End If
                    If Random_ms = ListBox1.Items.Count - 1 Then
                        Random_ms = 0
                    Else
                        Random_ms += 1
                    End If
                    Thread.Sleep(1000)
                    Dim pageSource As String = driver2.PageSource
                    If pageSource.Contains("Phone number shared via url is invalid") Then
                        Dim toolStripMenuItem As ToolStripMenuItem = ToolStripMenuItem11
                        toolStripMenuItem.Text = Conversions.ToString(Conversions.ToDouble(toolStripMenuItem.Text) + 1.0)
                        ListView1.Items(num3).SubItems(2).Text = "Failed Send"
                        itm = New ListViewItem(New String(30) {wh_ph, wh_name, RichTextBox1.Text, text, "Failed Send : Phone number shared via url is invalid", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing})
                        ListView3.Items.Add(itm)
                        ToolStripMenuItem30.Text = ListView3.Items.Count.ToString()
                    ElseIf pageSource.Contains("إن رقم الهاتف الذي تمت مشاركته عبر الرابط غير صحيح") Then
                        Dim toolStripMenuItem As ToolStripMenuItem = ToolStripMenuItem11
                        toolStripMenuItem.Text = Conversions.ToString(Conversions.ToDouble(toolStripMenuItem.Text) + 1.0)
                        ListView1.Items(num3).SubItems(2).Text = "Failed Send"
                        itm = New ListViewItem(New String(30) {wh_ph, wh_name, RichTextBox1.Text, text, "Failed Send : Phone number shared via url is invalid", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing})
                        ListView3.Items.Add(itm)
                        ToolStripMenuItem30.Text = ListView3.Items.Count.ToString()
                    ElseIf pageSource.Contains("_3F6QL _2WovP") Then
                        Dim toolStripMenuItem As ToolStripMenuItem = ToolStripMenuItem8
                        toolStripMenuItem.Text = Conversions.ToString(Conversions.ToDouble(toolStripMenuItem.Text) + 1.0)
                        ListView1.Items(num3).SubItems(2).Text = "Done Send"
                        itm = New ListViewItem(New String(30) {wh_ph, wh_name, RichTextBox1.Text, text, "Succeeded Send", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing})
                        ListView3.Items.Add(itm)
                        ToolStripMenuItem30.Text = ListView3.Items.Count.ToString()
                    Else
                        Dim toolStripMenuItem As ToolStripMenuItem = ToolStripMenuItem8
                        toolStripMenuItem.Text = Conversions.ToString(Conversions.ToDouble(toolStripMenuItem.Text) + 1.0)
                        ListView1.Items(num3).SubItems(2).Text = "Failed Send : خطأ غير معروف"
                        itm = New ListViewItem(New String(30) {wh_ph, wh_name, RichTextBox1.Text, text, "Failed Send : خطأ غير معروف", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing})
                        ListView3.Items.Add(itm)
                        ToolStripMenuItem30.Text = ListView3.Items.Count.ToString()
                    End If
                    ProgressBar1.Maximum = ListView1.Items.Count
                    ProgressBar1.Value = ListView1.Items.Count - ListView1.CheckedItems.Count
                    If ListView1.CheckedItems.Count = 0 Then
                        ToolStripMenuItem19.Text = "Process was terminated successfully"
                        ToolStripMenuItem19.ForeColor = Color.Green
                        Button9.Enabled = False
                        Button6.Enabled = True
                        Exit Do
                    End If
                    Dim lockTaken As Boolean = False
                    Try
                        Monitor.Enter(STATICsstart2001timeee11Init, lockTaken)
                        If STATICsstart2001timeee11Init.State = 0 Then
                            STATICsstart2001timeee11Init.State = 2
                            STATICsstart2001timeee11 = 1
                        ElseIf STATICsstart2001timeee11Init.State = 2 Then
                            Throw New IncompleteInitialization()
                        End If
                    Finally
                        STATICsstart2001timeee11Init.State = 1
                        If lockTaken Then
                            Monitor.Exit(STATICsstart2001timeee11Init)
                        End If
                    End Try
                    If CDbl(STATICsstart2001timeee11) Mod Conversions.ToDouble(ITalk_TextBox_Small4.Text) = 0.0 Then
                        Thread.Sleep(time2)
                    End If
                    STATICsstart2001timeee11 += 1
                    Dim random2 As New Random()
                    Thread.Sleep(random2.Next(time1, timeasa3))
                End If
                num3 += 1
            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error")
        End Try
    End Sub

 
  • أعجبني
التفاعلات: mqo-zz

BasharBachir

اللهم اغفر له وارحمه
طاقم الإدارة
28 أكتوبر 2018
1,351
2,455
1
السورس الخاص بك يحتوي على عده عناصر يجب تواجدها بالفورم اخي مثل ماتعرف يعني الكود اللي حاطه لنا يجب اننا نسوي مشروع جديد ونضيف العناصر ونشوف وين الخطأ اللي عندك ..
المبرمج القوي يقدر اكيد يعرف الخطأ بدون هذا الأمر بمجرد قراءه السورس ولكن قليل من تجده قد وصل لهذه المرحله وقد يكون هو أيضا عليه تحفظات على هذا الأمر لأن الخطأ قد يتعدى مشكله الكود لذلك يجب إرفاق السورس أو إظهار الخطأ الذي يظهر لك واين يحصل بالضبط دام انك قمت بعمل try Catch فيرجى إظهار رساله الخطا لنا تكرما ..
لانه مااعتقد احد يقعد يصمم اداتك ويضع الكود حتى يتبع المشكله ..بالنسبه لو لو اريد اساعدك رح اضع نقاط توقف وأقرأ اللي يصير بكل تعليمه برمجيه ..عشان افهم وين المشكله وبالاخير رساله الخطا بالكاتش تفيد ايضا ..
خلاصه الكلام اخي الحبيب ارفق لنا السورس افضل
او على الاقل ضع رساله الخطا التي تظهر لك لتوفير وقتك ووقتنا عشان ماننشئ اداتك ونصمم العناصر اللي ظاهره بالكود ..
ومثل ماقلت لك ممكن احيانا المشكله تتعدى الكود.لهيك إرفاق المشروع بيزيد فرص حصولك على اجابه مفيده ..
هذا رايي وانت شوف المناسب وسويه اخي
إن مااردت العمل به انصحك بعمل نقاط أو نقطه توقف باول الميثود عشان تتبع مايحصل عند تنفيذ كل تعليمه برمجيه ..عشان تعرف كودك كيف الاستجابه له عند تنفيذ كل شيء فيه
حاليا كتبت لك كلام نظري ممكن يفيدك ويفيدنا لان شبه نائم
بس ارجع من برلين غدا شوف ويقرا الكود الخاص بك
 
  • أعجبني
التفاعلات: y.a.a.u.z

y.a.a.u.z

:: عضو جديد ::
25 مارس 2019
5
5
0
السورس الخاص بك يحتوي على عده عناصر يجب تواجدها بالفورم اخي مثل ماتعرف يعني الكود اللي حاطه لنا يجب اننا نسوي مشروع جديد ونضيف العناصر ونشوف وين الخطأ اللي عندك ..
المبرمج القوي يقدر اكيد يعرف الخطأ بدون هذا الأمر بمجرد قراءه السورس ولكن قليل من تجده قد وصل لهذه المرحله وقد يكون هو أيضا عليه تحفظات على هذا الأمر لأن الخطأ قد يتعدى مشكله الكود لذلك يجب إرفاق السورس أو إظهار الخطأ الذي يظهر لك واين يحصل بالضبط دام انك قمت بعمل try Catch فيرجى إظهار رساله الخطا لنا تكرما ..
لانه مااعتقد احد يقعد يصمم اداتك ويضع الكود حتى يتبع المشكله ..بالنسبه لو لو اريد اساعدك رح اضع نقاط توقف وأقرأ اللي يصير بكل تعليمه برمجيه ..عشان افهم وين المشكله وبالاخير رساله الخطا بالكاتش تفيد ايضا ..
خلاصه الكلام اخي الحبيب ارفق لنا السورس افضل
او على الاقل ضع رساله الخطا التي تظهر لك لتوفير وقتك ووقتنا عشان ماننشئ اداتك ونصمم العناصر اللي ظاهره بالكود ..
ومثل ماقلت لك ممكن احيانا المشكله تتعدى الكود.لهيك إرفاق المشروع بيزيد فرص حصولك على اجابه مفيده ..
هذا رايي وانت شوف المناسب وسويه اخي
إن مااردت العمل به انصحك بعمل نقاط أو نقطه توقف باول الميثود عشان تتبع مايحصل عند تنفيذ كل تعليمه برمجيه ..عشان تعرف كودك كيف الاستجابه له عند تنفيذ كل شيء فيه
حاليا كتبت لك كلام نظري ممكن يفيدك ويفيدنا لان شبه نائم
بس ارجع من برلين غدا شوف ويقرا الكود الخاص بك
بالفعل اخي بشار كلامك جد مقنع وسليم 100%
سوف ارفق رسالة الخطاء التي تظهر لي اثناء تجربة عمل الكود
بالنسبة لي نقطة التوقف المشكله هي ان الفيجوال بيه مشكلة للاسف عندي ما يقدر يشغل المشروع للتجربه
وبالنسبة لرسالة الخطاء ها هي



وقمت بعمل تعديل بسيط علي الكود قبل قليل واصبح يرسل لكن الذي فوق الغير معدل لا يرسل اي شئ ابدا
قمت بتعديلات بسيطة لا تذكر ابدا واصبح اول مره لا يرسل وثاني مره يقوم بي الارسال لبعض الارقام وليس كله فا جنتت وتعقدت صراحه

هذا هو يرسل لحسابات وحسابات له وحته اذا لم يقوم بي الارسال لحسابات معينه من المفترض ان يقول​
Failed Send
ولا يقول
Done Send
او يقول
Wait Send
 
  • أعجبني
التفاعلات: BasharBachir

y.a.a.u.z

:: عضو جديد ::
25 مارس 2019
5
5
0
الان اخي بشار صار شئ عجيب جدا
سويت نقاط توقف علي الكود بالكامل
وجدت انه يرسل بدون اي خطاء نهائيا يعمل بالشكل المطلوب منه مع العلم ان الفيجوال ستديو عندي ثقيل عندما اقوم بي عمل Continue
المهم انه قام بي العمل بدون اي خطاء نهائيا هكذا اين المشكله ؟ لا افهم



هكذا كيف يمكنني حل المشكلة انا لم افهمه ابدا​
 
  • أعجبني
التفاعلات: BasharBachir

BasharBachir

اللهم اغفر له وارحمه
طاقم الإدارة
28 أكتوبر 2018
1,351
2,455
1
تحديدا الخطاء يتواجد هنا

حسب خبرتي بالسيلينيوم وحسب الرساله عندما لايتواجد الelement المراد.التعامل معه من خلال المكتبه يحصل هذا الخطأ اخي الحبيب ..
للتأكد قم بتغيير طريقه التنفيذ من مخفيه إلى ظاهره عشان يطلع لك الكروم وتشوف كامل الي قاعد يصير من خلال مااردت تنفيذه ..انت الان قمت بجعل الكروم يعمل بخفاء اليس كذلك ..خليه ظاهر هالمره وشوف هل بالفعل يتواجد.الالمنت المراد التفاعل معه ام لا ..اعتقد انه لايوجد عند الوصول للمرحله هذه لايجد الالمنت فالمشكله اما أنه ابدا لايوجد أو أنه يوجد ولكن قد تكون سرعه النت هي السبب إذ أنه يتم تنفذ الكود التالي ولم يتم عمل لود للصفحه بعد كنتيجه عن التفاعل مع العنصر السابق
حلها بجعل كامل كودك متزامن عبر async await أو اعتقد هنالك بالسيلينيوم طريقه لتنفيذ التفاعل مع العنصر بعد.الانتهاؤ من تحميل كامل الصفحه ..
بالنسبه لي السيلينيوم كانت تقوم بالفعل بالانتظار الكامل لتحميل الصفحه ومن ثم تنفيذ التفاعل مع الالمنت .
 
التعديل الأخير:
  • أعجبني
التفاعلات: ALZ3YM KBDAKY

ALZ3YM KBDAKY

.:: VIP ::.
17 يناير 2019
22
28
0
تحديدا الخطاء يتواجد هنا

كنت قد ردت عليك بالديف بوينت الغلط الذي كنت تستعمله هو في كود sleep الي قبل الضغط لان بكل بساطة هو لا يجد الزر ليقوم بالضغط عليه لانك تقوم بي sleep اقل مما يحتاج هو
هذا واجهة نظري وايضا الاخ بشار اكد واجهة نظري اكثر
 

إخلاء مسؤلية

  • المنتدى غير مسؤول عن أي اتفاق تجاري أو تعاوني بين الأعضاء كل شخص يحمل مسئولية نفسه إتجاه مايقوم به protection-tips غير مسؤول عن أي اتفاق تجاري أو تعاوني بين الأعضاء كل شخص يحمل مسئولية نفسه إتجاه مايقوم به من بيع وشراء وإتفاق وأعطاء معلومات موقعه التعليقات المنشورة لا تعبر عن رأي معهد المنتدى ولا نتحمل أي مسؤولية قانونية حيال ذلك (ويتحمل كاتبها مسؤولية النشر).).

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

User Menu

تابعنا على الفيسبوك