みずほダイレクトでナンバーズ4購入

ナンバーズ.vbs

    Dim ie
    Const url = "https://cp.mizuhobank.co.jp/lucky_p_secure/p02001"

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate url
    
    While ie.busy Or ie.readyState <> 4
        WScript.Sleep (100)
    Wend

    With ie.document.Forms("p02001ActionForm")
        .memberId.Value = 
        .Password.Value = 
        .login.Click
    End With

    While ie.busy Or ie.readyState <> 4
        WScript.Sleep (100)
    Wend
    
	'ナンバーズ4    
    With ie.document.forms("p03001ActionForm")
        .rdNumbers4.Click
        .confirm.Click
       .doInput.Click
    End With
    
    While ie.busy Or ie.readyState <> 4
        WScript.Sleep (100)
    Wend

	'好きな数字と申込タイプの入力
    With ie.document.forms("p03003ActionForm")
        .enteredNumbersNumber1.value = "1111"
        .enteredNumbersType1(1).selected = true 'ストレート
       .doConfirm.Click
    End With

    While ie.busy Or ie.readyState <> 4
        WScript.Sleep (100)
    Wend
    
    '購入申込へ
    ie.document.forms("p03004ActionForm").next.click

    While ie.busy Or ie.readyState <> 4
        WScript.Sleep (100)
    Wend
        
    '購入申込の確定
    With ie.document.forms("p03005ActionForm")
    	.checkConfirm.click
        .password1.value = 
        .password2.value = 
        .password3.value = 
        .password4.value = 
        '申込を確定する
       '.confirm.Click
    End With