(29-07-16, 08:45 AM)LoveVb كتب :

كود :

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GeckoWebBrowser1.Navigate("https://connect.bein.net/ar/login-ar/")
    End Sub
    Dim FirstTime As Boolean = True
    Dim h As Gecko.GeckoHtmlElement
    Private Sub GeckoWebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As Gecko.Events.GeckoDocumentCompletedEventArgs) Handles GeckoWebBrowser1.DocumentCompleted
        If FirstTime = True Then
            Dim UserName As String = New Net.WebClient().DownloadString("رابط الخاص ب الايميل فقط")
            Dim Password As Integer = CInt(New Net.WebClient().DownloadString("رابط الخاص ب الباسورد"))
            h = GeckoWebBrowser1.Document.GetElementById("input-email") ' عنصر ادخال الايميل
            h.SetAttribute("value", "lovevb")
            h = GeckoWebBrowser1.Document.GetElementById("input-password") 'عنصر ادخال الباسورد
            h.SetAttribute("value", "00000000")
            h = GeckoWebBrowser1.Document.GetElementById("ladda") ' عنصر زر تسجيل دخول
            h.Click()
            FirstTime = False
        End If
    End Sub