Goto 挂机无限飞天打法后台2



End Sub
Event Form1.Button17.Click
    BeginThread ngq
End Event
Event Form1.Button18.Click
    KeyPress 123,1
    Call Plugin.Msg.Tips("如果没有停止请按F12")
End Event
Sub ngq
    Goto 虐狗器
End Sub
Rem 虐狗器
Call Plugin.Msg.Tips("1.输入名字"&vbcrlf&"2.输入骂人的话"&vbcrlf&"3.选择PK方式"&vbcrlf&"4.选择要打第几个玩家"&vbcrlf&"5.保存设置→按开始启动辅助，停止暂停辅助"&vbcrlf&"提示：请勿随意更改启动热键，否则可能不能正常启动辅助！"&vbcrlf&"         如果您刚刚使用过刷级辅助请点击“转到其它模式”保存设置再启动辅助！")

BeginThread 打架1

Event Form1.Button7.Click
Dim Screenx, Screeny, col
Screenx = Plugin.Sys.GetScRX()
Screeny = Plugin.Sys.GetScRY()
col = Plugin.Sys.GetScDep()
If col <> 16 Then
    If 7 = MsgBox("当前色彩位为" & col & "是否修复win不跑问题", vbYseNo, "修复提示") Then
        EndScript'点否，停止脚本
      
    End If
    Call Plugin.Sys.SetSc(Screenx, Screeny, 16)
        MessageBox "请重新打开辅助和飞车，如果不行，请重启【注意飞车颜色位为32位】"
End If
TracePrint "自检完毕"
    MessageBox "Well, please have a try"
End Event
Event Form1.Button8.Click
Dim Screenx, Screeny, col
Screenx = Plugin.Sys.GetScRX()
Screeny = Plugin.Sys.GetScRY()
col = Plugin.Sys.GetScDep()
If col <> 32 Then
    If 7 = MsgBox("当前色彩位为" & col & "是否恢复win原设置", vbYseNo, "修复提示") Then
        EndScript'点否，停止脚本
      
    End If
    Call Plugin.Sys.SetSc(Screenx, Screeny, 32)
        MessageBox "请重新打开辅助和飞车，如果不行，请重启【注意飞车颜色位为32位】"
End If
TracePrint "自检完毕"
    MessageBox "Well, please have a try"
End Event
Event Form1.Button11.Click

    BeginThread kdj
End Event
Event Form1.Button12.Click
    KeyPress 123,1
    Call Plugin.Msg.Tips("如果没有停止请按F12")
End Event

Sub kdj
    Goto 开道具
End Sub
Rem 开道具
Call Plugin.Msg.Tips("1.输入名字"&vbcrlf&"2.选择道具位置"&vbcrlf&"3.把分辨率“重新”设置为：800×600"&vbcrlf&"4.保存设置→按开始启动辅助，停止暂停辅助"&vbcrlf&"提示：请勿随意更改启动热键，否则可能不能正常启动辅助！"&vbcrlf&"         如果您刚刚使用过刷级辅助请点击“转到其它模式”保存设置再启动辅助！")

Hwnd = Plugin.Window.Search(Form1.名字2.Text)
MyArray = Split(Hwnd, "|")
hwndEx = Clng(MyArray(i))
Call Plugin.Window.Active(hwndEx)
Hwnd = Plugin.Window.FindEx(hwndEx, 0, "GameApp", 0)
Delay 100
Var1=Form1.道具选择.ListIndex
If Var1 = 0 Then 
    BeginThread 道具1
    Goto 无效
ElseIf Var1 = 1 Then
    BeginThread 道具2
    Goto 无效
ElseIf Var1 = 2 Then
    BeginThread 道具3
    Goto 无效
ElseIf Var1 = 3 Then
    BeginThread 道具4
    Goto 无效
ElseIf Var1 = 4 Then
    BeginThread 道具5
    Goto 无效
ElseIf Var1 = 5 Then
    Goto 无效
    BeginThread 道具6
End If

Rem 无效
//////////////////////////////////////////////////////////////////
//开道具的代码
//////////////////////////////////////////////////////////////////
Sub 道具1()
    hwnd = Plugin.WndEx6.GetForegroundFocus()