コード: 全て選択
Dim hDW As HWND
hDW=GetDesktopWindow()
SetForegroundWindow(hDW)
keybd_event(VK_RBUTTON,0,0,0)'押す
keybd_event(VK_RBUTTON,0,KEYEVENTF_KEYUP,0)'離す
keybd_event(Asc("R"),0,0,0)'押す
keybd_event(Asc("R"),0,KEYEVENTF_KEYUP,0)'離す
keybd_event(VK_MENU,0,0,0)'押す
keybd_event(Asc("K"),0,0,0)'押す
keybd_event(Asc("K"),0,KEYEVENTF_KEYUP,0)'離す
keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0)'離す