vb.net 自動登入網頁

' 宣告並建立IE 執行個體物件

Dim ie As Object = CreateObject("InternetExplorer.Application")



' Yahoo!奇摩會員登入網址

Dim strURL As String = "http://tw.login.yahoo.com/cgi-bin/login.cgi?srv=www&from=http://tw.yahoo.com"



With ie

.Visible = True ' 顯示IE

.Navigate(strURL) ' 瀏覽網址

' 等待網頁載入完成

Do While .Busy

Application.DoEvents()

Loop

.Document.All("login").Value = "這裡打帳號" ' 帳號

.Document.All("passwd").Value = "這裡打密碼" ' 密碼

.Document.All("submit").Click() ' 登入

End With



ie = Nothing ' 釋放IE 物件
'-------
'千萬不要拿去作壞事呀