Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Sub rakuten_login_Click() ‘================================================== ‘rakuten競馬ログイン ‘==================================================
Dim id As String Dim pass As String Dim url As String
‘ID/PASS/URL取得 With Worksheets(“Parameter”) id = .Range(“id”).Value ‘ID pass = .Range(“pass”).Value ‘PASS url = .Range(“url”).Value ‘URL End With
‘ie起動 Set objIE = CreateObject(“InternetExplorer.Application”)
‘Rakuten競馬 With objIE .Visible = True .navigate url ‘インターバル Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop End With
‘マイページクリック For Each objinp In objIE.document.getElementsByTagName(“a”) If Mid(objinp.textContent, 26, 5) = “マイページ” Then objinp.Click Exit For End If Next
‘インターバル Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop
‘楽天会員ログイン ‘ID入力 For Each objinp In objIE.document.getElementsByTagName(“Input”) If objinp.Name = “u” Then objinp.Value = id Exit For End If Next Sleep (1000)
‘PASS入力 For Each objinp In objIE.document.getElementsByTagName(“Input”) If objinp.Name = “p” Then objinp.Value = pass Exit For End If Next Sleep (1000)
‘ログイン For Each objinp In objIE.document.getElementsByTagName(“Input”)
If objinp.Name = “submit” Then objinp.Click Exit For End If Next
‘インターバル Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop Sleep (1000)
