アフィリエイト広告を利用しています

広告

posted by fanblog

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
※ブログオーナーが承認したトラックバックのみ表示されます。

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

※ハピタスをもっと知りたいかたは他で検索してみてください

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

Windows(20)
SQL(17)
JAVA(4)
VBScript(14)
VBA(15)
Other(14)
書籍(1)
記事ランキング
  1. 1. 確率の収束に必要な試行回数
  2. 2. no img Tera Term(テラターム) 覚えておくと便利なコマンド一覧
  3. 3. no img Windows ディスク使用率100%を改善させる
  4. 4. no img VBScript マウスポインタを自動的に移動させクリックするスクリプト
  5. 5. VBScript タスクスケジューラのメッセージを最前面に表示するスクリプト
広告
会員登録せずに無料で読める!! 漫画読み放題のサービス

動画編集・YouTuberを始めたい方向け 無料動画編集ソフト

クラウド型レンタルサーバー クラウド型レンタルサーバー

Amazonで購入する
※Amazonのアソシエイトとして、七転八起SEの備忘録は適格販売により収入を得ています。

メンタルヘルス・マネジメント検定試験II種ラインケアコース過去問題集_2023年度版
メンタルヘルス・マネジメント検定試験II種 過去問題集〈2023年度版〉

×

この広告は30日以上新しい記事の更新がないブログに表示されております。