⑴ 如何用全能模擬王編寫滑鼠點擊的程序
1、編寫腳本：添加操作腳本
2、單步執行：點擊單步執行按鈕，腳本只執行當前選擇的那行腳本，用於調試時使用
3、選擇開始：從選擇行開始執行腳本
4、換ip設置：進入換ip設置窗口
5、打開瀏覽器：執行打開網頁操作程序會自動打開，這個按鈕用戶點擊後也會打開瀏覽器窗口
⑵ 按鍵精靈滑鼠連點腳本
a=lng(寫上你要點擊的次數)
do//每1秒點2次滑鼠左鍵 ,點擊a次後停止 腳 本
i=i+1
leftclick 1
delay 500
if i=a then
exit do
end if
loop
⑶ 滑鼠自動捕捉點擊 腳本
UserVar 間隔=20 "請輸入點擊速度"
Do
LeftClick 1
Delay 間隔
loop
+++++++復制上面的那些到按鍵精靈就OK了。生成一個小精靈就OK了+++++++
⑷ 按鍵精靈後台滑鼠移動和點擊腳本怎麼製作。
具體代碼如下:
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
⑸ 求會寫按鍵精靈腳本的大神，需要寫個滑鼠自動移動點擊的腳本
按鍵精靈後面的版本我都沒用了，我用的是9.55版本，不會出現那種情況，不過，如果按鍵精靈熱鍵會影響腳本執行時間，你可以換一個方法，寫下面代碼While
True
Key=WaitKey()
If
Key=48
Then
For
i=1
To
10
KeyPress
65,1
NextWend腳本啟版動熱鍵不用設1，你先啟動腳本，然後每按一次數字1，就會馬權上按10個a。
⑹ 求滑鼠自動單擊腳本程序
可以用TC來寫的，網上有教程的。
⑺ 幫我寫個滑鼠在桌面兩個地方來回自動點擊的腳本
你直接買個有這功能的鍵盤或滑鼠不就行了，腳本一般都帶木馬的，我想你是要游戲中掛機防被踢。
再看看別人怎麼說的。
⑻ 按鍵精靈後台滑鼠移動和點擊腳本怎麼製作
先獲取要後台操作的窗口句柄，然後調用後台命令進行點擊。
參考以下代碼：
Hwnd=Plugin.Window.Find(0,"無標題-記事本")
CallPlugin.Bkgnd.LeftClick(Hwnd,100,200)
⑼ 求個按鍵精靈1秒滑鼠點擊多次的腳本
1: http://jlbc.skycn.com/down/qm6chs_tk.zip詳細的教程 2:給你個函數庫，有VB基礎得話看得懂，也能派的上點用處 functionRunApp(AppPath)'這個函數用來運行一個外部程序 dimobj setobj=createobject("WScript.Shell") obj.Run(AppPath) endfunction functionMessageBox(Prompt)'這個函數用來彈出一個對話框（可以隨時查看你的變數的值） dimobj setobj=createobject("WScript.Shell") callobj.Popup(Prompt,0,"QMacro") endfunction functionSayString(Prompt)'這個函數用來輸入文本 dimobj setobj=createobject("WScript.Shell") callobj.SendKeys(Prompt) endfunction functionInputBox(Prompt)'這個函數用來彈出輸入對話框 dimobj setobj=createobject("QMDispatch.QMFunction") dimOutString OutString=obj.InputBox(Prompt) InputBox=OutString endfunction functionGetCursorPos(ByRefCursorX,ByRefCursorY)'這個函數用來得到滑鼠當前位置 dimobj setobj=createobject("QMDispatch.QMFunction") CursorPos=obj.GetCursorPos() CursorY=CursorPosMod8192 CursorX=CInt(CursorPos/8192) endfunction functionSetCursorPos(CursorX,CursorY)'這個函數用來設置滑鼠當前位置 dimobj setobj=createobject("QMDispatch.QMFunction") Callobj.SetCursorPos(CursorX,CursorY) endfunction functionGetPixelColor(PosX,PosY)'這個函數得到某個指定點的顏色（用字元串表示） dimobj setobj=createobject("QMDispatch.QMFunction") GetPixelColor=obj.GetPixelColor(PosX,PosY) endfunction functionFindColor(iLeft,iTop,iRight,iBottom,szColor,ByRefFoundX,ByRefFoundY)'這個函數用來從某個矩形范圍內查找指定的顏色，按從左到右，從上到下的順序查找 dimobj setobj=createobject("QMDispatch.QMFunction") FoundPixel=obj.FindColor(iLeft,iTop,iRight,iBottom,szColor,0) FoundX=CInt(FoundPixel/8192) FoundY=FoundPixelMod8192 endfunction functionFindCenterColor(iLeft,iTop,iRight,iBottom,szColor,ByRefFoundX,ByRefFoundY)'這個函數用來從某個矩形范圍內查找指定的顏色，按從中間到四周的順序查找 dimobj setobj=createobject("QMDispatch.QMFunction") FoundPixel=obj.FindColor(iLeft,iTop,iRight,iBottom,szColor,1) FoundX=CInt(FoundPixel/8192) FoundY=FoundPixelMod8192 endfunction functionGetScreenResolution(ByRefScreenX,ByRefScreenY)'這個函數用於得到當前屏幕解析度 dimobj setobj=createobject("QMDispatch.QMFunction") Resolution=obj.GetScreenResolution() ScreenX=CInt(Resolution/8192) ScreenY=ResolutionMod8192 endfunction functionReadMemory(dwAddress,iType,ByRefReadValue)'這個函數用於讀取當前進程的內存地址 dimobj setobj=createobject("QMDispatch.QMFunction") IfiType=0Then ReadValue=CByte(obj.ReadMemory(dwAddress,iType)) Else ReadValue=CLng(obj.ReadMemory(dwAddress,iType)) EndIf endfunction functionFindPic(iLeft,iTop,iRight,iBottom,szFileName,fSimilar,ByRefFoundX,ByRefFoundY) '這個函數用於在屏幕范圍內查找圖片 dimobj setobj=createobject("QMDispatch.QMFunction") FoundPixel=obj.FindPic(iLeft,iTop,iRight,iBottom,szFileName,fSimilar) FoundX=CInt(FoundPixel/8192) FoundY=FoundPixelMod8192 endfunction functionDelay(iMilliSecond)'這個函數可以延時，單位是毫秒，支持表達式 dimobj setobj=createobject("QMDispatch.QMFunction") obj.SleepMS(iMilliSecond) endfunction functionFindColorEx(iLeft,iTop,iRight,iBottom,szColor,iType,fSimilar,ByRefFoundX,ByRefFoundY)'這個函數用來從某個矩形范圍內模糊查找指定的顏色 dimobj setobj=createobject("QMDispatch.QMFunction") FoundPixel=obj.FindColor(iLeft,iTop,iRight,iBottom,szColor,iType,fSimilar) FoundX=CInt(FoundPixel/8192) FoundY=FoundPixelMod8192 endfunction