⑴ 如何用全能模拟王编写鼠标点击的程序
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