[ツリー表示へ] [ワード検索] [Home]
タイトル ： スクリーンセーバーの解除 投稿日 ： 2009/11/06(Fri) 17:31 投稿者 ： ジョニー
| いつも参考にさせて頂いてました 開発環境は VB6+SP6 WindowsXPSP2相当です ターゲットＰＣも同様です ずっと以前に納めたソフト（NT4）をＸＰに移行することになり、そのままのコードで流用していたのですが スクリーンセーバーの解除ができない現象に悩まされています セーバーがかかっていたときにはこちらのサンプル http://hanatyan.sakura.ne.jp/vbhlp/SaverOff.htm とほぼ同様の手順で、マウスカーソルを移動させているのですが セーバー解除できないときが発生します Dim CurPos As MoPoint RetVal& = GetCursorPos(CurPos) Call SetCursorPos(0, 0): DoEvents Call SetCursorPos(CurPos.x, CurPos.y): DoEvents 以前の環境では問題なくできていたはずですので、今回XPでできない理由がわかりません ちなみに、ブレークを張って見張ると必ず解除されます Doeventsの個数を増やして実験もしましたが、改善されません サンプルコードはXPも対応されているとのことですのでSPかなにかで条件変わっているのでしょうか？ アドバイス頂けると幸いです |
をクリックするとツリー全体を一括表示します） - スクリーンセーバーの解除 - ジョニー 09/11/06-17:31No.14228