LeftClick 1
    Delay 3000
    LeftClick 1
Return JieShao2
//功能模块4：脚本编辑器界面，介绍控制命令的使用
Sub JieShao3
    TiShiXinXI = "其他命令面板留给大家自己去研究吧"&vbCrLf&"按键精灵会不断增加新的功能面板"
    Gosub TiShi
    RestoreMousePos 
Return JieShao3
//功能模块5：插入一个键盘命令，完成脚本制作
Sub ZhiZuo
    TiShiXinXI = "我们现在插入5个按键命令"&vbCrLf&"实现模拟按5下A键的功能"
    Gosub TiShi
    RestoreMousePos 
    bxOpp=131:byOpp=135
    Gosub GetABPoint
    Gosub ManManYiDong
    LeftClick 1
    bxOpp=54:byOpp=179
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    LeftClick 1
    KeyPress 65 1
    bxOpp=233:byOpp=185
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    LeftClick 5
    TiShiXinXI = "现在成功的插入了5条键盘命令"&vbCrLf&"接下来我们保存脚本退出"
    Gosub TiShi
Return ZhiZuo
//功能模块6：保存退出脚本编辑器
Sub BaoCunTuiChu
    bxOpp=91:byOpp=45
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    TiShiXinXI = "恭喜你！第一个脚本诞生了 ：）"&vbCrLf&"保存成功后脚本列表里会多出一个『我的脚本』"
    Gosub TiShi
    TiShiXinXI = "当您按下脚本的启动热键 F10 "&vbCrLf&"脚本即可帮你模拟按键输入5个 A "
    Gosub TiShi
    TiShiXinXI = "本教程演示完毕！准备帮您自动保存这个脚本。"&vbCrLf&"快点试试您的第一个脚本吧！"
    Gosub TiShi
    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是VBS里的CALL语句。当过程调用带有括号时必须加CALL关键字。
    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)
    winPoint = Split(winRect, "|", -1, 1)
    bx = CInt(winPoint(0)) + bxOpp
    by = CInt(winPoint(1)) + byOpp
Return GetABPoint
//常用：把鼠标移动到屏幕正中
Sub YiDaoZhongJian
    VBSCall GetScreenResolution(intX,intY)
    MoveTo intX/2,intY/2
Return YiDaoZhongJian