按键精灵ppt课件

这是按键精灵ppt课件，包括了基本命令，操作系统，使用方法，脚本例子多多滴，屏幕涂鸦，随机输出数字且不重复直到全部输出等内容，欢迎点击下载。

按键精灵ppt课件是由红软PPT免费下载网推荐的一款课件PPT类型的PowerPoint.

按键精灵命令大全第三版 基本命令 键盘命令键盘模拟命令[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：每个命令解释在文本前面 按键精灵是一个模拟鼠标键盘动作的软件。通过制作脚本，可以让按键精灵代替双手，自动执行一系列鼠标键盘动作。按键精灵简单易用，不需要任何编程知识就可以作出功能强大的脚本。只要在电脑前用双手可以完成的动作，按键精灵都可以替代完成目前按键精灵已经更新到9.33最新版本！从编程的角度看，集合一些插件的脚本编辑、调试工具。代码不公开。生成的小精灵，模式化界面。 使用环境 操作系统：(Windows 98/98SE/Me/2000/XP/2003/Vista/win7 )软件支持：支持绝大多数软件，部分网络游戏中可能失效，但可尝试“神盾”功能，提高按键精灵的兼容性 使用方法 第一步：设计脚本功能   写脚本之前要想清楚自己要做什么功能。在这里来制作一个每隔5秒自动按F5刷新网页的脚本。 第二步：设计脚本 为制作了组图来说明如何制作这个脚本。 任何脚本都是两步： 第一步先设计功能，第二步就是用按键精灵提供的命令完成这些功能。 脚本例子多多滴： 屏幕涂鸦： 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 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 - 诺基亚经典铃声  特别的随机姓名生成器 [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] 接上页： [Attachment] UEsDBBQAAgAIANS4aD8AAAAAAgAAAAAAAAAOABEAyfqzybXE0NXD+y50eHRVVA0ABxK2uU65orlOuaK5TgMAUEsBAhcLFAACAAgA1LhoPwAAAAACAAAAAAAAAA4ACQAAAAAAAAAgAICBAAAAAMn6s8m1xNDVw/sudHh0VVQFAAcStrlOUEsFBgAAAAABAAEARQAAAD8AAAAAAA== [UIPackage] UEsDBBQAAgAIAMA7aT+x5Imd2AAAAEQBAAAJABEAVUlQYWNrYWdlVVQNAAcILLpOCCy6Tggsuk5jYmBgYARiNiBmccsvymUFEYaMIDEkYAjkfwEpcyotKcnPY4dQIGUs+1ed2sMElJoKxPFA/AmIO4GY1ScxKTWHDUyCFHKe/LX55Km/B/dbMQNlrYE4C4gLgLgKiDk88wpKS5zyKzhhDCOgHiZTAxagZDEQZwJxLxBXM6CZDVInfH3LmTWLd209seUvyDnXLujp6YF9BMRGQKwGdL4jmj5joD7D01sPf7cCOWzrkQtXD//euHjLsyu3Lizct/rgy9M/r9w6sv/QHoSsXklFCTvU1DVQU3cBaQBQSwECFwsUAAIACADAO2k/seSJndgAAABEAQAACQAJAAAAAAAAAAAAAIAAAAAAVUlQYWNrYWdlVVQFAAcILLpOUEsFBgAAAAABAAEAQAAAABABAAAAAA== [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  按键精灵写的读心术小游戏 s="☆;★;○;◎;◇;◆;■;△;▲;※;⊙;→;←;↑;↓;〓;〖;〗;【;】;『;』;≡;∑;∈;∵;∴;Ａ;Ｂ;Ｃ;Ｄ;Ｅ;Ｆ;Ｇ;Ｈ;Ｉ;Ｊ;Ｋ;Ｌ;Ｍ;Ｎ;Ｏ;Ｐ;Ｑ;Ｒ;Ｓ;Ｔ;Ｕ;Ｖ;Ｗ;Ｘ;Ｙ;Ｚ;①;②;③;④;⑤;⑥;⑦;⑧;⑨;⑩"th=Split(s，";")aa=msgbox("请在以下符号中选择一个牢记在心中。记住后请点“确定”，退出程序请点“取消”。"&vbcrlf&vbcrlf _&"☆ ★ ○ ◎ ◇ ◆ ■ △ ▲ ※ ⊙ → ← ↑ ↓ 〓 〖 〗【 】『』≡ ∑ ∈ ∵ ∴ " _&"Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩"，vbokcancel+4096，"读心术")if aa=vbcancel then wscript.quitend ifa=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _&"☆ ○ ◇ ■ ▲ ⊙ ← ↓ 〖 【 『 ≡ ∈ ∴ Ｂ Ｄ Ｆ Ｈ Ｊ Ｌ Ｎ Ｐ Ｒ Ｔ Ｖ Ｘ Ｚ ② ④ ⑥ ⑧ ⑩"，vbyesnocancel+4096，"读心术")if a=vbyes then nl=nl+1elseif a=vbcancel thenwscript.quitend ifb=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _&"★ ○ ◆ ■ ※ ⊙ ↑ ↓ 〗 【 』 ≡ ∵ ∴ Ｃ Ｄ Ｇ Ｈ Ｋ Ｌ Ｏ Ｐ Ｓ Ｔ Ｗ Ｘ ① ② ③ ⑤ ⑥ ⑨ ⑩"，vbyesnocancel+4096，"读心术")if b=vbyes then nl=nl+2elseif b=vbcancel thenwscript.quitend ifc=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _ &"◎ ◇ ◆ ■ → ← ↑ ↓ 】 『 』 ≡ Ａ Ｂ Ｃ Ｄ Ｉ Ｊ Ｋ Ｌ Ｑ Ｒ Ｓ Ｔ Ｙ Ｚ ① ② ⑦ ⑧ ⑨ ⑩"，vbyesnocancel+4096，"读心术") if c=vbyes then nl=nl+4 elseif c=vbcancel then wscript.quit end if d=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _ &"△ ▲ ※ ⊙ → ← ↑ ↓ ∑ ∈ ∵ ∴ Ａ Ｂ Ｃ Ｄ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩"，vbyesnocancel+4096，"读心术") if d=vbyes then nl=nl+8 elseif d=vbcancel then wscript.quit end if e=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _ &"〓 〖 〗 【 】 『 』 ≡ ∑ ∈ ∵ ∴ Ａ Ｂ Ｃ Ｄ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩"，vbyesnocancel+4096，"读心术") if e=vbyes then nl=nl+16 elseif e=vbcancel then wscript.quit end if f=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _ &"Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩"，vbyesnocancel+4096，"读心术") if f=vbyes then nl=nl+32 elseif f=vbcancel then wscript.quit end if if nl<>0 then msgbox "您选择的符号是:"&th(nl-1)，4096，"读心术" else msgbox "您没有记住您选择的符号！"，16+4096，"读心术" end if 超级无敌掌门人猜数字游戏， MessageBox "派斯盒之数字猜[110510]" MessageBox "KIS 制造"&vbcr&"QQ:644328850" 人数=INT(INPUTBOX ("规则:2人以上进行游戏，每人轮流输入一个指定范围的数，每次将会缩小范围提示，猜中的人就会输."&vbcr&"请输入游戏人数，按下确定开始游戏"，"")) Rem QU Randomize随机值=Int((99 * Rnd) + 1) If  随机值<0 Then     Goto QU End If  //随机A为一个1至100的数 第二个数 =100:第一个数 =1:几 = 1:次=1 Rem BJA If 次>人数 Then 次=1 End If  输入值=Cint (InputBox("按下确定后，输入一个"& 第一个数 &"~"& 第二个数 &"范围之内的数."& VBCR &"输入后按下确定继续"& VBCR &"输入999按下确定后结束游戏"，"总共第"& 几 &"次猜数，第"&次&"个人进行输入")) If 输入值>第一个数 AND 输入值<第二个数 Then    If 输入值>随机值 Then        第二个数=输入值        几=几+1        次=次+1  ElseIf 输入值<随机值 Then        第一个数=输入值         几=几+1         次=次+1     Elseif  输入值=随机值 Then         MessageBox "boom!!!，你输了"& vbcr &"那个数就是"& 随机值         MessageBox "感谢使用!"&vbcr&"------------"&vbcr&"清文 制造"&vbcr&"QQ:644328850"         EndScript     End If     Goto BJA ElseIf 输入值=999 Then      MessageBox "感谢使用!"&vbcr&"------------"&vbcr&"清文 制造"&vbcr&"QQ:644328850"     EndScript End If MessageBox "输入错误，请重新输入!!!"& vbcr &"按下F12或在输入框中输入999结束游戏" Goto BJA 计算器： UserVar cifangshu=0 "几次方" UserVar cifang=0 "次方数" number = cifang exponent=cifangshu result = number ^ exponent If cifang and cifangshu = 0 Then MessageBox "没有进行次方运算" Else Message = Message & "次方运算结果："&cifang&"的"&cifangshu&"次方=" & result & vbCrlf Message6 = Message6 & cifang & "的" & cifangshu & "次方" &"="& result Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夹\计算器记录.log"，Message6) SayString Message6 End If UserVar ＋=0 "一个加数" UserVar ＋＋=0 "另一个加数" a =＋ b = ＋＋ ＋ = a + b If a = 0 and b = 0 Then MessageBox "加法没有运算" Else Message = Message & "加法运算结果：" & ＋ & vbCrlf Message1 = Message1 & a & "+" & b & "=" & ＋ Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夹\计算器记录.log"，Message1) SayString Message1 End If UserVar －=0 "减数" UserVar －－=0 "被减数" c =－ d = －－ － = d - c If c = 0 and d = 0 Then MessageBox "减法没有运算" Else 接上页： Message = Message & "减法运算结果:" & － & vbCrlf Message2 = Message2 & c & "-" & d & "=" & － Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夹\计算器记录.log"，Message2) SayString Message2 end if UserVar ×=0 "一个乘数" UserVar ××=0 "另一个乘数" e =× f = ×× × = e * f If e = 0 and f = 0 Then MessageBox "乘法没有运算" Else Message = Message & "乘法运算结果：" & × & vbCrlf Message3 = Message3 & e& "*" & f & "=" & × Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夹\计算器记录.log"，Message3) SayString Message3 end if UserVar ÷=0 "除数" UserVar ÷÷=0 "被除数" g =÷ h = ÷÷ ÷ = h / g If e = 0 and f = 0 Then MessageBox "除法没有运算" Else Message = Message & "除法运算结果：" & ÷ & vbCrlf Message4 = Message4 & g & "/" & h & "=" & ÷ Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夹\计算器记录.log"，Message4) SayString Message4 Message5 = Message5 &"=======我是分界线========" Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夹\计算器记录.log"，Message5) SayString Message5 End If MessageBox Message MessageBox" 记录文件在C:\Documents Settings\Administrator\桌面\新建文件夹\计算器记录.log里" y1 = inputbox("是否打开记录（填“是”或“否”）") If y1 = "是" Then RunApp "C:\Documents and Settings\Administrator\桌面\新建文件夹\计算器记录.log" ElseIf y1 = "否" Then EndScript End If 简易闹钟: UserVar sound=8 设置默认音量 UserVar plan=06:19:00 设置闹铃时间 UserVar wc=10 设置允许闹铃时间误差(建议最小设为5秒) UserVar remind=1 设置关上铃声多少分钟后重新提醒 UserVar path=E:\音乐\DIR0.MP3\FIL31.MP3 设置闹铃音乐完整路径 sound=int(sound) SetEnv "sound"，sound Plugin Media.Vol(sound) BeginThread "调节音量" While time3p9红软基地