大変お久し振りです!
現在VBAで自動で極ウマプレミアムに自動ログインできる方法を模索していたところ
ChatGBT君という昨今話題にになっているAIがあるんですが
いろいろ試行錯誤した上でたどりついたものがあります。
それが「SeleniumBasic」です。
今回はSeleniumBasicのDLとか、ChromeDriverのダウンロードどうすんのよって
言われそうですが、気にしない!
書くと長くなるので、ググればでます!
というわけで簡単なコードを書いておくので、個人でアレンジして利用してください
Sub LoginToNikkanSports()
Dim bot As New ChromeDriver
bot.Get "https://goku-uma.nikkansports.com/membership/login/"
bot.Window.Maximize
' ログインに必要な情報を設定
Dim username As String: username = "your_username" ’"your_username"←ここにメールアドレス
Dim password As String: password = "your_password" ’"your_password"←ここにパスワード
' フレームを切り替え
bot.SwitchToFrame bot.FindElementByCss("#login-form iframe")
' ユーザー名とパスワードを入力
bot.FindElementsByCss("input")(1).SendKeys username
bot.FindElementsByCss("input")(2).SendKeys password
' ログインボタンをクリック
bot.FindElementByXPath("//*[@id=""autofill-form""]/screen-login/p[6]/button/span").Click
' ログインが完了するまで待機
bot.Wait 5000
bot.Quit 'これは消してもいいですが、閉じたい人向け
End Sub