111,120
社区成员
发帖
与我相关
我的任务
分享Public Class Form1
Public WithEvents webbrowser1 As New WebBrowser
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
webbrowser1.Url = New Uri("http://www.sina.com.cn")
WebBrowser1.Parent = Panel1
WebBrowser1.Dock = DockStyle.Fill
WebBrowser1.Show()
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webbrowser1.DocumentCompleted
Try
Dim btnSubmit As HtmlElement = webbrowser1.Document.All("bottonFldsubmit")
Dim tbUserid As HtmlElement = webbrowser1.Document.All("username")
Dim tbPasswd As HtmlElement = webbrowser1.Document.All("password")
tbUserid.SetAttribute("value", "帐号")
tbPasswd.SetAttribute("value", "密码")
btnSubmit.InvokeMember("click")
Catch ex As Exception
End Try
End Sub
End Class