10-11-19, 04:55 PM
عندي بالفورم برجروس بار مجزئه كما هو موضح بالكود الي عدده مراحل المرحله الاول يعمل نافجيت علي الurl والمرحله الثانيه يضغط علي زر والمرحله الثالثه يكتب نص في التكست بوكس والمرحله الرابعه يضغط علي زر الwebclint بعد ما بيضغط علي زر بيحمل ملف تلقائي انا اريد حفظ الملف ده كما هو موضح بالصوره في مسار معين تلقائي دون ان يظهر للمستخدم تجنبنا لعدم حفظه في اي مسار اخر كيف اعمل ذلك
كود :
If ProgressBar1.Value = 10 Then
WebBrowser1.Navigate("https://****/?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