返回列表 上一主題 發帖

[發問] 請教如何自動登錄

[發問] 請教如何自動登錄

目標是一鍵自動登入公司內網抓取各項資料。我先從本論壇著手,再麻煩各位大大協助幫看一下我的程式碼有何錯誤。                                                                                      Sub login()



With CreateObject("InternetExplorer.Application")

.Visible = True
.Navigate "http://forum.twbts.com/logging.php?action=login"


Do While .Busy Or .ReadyState <> 4: DoEvents: Loop


With .document
.all("username") = "*****"
.all("password") = "*****"

.all("loginsubmit").Click

End With
End With

End Sub

        靜思自在 : 天上最美是星星,人生最美是溫情。
返回列表 上一主題