按键精灵命令大全第三版
• 使用方法 • 第一步：设计脚本功能 • 写脚本之前要想清楚自己要做什么功能。在这里来制作 一个每隔5秒自动按F5刷新网页的脚本。 • 第二步：设计脚本
为制作了组图来说明如何制作这个脚本。 • 任何脚本都是两步： 第一步先设计功能，第二步就是 用按键精灵提供的命令完成这些功能。
•
ห้องสมุดไป่ตู้
脚本例子多多滴：
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)
• 按键精灵是一个模拟鼠标键盘动作的软件。通过制作脚本，可以
让按键精灵代替双手，自动执行一系列鼠标键盘动作。按键精灵 简单易用，不需要任何编程知识就可以作出功能强大的脚本。只 要在电脑前用双手可以完成的动作，按键精灵都可以替代完成目 前按键精灵已经更新到9.33最新版本！从编程的角度看，集合一 些插件的脚本编辑、调试工具。代码不公开。生成的小精灵，模 式化界面。 • 使用环境 操作系统：(Windows 98/98SE/Me/2000/XP/2003/Vista/win7 )软 件支持：支持绝大多数软件，部分网络游戏中可能失效，但可尝 试“神盾”功能，提高按键精灵的兼容性
• • • • • • • • • • • • • • • • • • • • • • • • • •
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
• [按键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)
•
• • • •
接上页：
[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 bel2.Caption = "状态：" & "开始生成姓名..." End If While i < Form1.InputBox2.Text bel2.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 bel2.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
• • • • • • • • • • • • • • • • • • • • •
屏幕涂鸦： 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)
• • • • • • • • • • • • • • • • • • • • • • • •
