Omid.R.A.Candy
جمعه 22 شهریور 1392, 22:40 عصر
سلام من از کد زیر جهت login در سایت برنامه نویس استفاده کردم ولی خطا گرفت!
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://www.barnamenevis.org/")
Me.Text = "Loading..."
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Document.All("navbar_username").InnerText = TextBox1.Text
WebBrowser1.Document.All("navbar_password").InnerText = TextBox2.Text
WebBrowser1.Document.All("loginbutton").InvokeMember("click")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
Me.Text = "Loaded"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://www.barnamenevis.org/")
Me.Text = "Loading..."
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Document.All("navbar_username").InnerText = TextBox1.Text
WebBrowser1.Document.All("navbar_password").InnerText = TextBox2.Text
WebBrowser1.Document.All("loginbutton").InvokeMember("click")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
Me.Text = "Loaded"
End Sub