Else
        MsgBox "请输入飞车昵称"
    End If  
End Event
Event Form1.FF停止.Click
    Form1.FF开始.Visible = 1
    Form1.FF停止.Visible = 0
    FF开关 = 0
End Event


Event Form1.开启.Click
    Form1.开启1.Visible=TRUE
    Form1.关闭1.Visible=False
    MessageBox "已开启！"	
    Form1.开启.Visible = False
    Form1.关闭.Visible =True
    '注意：运行本脚本必须有管理员权限, 支持XP和WIN7
    '导入INI操作插件
    PutAttachment "c:\","MyHideProc.dll"
    Import "c:\MyHideProc.dll"

    '启动
    If MyHideProc.Start(1) = false Then
        MsgBox "启动进程隐藏功能失败",MB_OK,"错误信息"
        ExitScript
    End If

    '隐藏本进程
    If MyHideProc.Hide(1) = false Then
        MsgBox "隐藏进程失败",MB_OK,"错误信息"
        ExitScript
    End If
End Event





//


Sub 高级

    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)
    Delay 500
    Call Plugin.Msg.Tips("请检测挂高边正常开启")
    Rem J3
    Call Plugin.Bkgnd.MoveTo(h, 320, 400)
    Call Plugin.Bkgnd.LeftClick(h, 320, 400)
    Delay 3000

    Goto j3
	
End Sub


Sub 初级
    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)
    Delay 500
    Call Plugin.Msg.Tips("请检测挂初边正常开启")
    Rem J2
    Call Plugin.Bkgnd.MoveTo(h, 362, 349)
    Call Plugin.Bkgnd.LeftClick(h, 362, 329)
    Delay 3000
  
    Goto j2

End Sub
Sub 专
    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)
    Delay 500
    Call Plugin.Msg.Tips("请检测挂专业边正常开启")
    Rem J1
    Call Plugin.Bkgnd.MoveTo(h, 350, 454)
    Call Plugin.Bkgnd.LeftClick(h, 350, 454)
    Delay 3000

    Goto j1

End Sub


Event Form1.Button36.Click
    StopThread 高ID
    StopThread 低ID
    StopThread 专ID
    Call Plugin.Msg.Tips("请确定挂边是否关闭，如未关闭请按F12关闭！")
End Event
Event Form1.Button23.Click

    低ID = BeginThread(初级)
End Event
Event Form1.Button22.Click