マウスポインタの移動を一時停止する方法 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 しんのう  () 投稿日時 2008/9/11 12:53:00
るきお様 
 
大変申し訳ありません、ご質問 につきましては必要なくなりました。 
マウスポインタの停止状態の解除を[Ctrl] + [Alt] + [Delete]を押さないで 
プログラムから行うご質問 は勘違をしていました。 
ご回答プログラムを提供して頂きまして重ねてお礼を申し上げます。 
本当にありがとう御座いました。
0
投稿者 しんのう  () 投稿日時 2008/9/11 09:59:00
 るきお様 
 
返答をして下さいましてありがとうございました。 
ご回答プログラムを提供して頂きましてお礼を申し上げます。 
(Windows98,2000,XP)で確認致しました。 
Command1ボタンを押しますとマウスポインタが停止状態になりました。 
マウスを外部（手）から動かしてもマウスポインタの移動がなく停止することも確認できました。 
本当にありがとうございました。 
>[Ctrl] + [Alt] + [Delete]が押されても停止したままでいることができるでしょうか？  
(Windows98,2000,XP)を[Ctrl] + [Alt] + [Delete]を押しましたらマウスポインタの停止状態が解除され 
マウスポインタが移動できるようになりました。 
 
下記についてご質問したいのですがよろしいでしょうか。 
マウスポインタの停止状態の解除を[Ctrl] + [Alt] + [Delete]を押さないで 
Sleep 5000　後にプログラムからマウスポインタが移動できるようにすることは可能でしょうか。 
度々申し訳ありません。ご授受を願えますと幸いです。
0
投稿者 るきお  () 投稿日時 2008/9/11 06:32:00
条件付きで可能です。キー操作などでほかのアプリケーションの切り替えられるとマウスに対する制御は失われてしまうようです。 
Vistaで試しましたが、ひょっとするとXP以前では動作が異なるかもしれません。 
でも、[Ctrl] + [Alt] + [Delete]が押されても停止したままでいることができるでしょうか？ 
 
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long 
Private Type RECT 
        Left As Long 
        Top As Long 
        Right As Long 
        Bottom As Long 
End Type 
 
Private Sub Command1_Click() 
 
    Dim ThisRect As RECT 
     
    ThisRect.Left = 100 
    ThisRect.Top = 100 
    ThisRect.Bottom = 100 
    ThisRect.Right = 100 
     
    Call ClipCursor(ThisRect) 
 
End Sub
0
投稿者 しんのう  () 投稿日時 2008/9/10 01:54:00
追伸 
使用言語に記述漏れがありました。大変申し訳ありませんでした。 
開発言語はMicrosoft Visual Basic 6.0を使用しています。
0
投稿者 しんのう  () 投稿日時 2008/9/10 01:31:00
お世話になります。 
ソフトだけでマウスポインタを移動してクリックしています。 
①から②の間だけはマウスすを外部（手）から動かしても 
マウスポインタが移動できないように停止することは可能でしょうか。 
ご授受を願えますと幸いです。 
マウスポインタの移動を一時停止につきまして宜しくお願い致します。 
 
 
　　Call SetCursorPos(x, y)'マウスポインタを移動 
 
'① 
 
    Call mouse_event(&H2, 0, 0, 0, 0)''マウスの左ボタンを押す 
  Sleep 5000 
 
    Call mouse_event(&H4, 0, 0, 0, 0)'マウスの左ボタンを離す 
 
'②
0