2019年06月21日

VBScript マウスポインタを自動的に移動させクリックするスクリプト

Option Explicit

Dim x, y
Dim Excel

'シェルオブジェクトの作成
Set Excel = WScript.CreateObject("Excel.Application")

'キーコード
'Const VK_SHIFT = &H10

'マウス定数
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_ABSOLUTE = 32768
Const MOUSE_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4


MouseMove 700 , 250  '←ここで移動させたい座標を指定する
MouseClick


'クリック
Sub MouseClick
 Dim dwFlags
 dwFlags = MOUSEEVENTF_LEFTDOWN or MOUSEEVENTF_LEFTUP
 Call API_mouse_event(dwFlags, 0, 0, 0, 0)
 WScript.Sleep 100
End Sub

'マウスポインタ移動
Sub MouseMove(x, y)
 Dim pos_x, pos_y, dwFlags
 Const SCREEN_X = 1024
 Const SCREEN_Y = 768

 dwFlags = MOUSEEVENTF_ABSOLUTE + MOUSE_MOVE
 pos_x = Int(x * 65535 / SCREEN_X)
 pos_y = Int(y * 65535 / SCREEN_Y)
 Call API_mouse_event(dwFlags, pos_x, pos_y, 0, 0)
 WScript.Sleep 100
End Sub

'APIを叩く
Sub API_mouse_event(dwFlags, dx, dy, dwData, dwExtraInfo)
 Dim strFunction
 Const API_STRING = "CALL(""user32"",""mouse_event"",""JJJJJJ"", $1, $2, $3, $4, $5)"
 strFunction = Replace(Replace(Replace(Replace(Replace(API_STRING, "$1", dwFlags), "$2", dx), "$3", dy), "$4", dwData), "$5", dwExtraInfo)
 Call Excel.ExecuteExcel4Macro(strFunction)
End Sub


▼人気上昇中!マウスパッド!!

   


※注1
利用するコンピュータにExcelが入っていることが条件

※注2
Windows10ではマウスポインタが移動しない可能性あり

この記事へのコメント
コメントありがとうございます。
早速修正させていただきました。
ご助言いただきましたのに、確認遅くなり大変申し訳ございません。
他にもお気づきの点がございましたら、今後ともよろしくお願いいたします。
Posted by at 2020年01月16日 22:35
Widows10ではMOUSEEVENTF_ABSOLUTE=32768としたほうがいいですよ。
場合よって16進数の8000は-32768となることがあり。
win10 64bit環境にて。
Posted by 名無し at 2019年12月23日 17:21
コメントを書く

お名前:

メールアドレス:


ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。

この記事へのトラックバックURL
https://fanblogs.jp/tb/8908328
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック
その買うを、もっとハッピーに。|ハピタス
\ハピタスの紹介キャンペーンです/
最大2000ポイントが貰えます
⇒登録後に行う「ハピタス検定」の答えはこちら

※ハピタスをご存じないかたは他で検索してみてください

ブログ内を検索
ファン
カテゴリ
よく倒されますが、へこたれながら起き上がるSEの備忘録です

Windows(20)
SQL(8)
JAVA(4)
VBScript(13)
VBA(13)
Other(13)
書籍(1)
記事ランキング
  1. 1. no img 確率の収束に必要な試行回数
  2. 2. no img VBScript マウスポインタを自動的に移動させクリックするスクリプト
  3. 3. no img Windows ディスク使用率100%を改善させる
  4. 4. no img Eclipse ホットコード置換に失敗しました
  5. 5. VBScript タスクスケジューラのメッセージを最前面に表示するスクリプト
広告

クラウド型レンタルサーバー サイト運用しない方には不要です‥

ドメイン名取得サービス 超人気ドメイン「.com」「.net」
国内最安値1円です!!

Amazon.co.jpで購入する
画像をクリックするとAmazonのサイトにジャンプします