IE操作 ポップアップウィンドウと通知バーの制御

■Sleep関数・SendKey関数

Declare PtrSafe Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)
Sub PopUp()
    Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.Application")    
    Dim h As LongPtr    
    objIE.Visible = True
    objIE.navigate "https://book.impress.co.jp/appended/3384/IE2.html"    
    'ポップアップウィンドウに[Alt]+[S]キーを送信して「保存」を選択
    Do While objIE.busy
        Sleep 3000
        SendKeys "%S", True
    Loop    
    '[Alt]+[N]キーでダウンロードの通知バーを選択
        Sleep 5000
        SendKeys "%N", True
    '[Tab]キー３回送信して通知バーの「×」ボタン選択
        Sleep 1000
        SendKeys "{TAB}"        
        Sleep 1000
        SendKeys "{TAB}"        
        Sleep 1000
        SendKeys "{TAB}"
    '[Enter]キーで通知バーを閉じる
        Sleep 1000
        SendKeys "{ENTER}"
End Sub

ray88.hatenablog.com
ray88.hatenablog.com