易語言-API點選滑鼠

.版本 2

.DLL命令 UnregisterHotKey, 整數型, , "UnregisterHotKey"
    .引數 hWnd, 整數型
    .引數 HotKeyID, 整數型

.DLL命令 RegisterHotKey, 整數型, "user32.dll", "RegisterHotKey"
    .引數 hWnd, 整數型
    .引數 id, 整數型
    .引數 fsModifoers, 整數型
    .引數 vk, 整數型

.DLL命令 SetWindowLongA, 子程式指標, , "SetWindowLongA"
    .引數 hWnd, 整數型
    .引數 nIndex, 整數型
    .引數 dwNewLong, 子程式指標

.DLL命令 CallWindowProcA, 整數型, , "CallWindowProcA"
    .引數 lpPrevWndFunc, 子程式指標
    .引數 hWnd, 整數型
    .引數 Msg, 整數型
    .引數 wParam, 整數型
    .引數 lParam, 整數型

.DLL命令 _控制滑鼠, , "user32", "mouse_event"
    .引數 dwFlags, 整數型
    .引數 dx, 整數型
    .引數 dy, 整數型
    .引數 cButtons, 整數型
    .引數 dwExtraInfo, 整數型

 

 

 

.版本 2

.程式集 視窗程式集1
.程式集變數 集_熱鍵控制程式碼, 整數型

.子程式 __啟動視窗_建立完畢

集_熱鍵控制程式碼 ＝ RegHotKey (取視窗控制程式碼 (), 1, #Z鍵, &開始點選)

 

.子程式 開始點選

.如果 (標籤_工作狀態.標題 ＝ “已停止”)
    標籤_工作狀態.標題 ＝ “執行中”
    時鐘1.時鐘週期 ＝ 10
.否則
    標籤_工作狀態.標題 ＝ “已停止”
    時鐘1.時鐘週期 ＝ 0
.如果結束

.子程式 __啟動視窗_將被銷燬

UnRegHotKey (取視窗控制程式碼 (), 集_熱鍵控制程式碼)

.子程式 _時鐘1_週期事件

_控制滑鼠 (2, 0, 0, 0, 0)  ' 按下
_控制滑鼠 (4, 0, 0, 0, 0)  ' 放開