当前位置:首页 >> 其它技巧 >>

按键精灵动起来教程2


按 键 精 灵 动 起 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=123 StopHotkeyMod=0 RunOnce=1 EnableWindow= Enable=0 AutoRun=0 [Repeat] Type=0 Number=1 [Relative] SetupOCXFile= [Comment] Content=. 【功能说明】. 用动作脚本的方式介绍如何使用按键精灵的录制功能. . 【使用说明】. 按下热键 2,即可启动脚本。. . 【作者介绍】. vrBrothers.Leo. . 【制作日期】. 2006.9. .







2.txt

[Script] //初始化的工作 Dim hWnd Dim ax,ay,bx,by set TiShiObj = createobject("WScript.Shell") //鼠标移到屏幕正中并保存位置,这样可以显示较长时间的鼠标移动轨迹 YiDongSuDu=3 Gosub YiDaoZhongJian SaveMousePos MoveTo 0,0 //先说明一下脚本的功能 Gosub ShuoMing //按顺序执行各个功能模块 Gosub LuZhi Gosub BaoCunTuiChu

EndScript //功能模块 0:介绍这个脚本的基本情况 Sub ShuoMing TiShiXinXi = "【按键精灵】动起来教程 2.0 讲,制作:vrBrothers.Leo"&vbCrLf&"本 教程完全自动,请勿在脚本运行时接触键盘和鼠标!" Gosub TiShi TiShiXinXi = "本讲介绍如何录制脚本;所需时间:1 分 30 秒" Gosub TiShi TiShiXinXi = "录制功能是按键精灵最大的特色之一" Gosub TiShi TiShiXinXi = "就像【录像机】一样把你的动作录制成脚本,以后随时回放" Gosub TiShi TiShiXinXi = "下面我们介绍录制功能的具体使用" Gosub TiShi Return ShuoMing //功能模块 1:主界面移动鼠标到录制按钮,按下鼠标打开录制窗口 Sub LuZhi //打开了录制界面 TiShiXinXI = "进入录制界面后主要有 3 个功能:录制、停止、保存。" Gosub TiShi TiShiXinXI = "开始录制脚本有两种方式:点录制按钮或者按下 ScrollLock 按钮" Gosub TiShi TiShiXinXI = "录制完毕之后可点击停止按钮或者再次按下 ScrollLock 按钮停止" Gosub TiShi TiShiXinXI = "点保存按钮即可将录制的动作保存为脚本" Gosub TiShi TiShiXinXI = "现在我们进入录制界面,录制一个脚本并保存" Gosub TiShi //录制按钮的相对地址 RestoreMousePos bxOpp = 296:byOpp = 47 Gosub GetABPoint //Call MessageBox(ax&"|"&ay&"|"&bx&"|"&by) Gosub ManManYiDong Delay 2000 LeftClick 1 //等待录制界面出现 Delay 3000 KeyPress 145,1 Delay 2000 Gosub 画圆 Delay 2000 KeyPress 145,1 //移动到保存按钮。保存按钮相对坐标是(80,30),录制界面宽度是 244,因此保存按钮

的位置就是屏幕中央坐标的 x-244/2+80=x-42 RestoreMousePos MoveR -42,0 Delay 2000 LeftClick 1 Delay 2000 Return LuZhi //功能模块 2:保存退出脚本编辑器 Sub BaoCunTuiChu TiShiXinXI = "现在录制的动作已经成功记录为脚本"&vbCrLf&"您应该可以看到许多的 脚本命令" Gosub TiShi TiShiXinXI = "接下来我们保存脚本退出,您的脚本就算录制成功了。本教程演示完毕! " Gosub TiShi bxOpp=91:byOpp=53 Gosub GetABPoint YiDongSuDu = 10 Gosub ManManYiDong LeftClick 1 Delay 1000 KeyPress 13,1 Delay 1000 Return BaoCunTuiChu //常用:把鼠标从 a 点慢慢移动到 b 点 Sub ManManYiDong PianYiX = ax-bx PianYiY = ay-by Rem YiDong If PianYiX<>0 or PianYiY<>0 YiDongX =0 YiDongY =0 If PianYiX<>0 YiDongX = -abs(PianYiX)/PianYiX EndIf If PianYiY<>0 YiDongY = -abs(PianYiY)/PianYiY EndIf MoveR YiDongX YiDongY PianYiX = PianYiX + YiDongX PianYiY = PianYiY + YiDongY Delay YiDongSuDu Goto YiDong EndIf

Return ManManYidong //常用:提示信息,过 3 秒自动关闭窗口的方式 Sub TiShi Call TiShiObj.Popup(TiShiXinXi,3,"3 秒后窗口自动关闭",0) Return TiShi //常用:获取 A 点和 B 点的坐标,A 点是当前坐标点,B 点是目的坐标点 Sub GetABPoint //获取 A 点坐标信息 Call GetCursorPos(ax,ay) //获取 B 点坐标信息,B 点坐标 = 窗口坐标 + 相对坐标 Plugin hWnd=Window.Foreground() Plugin winRect=Window.GetWindowRect(hWnd) // MessageBox(winRect) winPoint = Split(winRect, "|", -1, 1) bx = CInt(winPoint(0)) + bxOpp by = CInt(winPoint(1)) + byOpp Return GetABPoint //常用:把鼠标移动到屏幕正中 Sub YiDaoZhongJian Call GetScreenResolution(intX,intY) MoveTo intX/2,intY/2 Return YiDaoZhongJian //常用:屏幕上画圆 Sub 画圆 r=300:x0=512:y0=384:x=0:y=0:n=0 While n<3.1415926*2 x=x0+r*cos(n) y=y0-r*sin(n) MoveTo x,y Delay 10 n=n+0.03 EndWhile Return 画圆 野旷天低树,江清月近人。操千曲而后晓声,观千剑而后识器。


相关文章:
按键精灵1--6级答案
按键精灵动起来教程1 5页 免费 按键精灵使用 25页 1下载券 按键精灵使用方法 11页 1下载券 按键精灵 12页 7下载券 按键精灵3级认证答题4级... 14页 2下载...
按键精灵开发者认证4级考试问答题(部分,2016年2月更新)
按键精灵开发者认证4级考试问答题(部分,2016年2月更新)_计算机软件及应用_IT/计算机_专业资料。按键精灵开发者认证4级考试问答题部分,2016年2月更新自己亲历的考试...
真正能实现后台运行的按键精灵代码支持最小化和切换窗口
动录入.简单的说,下面的命令或者说能达到的效果就是 "打开一个要运行按键精灵...2页 免费 按键精灵的试用代码 23页 免费 按键精灵后台简明教程 3页 1下载...
按键精灵_控制命令
屏幕 X 坐标 参数 2 整数型,屏幕 Y 坐标 参数 3 字符串型,颜色 16 进制值 参数 4 整数型,判断条件 返回值 脚本例子 按键精灵 8 及以上语法 无 复制代码...
按键精灵开发者认证3级考试问答题(部分,2016年2月更新)
按键精灵开发者认证3级考试问答题(部分,2016年2月更新)_计算机软件及应用_IT/计算机_专业资料。按键精灵开发者认证3级考试问答题部分,2016年2月更新 ...
按键精灵1级2级3级4级5级6级认证答案2
按键精灵1级2级3级4级5级6级认证答案2_计算机...使用"自 动缩进"功能 WaitClick 命令的含义是? 按...串,里面包含一些数字,写一个函数,把这些数字加起来...
按键精灵1级2级3级4级5级6级认证答案2
58 按键精灵开发者一到六级认证最全总结答案 1、WaitKey 命令有几个参数?;正确答案:0;2、颜色值为"FFFFFF";正确答案: 白色;3、鼠标左键弹起的...
按键精灵自动扫描拍卖行脚本
按键精灵自动扫描拍卖行脚本_计算机软件及应用_IT/计算机_专业资料。PutAttachment ...大漠插件后台找图 2页 免费 按键精灵图文教程 7页 免费 按键精灵 组合框使用 ...
按键精灵9.5命令参数教程
按键精灵9.5命令参数教程_计算机软件及应用_IT/计算机...(&h400000,2,val) MessageBox(CStr(val))从内存...一起来学广场舞 广场舞活动方案 社区广场舞策划方案...
按键1-6级认证总结(全包过)
按键精灵不区分大小写 7、KeyPress 命令有几个参数? 2 13、不能实现键盘按下...MsgBox ii 16、有一个字符串,里面包含一些数字,写一个函数,把这些数字加起来...
更多相关标签: