易語言在不用大漠的情況下呢模擬滑鼠移動軌跡和點選,小編也是新手勿噴
工具/原料
電腦
易語言
方法/步驟
開啟易語言我相信不要多說了吧
然後在介面上新增:三個按鈕、三個編輯框,兩個時鐘
三個按鈕名稱分別為:按鈕1、按鈕錄製指令碼、按鈕執行指令碼
三個編輯框名稱為:編輯框指令碼狀態、編輯框設定幾秒、編輯框1
兩個時鐘名稱為:記錄時鐘、時鐘倒計時
如下圖:
然後複製以下程式碼:貼上到易語言程式碼介面
—————————————分割線不要復——————————————
.版本 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))
.子程式 _編輯框設定幾秒_內容被改變
倒計時 = 到整數 (編輯框設定幾秒.內容)
注意了;還沒完 這裡要新建一個dll命令
複製以下程式碼:貼上到dll命令裡
—————————————快樂分割線——————————————
.版本 2
.DLL命令 SetCursorPos
.引數 x座標, 整數型
.引數 y座標, 整數型
.DLL命令 測試虛擬鍵_, 整數型, "user32.dll", "GetAsyncKeyState"
.引數 key, 整數型, , 0
接下來我們就是除錯運行了!
要是有什麼不懂的小夥伴可以加下小編的qq:932325698
歡迎來問!