21-12-16, 01:35 PM
21-12-16, 02:31 PM
شكرا لك اخي العزيز
18-02-17, 06:13 PM
تسلم ايدك
05-09-19, 06:02 AM
شكرا لك اخي على البرنامج
ممكن شرح للاكواد
Try
For Each p1 As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
For Each login1 As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
For Each u1 As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If u1.GetAttribute("name") = "email" Then
u1.InnerText = TextBox1.Text
If p1.GetAttribute("name") = "pass" Then
p1.InnerText = TextBox2.Text
If login1.GetAttribute("name") = "login" Then
login1.InvokeMember("click")
End If
Else
End If
End If
Next
Next
Next
Catch ex As Exception
End Try
ممكن شرح للاكواد
Try
For Each p1 As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
For Each login1 As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
For Each u1 As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If u1.GetAttribute("name") = "email" Then
u1.InnerText = TextBox1.Text
If p1.GetAttribute("name") = "pass" Then
p1.InnerText = TextBox2.Text
If login1.GetAttribute("name") = "login" Then
login1.InvokeMember("click")
End If
Else
End If
End If
Next
Next
Next
Catch ex As Exception
End Try