ab.com コミュニティ

全ての表示時間は UTC+09:00 です

デスクトップの背景

返信する

ユーザー名:

件名:

メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。

フォントサイズ:
	フォントカラー
[quote=よしき post_id=10406 time=1231602030 user_id=214] デスクトップの背景に設定してある画像を新しい画像に上書きしても（当然ですが）すぐには背景が新しいものに更新されないので更新したいのですが・・・。 [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です。 [/quote]

オプション:

BBCode: ON

[img]: ON

[flash]: OFF

[url]: ON

スマイリー: OFF

	BBCode を無効にする
	URL を自動的にパースしない

クイズ

お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。

トピックのレビュー - デスクトップの背景

作成者

メッセージ

abwiki管理人

記事の件名:

もしかして

引用付きで返信する

SystemParametersInfoを使えば良いと思います。

コード:

Dim bmp[MAX_PATH] As Byte
lstrcpy(bmp, "C:\Windows\グリーン ストーン.bmp")
SystemParametersInfo(SPI_SETDESKWALLPAPER,3,bmp, SPIF_UPDATEINIFILE)

投稿記事

Posted: 2010年1月10日(日) 04:15

よしき

記事の件名:

デスクトップの背景

引用付きで返信する

デスクトップの背景に設定してある画像を新しい画像に上書きしても（当然ですが）すぐには背景が新しいものに更新されないので更新したいのですが・・・。

コード:

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です。

投稿記事

Posted: 2009年1月11日(日) 00:40

掲示板トップ » »

全ての表示時間は UTC+09:00 です