Question

求个按键精灵1秒鼠标点击多次的脚本

要鼠标左键点击的速度月快越好只要不卡住就行

Answer 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

Answer 2

卡不卡住 是你电脑运行问题了
Goto 开始
LeftClick 1
Goto 开始