按键精灵命令大全第三版

合集下载

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

• • • • • • • • • • • • • • • • • • • • • • • • • •
Sub 获取坐标 Rem 获取坐标 a=WaitClick If a=32777 Then GetCursorPos ux,uy Call Plugin.Msg.ShowScrTXT(610, 70, 624, 85, "■", "0000FF") Else Goto 获取坐标a End if Rem 获取坐标b b=WaitClick () If b=32777 Then GetCursorPos xx,yy Call Plugin.Msg.ShowScrTXT(624, 70, 638, 85, "■", "E6962CF") Else Goto 获取坐标b End if For 15 MoveTo ux,uy Delay 50 MoveTo xx,yy Delay 50 Next x=ux y=uy End Sub
• • • • • • • • • • • • • • • • • • • • •
Байду номын сангаас
屏幕涂鸦： Dim aa,bb,cc,dd:aa=0:bb=0:cc=aa+14:dd=bb+15 MessageBox "在图片左上角按1次鼠标中键获取起始坐标"&chr(13)&"在图片右下角按1次鼠标中键获取末尾坐标" Call Plugin.Msg.HideScrTXT():Call 获取坐标():Set wsh = CreateObject("WScript.Shell"):wsh.popup "接下来别动鼠标哦.....仔细看！！！(自动关闭)",2,"2秒自动关闭!!",64 For yy-uy x=ux aa=0 cc=aa+14 For xx-ux MoveTo x,y GetColor=GetPixelColor(x,y) Call Plugin.Msg.ShowScrTXT(aa, bb, cc, dd, "■", GetColor) aa=aa+14 cc=aa+14 Delay 20 x=x+1 Next y=y+1 bb=bb+15 dd=bb+15 Next
记录日志 LogStart “C:\a.log” //记录日志 Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "屏幕内容填写：" & i, "0000FF") Next LogStop 打造小精灵的启动LOGO VBS set ie=createobject("internetexplorer.application") VBS ie.fullscreen=1 VBS ie.width=300 VBS ie.height=200 VBS ie.navigate "about"&":blank" VBS ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2) VBS ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2) VBS ie.document.write "<body bgcolor =skyblue scroll=no><br><br>"&"<h2 align=center>这是一个Logo</h2></body>" //scroll=no是去掉滚动栏 //ie.document.write 是向网页中写入网页脚本 VBS ie.visible=true Delay 5000 VBS ie.quit
Call Plugin.Media.Beep(1046, 100)
Call Plugin.Media.Beep(330, 300)
• • • • • • • • • • • • • • • • • • • • • • • •
特别的随机姓名生成器 [General] SyntaxVersion=2 BeginHotkey=121 BeginHotkeyMod=0 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=123 StopHotkeyMod=0 RunOnce=1 EnableWindow= MacroID=59d9a3a8-1cf7-4bd1-b41e-35834a8f4647 Description=随机姓名生成器 Enable=1 AutoRun=0 [Repeat] Type=0 Number=1 [SetupUI] Type=1 QUI=Form1 [Relative] SetupOCXFile= [Comment]
Call Plugin.Media.Beep(1318, 100)
Call Plugin.Media.Beep(1175, 100) Call Plugin.Media.Beep(349, 300) Call Plugin.Media.Beep(392, 300) Call Plugin.Media.Beep(1175, 100)
• 使用方法 • 第一步：设计脚本功能 • 写脚本之前要想清楚自己要做什么功能。在这里来制作一个每隔5秒自动按F5刷新网页的脚本。 • 第二步：设计脚本
为制作了组图来说明如何制作这个脚本。 • 任何脚本都是两步：第一步先设计功能，第二步就是用按键精灵提供的命令完成这些功能。
•
脚本例子多多滴：
•
• • • •
接上页：
[Attachment] UEsDBBQAAgAIANS4aD8AAAAAAgAAAAAAAAAOABEAyfqzybXE0NXD+y50eHRVVA0ABxK2uU65orlOuaK5TgMAUEsBAhc LFAACAAgA1LhoPwAAAAACAAAAAAAAAA4ACQAAAAAAAAAgAICBAAAAAMn6s8m1xNDVw/sudHh0VVQFAAcStrlOUEsFB gAAAAABAAEARQAAAD8AAAAAAA== [UIPackage] UEsDBBQAAgAIAMA7aT+x5Imd2AAAAEQBAAAJABEAVUlQYWNrYWdlVVQNAAcILLpOCCy6Tggsuk5jYmBgYARiNiBmccsvy mUFEYaMIDEkYAjkfwEpcyotKcnPY4dQIGUs+1ed2sMElJoKxPFA/AmIO4GY1ScxKTWHDUyCFHKe/LX55Km/B/dbMQNlrYE4 C4gLgLgKiDk88wpKS5zyKzhhDCOgHiZTAxagZDEQZwJxLxBXM6CZDVInfH3LmTWLd209seUvyDnXLujp6YF9BMRGQKwGd L4jmj5joD7D01sPf7cCOWzrkQtXD//euHjLsyu3Lizct/rgy9M/r9w6sv/QHoSsXklFCTvU1DVQU3cBaQBQSwECFwsUAAIACADAO 2k/seSJndgAAABEAQAACQAJAAAAAAAAAAAAAIAAAAAAVUlQYWNrYWdlVVQFAAcILLpOUEsFBgAAAAABAAEAQAAAAB ABAAAAAA== [Script] Event Form1.Button1.Click i=0 If i < Form1.InputBox2.Text Then Form1.Button1.Enabled = Fales Form1.Label2.Caption = "状态：" & "开始生成姓名..." End If While i < Form1.InputBox2.Text Form1.Label2.Caption = "状态：" & "正在生成第" & i+1 & "个姓名," & "已经生成:" & i & "/" & Form1.InputBox2.Text & "个！" Delay 50 Call Plugin.File.WriteFileEx("生成的姓名.txt", Lib.算法.随机取姓名()) Delay 50 i=i+1 Wend If i = Form1.InputBox2.Text Then Form1.Button1.Enabled = True Form1.Label2.Caption = "状态：" & "全部姓名生成完毕,完成率" & i & "/" & Form1.InputBox2.Text & ",谢谢使用！" End If End Event Event Form1.InputBox2.Change If Form1.InputBox2.Text > 250 Then Form1.InputBox2.Text = 250 MessageBox "每次生成个数不得超过250" End If End Event Event Form1.Load:PutAttachment "","生成的姓名.txt“:End Event
按键精灵命令大全第三版
• 基本命令
• 键盘命令键盘模拟命令[KeyPress]“按下再弹起”键[KeyDown]“按下”键[KeyUp]“弹起”键键盘控制命令[WaitKey]等待按键[GetLastKey]获取上一次按键码鼠标命令鼠标模拟命令[LeftClick]模拟点击鼠标左键 [RightClick]模拟点击鼠标右键 [MiddleClick]模拟点击鼠标中键 [LeftDoubleClick]模拟双击鼠标左键[LeftDown]模拟按下鼠标左键[LeftUp]模拟松开鼠标左键[RightDown]模拟按下鼠标右键[RightUp]模拟松开鼠标右键 [MoveTo]移动鼠标[MoveR]鼠标相对移动[MouseWheel]滚动鼠标滚轮鼠标控制命令[WaitClick]等待按鼠标[GetLastClick]获取上一次按下的鼠标代码鼠标辅助命令[SaveMousePos]保存当前鼠标位置 [RestoreMousePos]将鼠标移动到上一次保存的鼠标位置[LockMouse]锁定鼠标位置[UnlockMouse]解除鼠标锁定控制命令流程控制命令[If]判断语句 [Goto]跳转语句[Rem]Goto命令的标记，也可以做注释[While] ... [EndWhile]循环[For] ... [EndFor] 循环[EndScript]脚本结束颜色控制命令[IfColor]判断屏幕x,y坐标的某点的颜色，来执行后面的动作或控制过程[Sub] . [Return]定义过程[Gosub]调用过程其他命令[Delay]脚本暂停执行 [MessageBox]弹出一个窗口[SayString]输入文字,支持变量[Import]导入VBS或插件命令 [VBSBegin] ...[VBSEnd]VBS区块[VBS]单行VBS指令[VBSCall]执行外部VBScript函数[Plugin]调用一个外部插件提供的函数[UserVar]用户自定义设置[PutAttachment]展开附件[//]注释命令 [TracePrint]调试窗口显示文字VBS命令[VBSCall Delay] 脚本停止执行一段时间，支持变量[VBSCall FindCenterColor] 从屏幕某个区域的中间开始找色[VBSCall FindColor] 在屏幕指定区域从左到右找色[VBSCall FindColorEx] 模糊找色功能[VBSCall FindPic] 找图片，可设定相似度[VBSCall GetCursorPos] 获得当前鼠标的坐标[VBSCall GetPixelColor] 获得指定位置点的颜色[VBSCall GetScreenResolution] 获得当前屏幕分辨率[VBSCall InputBox] “弹出”对话框允许用户输入文字[VBSCall MessageBox] 弹出对话框,支持变量[VBSCall ReadMemory] 读取本机指定内存地址的数值[VBSCall RunApp] 运行一个程序,或打开一个文件[VBSCall SayString] 输入文本.[VBSCall SetCursorPos] 设置鼠标位置[VBSCall GetCursorShape] 获得鼠标形状 ps：每个命令解释在文本前面
• [按键8] - Beep - 诺基亚经典铃声
Call Plugin.Media.Beep(1568, 100) Call Plugin.Media.Beep(1397, 100) Call Plugin.Media.Beep(440, 300) Call Plugin.Media.Beep(494, 300)
• 按键精灵是一个模拟鼠标键盘动作的软件。通过制作脚本，可以
让按键精灵代替双手，自动执行一系列鼠标键盘动作。按键精灵简单易用，不需要任何编程知识就可以作出功能强大的脚本。只要在电脑前用双手可以完成的动作，按键精灵都可以替代完成目前按键精灵已经更新到9.33最新版本！从编程的角度看，集合一些插件的脚本编辑、调试工具。代码不公开。生成的小精灵，模式化界面。 • 使用环境操作系统：(Windows 98/98SE/Me/2000/XP/2003/Vista/win7 )软件支持：支持绝大多数软件，部分网络游戏中可能失效，但可尝试“神盾”功能，提高按键精灵的兼容性