Sub facebook_login()
‘ ツール->参照設定
‘ Microsoft Internet Controls
‘ Microsoft HTML Object Libraly
Dim IE As New SHDocVw.InternetExplorer
With IE
.Visible = True
.Navigate "facebook.com"
Do While .ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
End With
‘ここは「検証」からclassを確認
‘クラス名前が一意であることを確認
IE.Document.all("email").Value = "実際のEメールアドレス"
IE.Document.all("pass").Value = "実際のパスワード"
IE.Document.forms("login_form").submit
End Sub
More than 3 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme