09-11-19, 06:46 AM
(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
