//初始化的工作
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
    TiShiXinXI = "恭喜您录制的脚本诞生了 ：）"&vbCrLf&"现在脚本列表里会多出一个『我的脚本』"
    Gosub TiShi
    TiShiXinXI = "当您按下脚本的启动热键 F10 "&vbCrLf&"脚本即可帮你回放刚才的动作 "
    Gosub TiShi
    TiShiXinXI = "本教程演示完毕！"&vbCrLf&"快点试试您录制的第一个脚本吧！"
    Gosub TiShi
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