大変お久し振りです！

現在VBAで自動で極ウマプレミアムに自動ログインできる方法を模索していたところ

ChatGBT君という昨今話題にになっているＡＩがあるんですが

いろいろ試行錯誤した上でたどりついたものがあります。

それが「SeleniumBasic」です。

今回はSeleniumBasicのＤＬとか、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