易語言模擬滑鼠移動軌跡+模擬滑鼠移動點選(2)?

易語言在不用大漠的情況下呢模擬滑鼠移動軌跡和點選,小編也是新手勿噴

工具/原料

電腦

易語言

方法/步驟

開啟易語言我相信不要多說了吧

然後在介面上新增:三個按鈕、三個編輯框,兩個時鐘

三個按鈕名稱分別為:按鈕1、按鈕錄製指令碼、按鈕執行指令碼

三個編輯框名稱為:編輯框指令碼狀態、編輯框設定幾秒、編輯框1

兩個時鐘名稱為:記錄時鐘、時鐘倒計時

如下圖:

易語言模擬滑鼠移動軌跡+模擬滑鼠移動點選(2)

然後複製以下程式碼:貼上到易語言程式碼介面

—————————————分割線不要復——————————————

.版本 2

.支援庫 eAPI

.支援庫 spec

.程式集 視窗程式集_啟動視窗

.程式集變數 記錄滑鼠X座標, 整數型, , "0"

.程式集變數 記錄滑鼠Y座標, 整數型, , "0"

.程式集變數 滑鼠鍵盤的記錄, 整數型, , "0"

.程式集變數 倒計時, 整數型

.子程式 _時鐘倒計時_週期事件

倒計時 = 倒計時 - 1

編輯框指令碼狀態.內容 = “錄製倒計時” + 到文字 (倒計時) + “秒”

.如果真 (倒計時 = 0)

時鐘倒計時.時鐘週期 = 0

記錄時鐘.時鐘週期 = 0

倒計時 = 到整數 (編輯框設定幾秒.內容)

編輯框指令碼狀態.內容 = “錄製結束”

編輯框1.內容 = “滑鼠X座標記錄數 ” + 到文字 (取陣列成員數 (記錄滑鼠X座標)) + #換行符 + “滑鼠Y座標記錄數 ” + 到文字 (取陣列成員數 (記錄滑鼠Y座標)) + #換行符 + “滑鼠按鍵記錄數 ” + 到文字 (取陣列成員數 (滑鼠鍵盤的記錄))

返回 ()

.如果真結束

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

倒計時 = 到整數 (編輯框設定幾秒.內容)

編輯框1.獲取焦點 ()

.子程式 _按鈕錄製指令碼_被單擊

編輯框指令碼狀態.內容 = “開始錄製”

記錄時鐘.時鐘週期 = 10

時鐘倒計時.時鐘週期 = 1000

.子程式 _記錄時鐘_週期事件

.區域性變數 記錄x座標, 整數型

.區域性變數 記錄y座標, 整數型

記錄x座標 = 取滑鼠水平位置 ()

記錄y座標 = 取滑鼠垂直位置 ()

.如果 (測試虛擬鍵_ (1) ≠ 0 或 測試虛擬鍵_ (2) ≠ 0)

.如果真 (測試虛擬鍵_ (1) ≠ 0)

加入成員 (滑鼠鍵盤的記錄, 1) ' 這裡呢我就用1來代表滑鼠左鍵被單機

.如果真結束

.如果真 (測試虛擬鍵_ (2) ≠ 0)

加入成員 (滑鼠鍵盤的記錄, 2) ' 這裡呢我就用2來代表滑鼠右鍵被單機

.如果真結束

.否則

加入成員 (滑鼠鍵盤的記錄, 0)

.如果結束

加入成員 (記錄滑鼠X座標, 記錄x座標)

加入成員 (記錄滑鼠Y座標, 記錄y座標)

.子程式 _按鈕執行指令碼_被單擊

.區域性變數 滑鼠水平座標, 整數型

.區域性變數 滑鼠垂直座標, 整數型

.區域性變數 計數, 整數型

.如果真 (取陣列成員數 (記錄滑鼠X座標) ≠ 0)

編輯框指令碼狀態.內容 = “模擬滑鼠移動”

.如果真結束

.計次迴圈首 (取陣列成員數 (滑鼠鍵盤的記錄), 計數)

滑鼠水平座標 = 記錄滑鼠X座標 [計數]

滑鼠垂直座標 = 記錄滑鼠Y座標 [計數]

SetCursorPos (滑鼠水平座標, 滑鼠垂直座標)

.如果真 (滑鼠鍵盤的記錄 [計數] ≠ 0)

.如果真 (滑鼠鍵盤的記錄 [計數] = 1)

模擬滑鼠點選 (記錄滑鼠X座標 [計數], 記錄滑鼠Y座標 [計數], #介面常量.左鍵單擊)

.如果真結束

.如果真 (滑鼠鍵盤的記錄 [計數] = 2)

模擬滑鼠點選 (記錄滑鼠X座標 [計數], 記錄滑鼠Y座標 [計數], #介面常量.右鍵單擊)

.如果真結束

.如果真結束

延遲 (10)

.計次迴圈尾 ()

清除陣列 (記錄滑鼠X座標)

清除陣列 (記錄滑鼠Y座標)

清除陣列 (滑鼠鍵盤的記錄)

.子程式 _編輯框1_按下某鍵, 邏輯型

.引數 鍵程式碼, 整數型

.引數 功能鍵狀態, 整數型

編輯框1.內容 = 到文字 (鍵程式碼)

.子程式 _按鈕1_被單擊

置隨機數種子 ()

編輯框1.內容 = “你點選了我!” + #換行符 + #換行符 + “隨機數:” + 到文字 (取隨機數 (10, 99))

.子程式 _編輯框設定幾秒_內容被改變

倒計時 = 到整數 (編輯框設定幾秒.內容)

易語言模擬滑鼠移動軌跡+模擬滑鼠移動點選(2)

注意了;還沒完 這裡要新建一個dll命令

複製以下程式碼:貼上到dll命令裡

—————————————快樂分割線——————————————

.版本 2

.DLL命令 SetCursorPos

.引數 x座標, 整數型

.引數 y座標, 整數型

.DLL命令 測試虛擬鍵_, 整數型, "user32.dll", "GetAsyncKeyState"

.引數 key, 整數型, , 0

易語言模擬滑鼠移動軌跡+模擬滑鼠移動點選(2)

易語言模擬滑鼠移動軌跡+模擬滑鼠移動點選(2)

接下來我們就是除錯運行了!

要是有什麼不懂的小夥伴可以加下小編的qq:932325698

歡迎來問!

軌跡, 座標, 滑鼠, 易語言,
相關問題答案