VBで自動クリックを実現するには

2年 ago
光, 明
1 minute

SendKeys関数を使用する

' 引入SendKeys模块
Imports System.Windows.Forms
' 模拟按下和释放鼠标左键
Private Sub AutoClick()

‘ 模拟点击前先将焦点切换到目标窗口

 

AppActivate(“目标窗口的标题”)

 

 

 

‘ 模拟按下鼠标左键

 

SendKeys.Send(“{LEFTDOWN}”)

 

 

 

‘ 模拟释放鼠标左键

 

SendKeys.Send(“{LEFTUP}”) End Sub



Windows APIを使用する


' 引入Windows API模块
Imports System.Runtime.InteropServices
' 模拟鼠标点击事件
Private Declare Sub mouse_event Lib “user32” (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy 
As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer)
Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
Private Const MOUSEEVENTF_LEFTUP As Integer = &H4
Private Sub AutoClick()


 


‘ 设置鼠标点击位置（相对于屏幕左上角的坐标）


 


Dim clickX As Integer = 100


 


Dim clickY As Integer = 100


 


 


 


‘ 模拟点击前先将焦点切换到目标窗口


 


AppActivate(“目标窗口的标题”)


 


 


 


‘ 模拟按下鼠标左键


 


mouse_event(MOUSEEVENTF_LEFTDOWN, clickX, clickY, 0, 0)


 


 


 


‘ 模拟释放鼠标左键


 


mouse_event(MOUSEEVENTF_LEFTUP, clickX, clickY, 0, 0) End Sub




なお、自動クリックは一部のソフトウェアの利用規約違反の可能性がありますので、ご利用の際はご注意ください。

        


        
        

			        

    


	



		            	                        

        


    

















  
    bannerAds