level 4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' 宣告并建立IE 执行个体物件
Dim ie As Object = CreateObject("InternetExplorer.Application")
' 需要登入的网址
Dim strURL As String = "http://kms.ncbrain.com"
With ie
.Visible = True ' 显示IE
.Navigate(strURL) ' 浏览网址等待网页载入完成
Do While .Busy
Application.DoEvents()
Loop
.document.all(“mailbox”).Value = "123456" ' 帐号
End With
ie = Nothing ' 释放IE 物件
End Sub
2012年05月18日 02点05分