منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سؤال بخصوص webclint ارجو الدخول والمشاركه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال بخصوص webclint ارجو الدخول والمشاركه (/showthread.php?tid=32057)

سؤال بخصوص webclint ارجو الدخول والمشاركه - اليوم السابع - 10-11-19

عندي  بالفورم برجروس بار مجزئه كما هو موضح بالكود الي عدده مراحل المرحله الاول يعمل نافجيت علي ال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


RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - AbdoDabak - 10-11-19

الموضوع مكرر الرد في الموضوع الثاني هنا