滑鼠腳本
㈠ 按鍵精靈 編寫腳本 如何讓滑鼠移動
滑鼠移動 move 例如50,80 deplay 48000 滑鼠移動 move 例如90,100 deplay 48000 然後套個循環
㈡ 關於滑鼠連續點擊(或腳本)
按鍵精靈有免費的。
個人覺得他在完成單調的工作是很好的工具
㈢ 關於滑鼠腳本
腳本精靈可以幫您操作電腦。不需要任何編程知識就可以做出功能強大的腳本。只要您在電腦前可以完成的動作,腳本精靈都可以替您完成。
腳本精靈內置上百個命令,提供全界面化的操作。腳本還可以生成獨立的小精靈軟體,發給朋友分享。
腳本精靈提供了強大的插件功能擴展,已經有數百位高手製作了上千個插件命令供您使用。
腳本精靈已推出通用的小精靈注冊系統,腳本不再是自娛自樂的玩具,而是您創業的利器。
㈣ 按鍵精靈後台滑鼠移動和點擊腳本怎麼製作。
具體代碼如下:
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
㈤ 按鍵精靈 當滑鼠中鍵按下時 執行腳本
關於上面腳本有時不能停止應該是,你停止的時間正好處在延時當中,所以不默認。可以試看看做兩個腳本,第一個發現中鍵按下就無限點擊,第二個腳本發現中鍵彈起就按全部腳本終止鍵(一般f12)
㈥ 按鍵精靈鍵盤模擬滑鼠動作腳本
上:
MoveTo
683,
384
LeftDown
1
Delay
20
MoveTo
683,
384-20
LeftUp
1
下:
MoveTo
683,
384
LeftDown
1
Delay
20
MoveTo
683,
384+20
LeftUp
1
左:
MoveTo
683,
384
LeftDown
1
Delay
20
MoveTo
683-20,
384
LeftUp
1
右:
MoveTo
683,
384
LeftDown
1
Delay
20
MoveTo
683+20,
384
LeftUp
1
--------------
以上為你需要的代碼。屏幕中心,你最好自己設。把解析度除2就得到中心了。
你分別把上面四個代碼做成4個按鍵小精靈,然後設快鍵為上下左右。就可以用了
㈦ 按鍵精靈滑鼠移動和點擊腳本
你可以錄制一個,然後改一下
下面的是循環1000次,你可以改一下
到時候你可以在外面設置F10是開啟,F12是暫停
For 1000
Delay 50
MoveTo 702, 520
LeftClick 1
Delay 50
MoveTo 722, 537
LeftClick 1
Next
㈧ 有沒有可以控制滑鼠每幾秒點一下的工具或腳本
哎呀,滑鼠不行了?讓你馬哥來幫你!!!!!!!
不管你的桌面處於任何狀態,按win+e快捷鍵,打開windows的資源管理器。此時游標的默認位置定位於「我的電腦「上,按方向鍵移動到「控制面板「上,然後按tab鍵跳動游標,繼續按動方向鍵,選擇「輔助選項「,按enter鍵確認,這時你會發現彈出一個「輔助選項屬性「對話框。將tab和方向鍵配合,選擇對話框中的「滑鼠「標簽卡。到這一步,我們就可以著手設置「滑鼠鍵「了。按下快捷鍵alt+m,選中「使用『滑鼠鍵『「復選框,就可以使「滑鼠鍵「生效,做完這一步,可以使用小鍵盤來控制滑鼠的指針方向和點擊操作。
上面的操作僅僅令「滑鼠鍵「生效,如果想進一步設置滑鼠鍵,則按alt+s鍵,彈出「滑鼠鍵設置「對話框。
按alt+u選中「使用快捷方式「,則以後你可以按「左alt+在shift+numlock「鍵以快速打開(關閉)「滑鼠鍵「。按alt+h選中「按住ctrl鍵進行加速或按shift鍵進行減速「,則以後利用「滑鼠鍵「移動「滑鼠「時,可配合ctrl鍵和shift鍵分別加速和減速移動滑鼠指針。利用小鍵盤使用「滑鼠鍵「,numlock是切換開關。如果按「alt+n「選定「打開「,意即當numlock按鍵處於打開狀態時,小鍵盤用作「滑鼠鍵「;反之,按「alt+f「選擇「關閉「,則意味著當numlock按鍵處於關閉狀態時,小鍵盤用作「滑鼠鍵「。同理,按「alt+s「鍵,選中「在屏幕上顯示滑鼠鍵狀態「復選框,則可以看到任務欄狀態區中的「滑鼠鍵「tray標志,方便日後查看「滑鼠鍵「狀態以及設置相關參數。
而滑鼠鍵對滑鼠操作的方法是:
1、移動
1)
要水平或垂直移動滑鼠指針,請按小鍵盤上的「4「、「6「、「8「、「2「鍵,分別代表
←、→、↑、↓四個方向。
2)
要沿對角移動滑鼠指針,請按小鍵盤上的「7「、「3「、「9「、「1「鍵,分別代表這四個方向。
2、點擊
1)
如果欲單擊某個對象,請按小鍵盤上的數字鍵5。
2)
如果要雙擊某個對象,則按小鍵盤中的加號「+「鍵。
3)
如果要右鍵點擊,請先按小鍵盤中的減號「--「鍵,然後要單擊則按數字鍵
5,要雙擊則按加號「+「鍵。
4)
如果要同時用兩個滑鼠鍵單擊,請按小鍵盤上的星號「*「鍵
,然後要單擊則按
5,要雙擊則按加號「+「鍵。
5)
如果要切換到標准單擊狀態,請按小鍵盤上的斜杠「/「鍵。
3、
拖放
1)
如果要在想移動的對象上移動滑鼠指針,請按小鍵盤上的箭頭鍵。
2)
如果要按住滑鼠按鈕,請按小鍵盤上的「
ins「鍵。
3)
如果要在欲將對象移動到的區域上移動指針,請按小鍵盤上的箭頭鍵。
4)
如果要釋放滑鼠按鈕,則按下小鍵盤上的「del「鍵即可
快採用我的啊啊啊
啊
鯉魚~~
㈨ 如何想編一個每隔一段時間滑鼠自動點擊的腳本(不用按鍵精靈)
如題,這樣的腳本有可能製作嗎?只用按鍵精靈可以製作嗎? 如果可以製作,請//確定按鈕坐標 LeftClick 1 //隔一段時間 Delay 10000 Goto 開始 ,jsqadD
㈩ 按鍵精靈設置滑鼠移動腳本
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