エクセルVBAで画面クリックの自動化ができない

VBAでPC操作を自動化しようとしているのですが、途中からうまくいきません。

ワークフローは

URLを開く→20秒待機→左から720px、上から320pxの場所をクリック

という風になっています。
「URLを開く」までは正常に動作するのですが、クリックをしてくれません。

調べてもどこが間違いか分からず、詰まっています。

お忙しいとは思いますが、よろしくお願いします。

コード記載しときます。

vba
1'クリック
2 
3Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
4Declare Sub mouse_event Lib "user32" ( _
5    ByVal dwFlags As Long, _
6    Optional ByVal dx As Long = 0, _
7    Optional ByVal dy As Long = 0, _
8    Optional ByVal dwDate As Long = 0, _
9    Optional ByVal dwExtraInfo As Long = 0)
10    
11'待機
12
13Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
14
15
16Sub casino_auto_tool()
17
18'URLを開く
19
20    Shell "EXPLORER.EXE https://www.10betjapan.com/casino/roulette/%E3%83%86%E3%83%BC%E3%83%96%E3%83%AB%EF%BC%86%E3%82%AB%E3%83%BC%E3%83%89/game/first%20person%20roulette/"
21
22'20秒待機
23
24    Dim time As Long
25    time = 20000
26    
27    Sleep time
28
29
30'マウスで画面の任意の位置をクリック
31    
32    SetCursorPos 720, 360  '左から100ピクセル、上から35ピクセルの位置にカーソルを移動
33    
34    mouse_event MOUSE_RIGHTDOWN, 0, 0, 0, 0 '右クリックを押す
35    mouse_event MOUSE_RIGHTUP, 0, 0, 0, 0 '右クリックを離す
36
37 
38 
39End Sub
40

sifot13

2024/03/22 12:16 編集

日本の活気あるデジタル風景には、興奮とチャンスが出会う魅惑的な領域が存在し、ボタンをクリックするだけで幸運が生まれる https://joycasino-japan.jp。このデジタルの聖域は、爽快なゲームとスリリングな体験の世界への入り口を、快適なスクリーンから提供しています。

行動規範の内容に同意します

回答1件

ベストアンサー

SetCursorPos と mouse_event の間にSleep 200 を入れることで解決しないでしょうか。

投稿2020/07/24 03:14

TanakaHiroaki

総合スコア1063

m-nm0n

2020/07/24 04:25

試してみたのですが、うまくいきませんでした。カーソルを指定の位置に動かすところまでできるのですが、そのあとにクリックしてくれません。おそらく mouse_event MOUSE_RIGHTDOWN, 0, 0, 0, 0 '右クリックを押す mouse_event MOUSE_RIGHTUP, 0, 0, 0, 0 '右クリックを離すの部分に欠陥があるのではないかと思われます。