[اليوم السابع]

(09-11-19, 06:39 AM)ابو روضة كتب :

(09-11-19, 06:25 AM)اليوم السابع كتب : شكرا يا هندسه ع تعبك معايا والله + هل الكود ده ينفع استخدمه داخل تايمر

الشكر لله أخى..

هل الكود نفذ ما تريده ؟

موضوع التايمر هذا على حسب استعمالك للكود فأنا لا أعرف ماذا ستفعل به.

وعموما لو نفع معك فعليك بالتجربة بنفسك أنت بتايمر ومن غير تايمر حتى تعرفها وحدك فيما بعد...

وربنا يوفقك لكل خير

بجد والله العظيم انا مدين لك بصراحه الكود نفذ ما اريده بالحرف ويبقي هنا شئ واحد فقط بعد اتمام جميع الشروط بنجاح بيتم ظهار نافذه النحميل ملف بلغه json اريد يتم التحميل علي طول دون اظهار هذه النافذه وهذا الكود كامل اللي مستخدمه 

كود :

Imports System.Text.RegularExpressions
Imports System.Net.Mail
Imports System.IO
Imports System.Web

Imports System.Data.OleDb
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.TaskbarClock
Imports System.Threading
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Data
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("https://qlizz.com/?loginmethod=v2")
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(2)
       If ProgressBar1.Value = 100 Then
           Timer1.Stop()
       End If
       If ProgressBar1.Value = 10 Then
           WebBrowser1.Navigate("https://qlizz.com/?loginmethod=v2")
           Threading.Thread.Sleep(15000)
       End If
       If ProgressBar1.Value = 48 Then
           WebBrowser1.Document.GetElementById("myBtn").InvokeMember("click")
           Threading.Thread.Sleep(15000)
       End If
       If ProgressBar1.Value = 80 Then
           WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
           WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)

           Threading.Thread.Sleep(5000)
       End If
   
       If ProgressBar1.Value = 90 Then
           Dim allB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
           For Each bt As HtmlElement In allB
               If bt.GetAttribute("className") = "btn btn-primary bt-token" Then
                   bt.InvokeMember("click")
               End If
           Next

       End If



       Label1.Text = ProgressBar1.Value
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
End Class