デスクトップの背景に設定してある画像を新しい画像に上書きしても(当然ですが)すぐには背景が新しいものに更新されないので更新したいのですが・・・。
コード: 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)'離す
このように仮想キーコード使ってもうまくいかなかったのですが、なにか方法はないでしょうか?vistaです。
デスクトップの背景に設定してある画像を新しい画像に上書きしても(当然ですが)すぐには背景が新しいものに更新されないので更新したいのですが・・・。
[code]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)'離す [/code]
このように仮想キーコード使ってもうまくいかなかったのですが、なにか方法はないでしょうか?vistaです。
|