以下是一个简单的易语言鼠标点击器的示例代码：
```
'定义全局变量
Global hTimer As Long '计时器句柄
'窗口初始化事件
Private Sub Form_Load()
'设置窗口位置
Me.Move 100, 100, 300, 200
'设置窗口标题
Me.Caption = "鼠标点击器"
'创建按钮控件
Call CreateButton("开始", 20, 20, 80, 30, AddressOf StartClick)
Call CreateButton("停止", 120, 20, 80, 30, AddressOf StopClick)
End Sub
'创建按钮控件
Private Sub CreateButton(ByVal text As String, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long, ByVal handler As Long)
'创建按钮控件
Call CreateWindowEx(0, "Button", text, WS_CHILD Or WS_VISIBLE Or BS_PUSHBUTTON, x, y, width, height, Me.hWnd, 0, Me.hInstance, 0)
'设置按钮事件处理函数
Call SetWindowLong(FindWindowEx(Me.hWnd, 0, "Button", text), GWL_WNDPROC, handler)
End Sub
'开始点击事件处理函数
Private Function StartClick(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'启动计时器
hTimer = SetTimer(Me.hWnd, 0, 1000, AddressOf ClickMouse)
End Function
'停止点击事件处理函数
Private Function StopClick(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'停止计时器
Call KillTimer(Me.hWnd, hTimer)
End Function
'鼠标点击事件处理函数
Private Function ClickMouse(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'获取当前鼠标位置
Dim x As Long, y As Long
Call GetCursorPos(x, y)
'模拟鼠标点击
Call mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0)
End Function
```
使用时，打开易语言编辑器，新建一个窗口程序，将以上代码复制粘贴到窗口程序中，保存并编译运行即可。点击“开始”按钮后，程序将每秒模拟一次鼠标左键点击操作；点击“停止”按钮后，程序将停止模拟鼠标点击操作。
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
