2008年9月12日 星期五

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 物件
'-------
'千萬不要拿去作壞事呀

1 則留言:

  1. 哈囉,你好,謝謝你的分享!
    想請教一下,如果我要將資料填到網頁的某個欄位,要怎麼做呢??
    例如,我要台泥下五張,要怎麼寫呢??
    http://tw.stock.yahoo.com/s/list.php?c=水泥&rr=12882528496090.009658658882742032
    謝謝

    回覆刪除