滑鼠移動腳本

① 按鍵精靈 編寫腳本 如何讓滑鼠移動

滑鼠移動 move 例如50,80 deplay 48000 滑鼠移動 move 例如90,100 deplay 48000 然後套個循環

② 按鍵精靈設置滑鼠移動腳本

Dim i,n
Dim x(2),y(2)
i=0
n=0
VBSCall GetCursorPos(x(i),y(i))
While i<2
//設置延時，2分鍾內5次
Delay 120000/5
//這里用絕對值函數，使i在0與1之間互相轉化
i=Abs(i-1)
VBSCall GetCursorPos(x(i),y(i))
If x(0)=x(1) and y(0)=y(1)
n=n+1
Else
n=0
EndIf
//上面的IF語句里比較最近兩次滑鼠坐標，只要一有變化則計數器n清0
//當連續5次滑鼠無變化時，則執行
If n>4
MoveTo 450,350
Delay 5
LeftClick 1
n=0
EndIf
EndWhile

把上面的粘貼到按鍵精靈里會睇得更清楚。
其實無必要比較完5次啦，只要比較最近兩次有無變化就行了。如果確實要看比較5次的腳本，那可以有如下程序（上下兩個腳本效果一樣）：

Dim i,n
Dim x(5),y(5)
i=0
While i<5
Delay 120000/5
VBSCall GetCursorPos(x(i),y(i))
n=0
While n<i
//這個循環用來比較數組內的數值
If x(n)=x(i) and y(n)=y(i)
If n=3
MoveTo 450,350
Delay 5
LeftClick 1
i=-1
//這里初始化i，就可以不斷循環檢測
EndIf
n=n+1
Else
i=-1
EndIf
EndWhile
i=i+1
EndWhile

③ 按鍵精靈怎麼做滑鼠滾輪上下滾的腳本就是滑鼠的中鍵

按鍵精靈設置腳本方法：

//如果滾動量為正,向上滾動;否則向下滾動，MouseWheel 1。

//把滑鼠滾輪向上滾動1格。

MouseWheel -1。

//把滑鼠滾輪向下滾動1格。

按鍵精靈是一款模擬滑鼠鍵盤動作的軟體。通過製作腳本，可以讓按鍵精靈代替雙手，自動執行一系列滑鼠鍵盤動作。

按鍵精靈簡單易用，不需要任何編程知識就可以作出功能強大的腳本。只要在電腦前用雙手可以完成的動作，按鍵精靈都可以替代完成。

軟體功能：

1.網路游戲中可使用按鍵精靈製作腳本，實現自動打怪，自動補血，自動說話等。

2.辦公族可用按鍵精靈自動處理表格間數據的轉換，自動調整文檔格式、文章排版，自動收發郵件等。

3.利用按鍵精靈實現定時自動打開檢驗網頁鏈接，文獻檢索，收集資料等重復操作。

4.任何只要在電腦前用雙手可以完成的電腦操作都可以替代完成。

④ 按鍵精靈9後台腳本滑鼠移動問題

後台操作的時候 你滑鼠不能移動到執行腳本的窗口內 否則會造成滑鼠錯位

也有可能是執行腳本的窗口不支持後台滑鼠點擊 你可以嘗試按下再彈起

Hwnd=Plugin.Window.MousePoint()'這個獲取滑鼠指向窗口命令最好不用

Hwnd=Plugin.Window.Foreground()

Do
CallPlugin.Bkgnd.LeftDown(Hwnd,828,652)
Delay100
CallPlugin.Bkgnd.LeftUp(Hwnd,828,652)
Delay500
CallPlugin.Bkgnd.LeftDown(Hwnd,803,681)
Delay100
CallPlugin.Bkgnd.LeftUp(Hwnd,803,681)
Delay500
CallPlugin.Bkgnd.LeftDown(Hwnd,803,681)
Delay100
CallPlugin.Bkgnd.LeftUp(Hwnd,803,681)
Delay500
Loop

⑤ 按鍵精靈後台滑鼠移動和點擊腳本怎麼製作。

具體代碼如下:
PutAttachment "d:\p", "*.*"

//獲取窗口句柄
Hwnd = Plugin.Window.MousePoint()
//獲取窗口客戶區左上角坐標
sRect = Plugin.Window.GetClientRect(Hwnd)
xyArray = Split(sRect, "|", - 1 , 1)
dx = xyArray(0)
dy = xyArray(1)

//轉移窗口
KMData = Plugin.bgkms6_10.KMTransform(hwnd, 0)

//Plugin.BGCP2_02.TransformWindow 參數1

//載入圖片
tu = Plugin.BGCP2_02.LoadBMP("d:\p\4.bmp")
tu1 = Plugin.BGCP2_02.LoadBMP("d:\p\12.bmp")
Do
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 3000
For 60
Call Plugin.BGCP2_02.FindPicture(hwnd, 0, 0, 1024, 768 ,tu(0), 30, 0.9, ipX, ipY)
If ipX > 0 And ipY > 0 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Delay 1000
Call Plugin.BGCP2_02.FindPicture(hwnd, 0, 0, 1024, 768 ,tu1(0), 30, 0.9, intX, intY)
If intX > 0 And intY > 0 Then
Call Plugin.bgkms6_10.MoveTo(KMData, intX, intY) //
Delay 1000
call Plugin.bgkms6_10.LeftClick (KMData) //這里後台點擊滑鼠左擊沒反應,是不是那地方寫錯了?
Delay 200
End If
End If
//End If
Next
Delay 100
Loop
Sub OnScriptExit
//釋放轉移窗口
Call Plugin.BGCP2_02.UnTransformWindow(Hwnd)
call Plugin.bgkms6_10.KMUntransform (KMData)
End Sub

⑥ 按鍵精靈後台滑鼠移動和點擊腳本怎麼製作

先獲取要後台操作的窗口句柄，然後調用後台命令進行點擊。

參考以下代碼：

Hwnd=Plugin.Window.Find(0,"無標題-記事本")
CallPlugin.Bkgnd.LeftClick(Hwnd,100,200)

⑦ 關於按鍵精靈滑鼠移動腳本的問題 下面是我的腳本代碼

hwnd
=
plugin.window.mousepoint()
這條命令可以得到窗口句柄，但是如果需要移動滑鼠的話後台運行坐標和前台是不一樣的

⑧ 按鍵精靈滑鼠移動和點擊腳本

你可以錄制一個，然後改一下
下面的是循環1000次，你可以改一下
到時候你可以在外面設置F10是開啟，F12是暫停

For 1000
Delay 50
MoveTo 702, 520
LeftClick 1
Delay 50
MoveTo 722, 537
LeftClick 1
Next

⑨ 求會寫按鍵精靈腳本的大神，需要寫個滑鼠自動移動點擊的腳本

按鍵精靈後面的版本我都沒用了，我用的是9.55版本，不會出現那種情況，不過，如果按鍵精靈熱鍵會影響腳本執行時間，你可以換一個方法，寫下面代碼While
True
Key=WaitKey()
If
Key=48
Then
For
i=1
To
10
KeyPress
65,1
NextWend腳本啟版動熱鍵不用設1，你先啟動腳本，然後每按一次數字1，就會馬權上按10個a。