精灵脚本征途单双开挂

按键版本：6.31.1602
热键模式：增强模式
系统环境：WinXP SP2
脚本执行环境：征途
问题情况： 窗口切换时猛吃红，按键控制定点部分不能很好实现tab键控制。
特点：单、双开支持内存判断（不是写内存，只是读内存）附按键不影响聊天代码，自动关机（防沉迷后推出，需要QFunction查件支持）其他太多。

代码：
[General]
Description=征途辅助工具
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
//控件导入,由于命令干扰取消
//Import "window.dll"
//Import "GetSysInfo.dll"
//Import "stdlib.vbs"
//设置
UserVar closewin=0 自动关机,0为不使用.单位分钟
UserVar wins=1 窗口数量，最多为2个窗口
UserVar hong=30 红<%时,使用红药
UserVar lan=10 蓝<%时,使用蓝药
UserVar jian=0  是否拣取(1-拣,0-不拣)
UserVar fixpoint=0 是否定点练功(1-定点,0-不定点)(建议单窗口时使用，待调整数字快捷无效)
UserVar TimeF4=0 使用F4辅助技能的间隔秒数,0为不使用
UserVar TimeF5=0 使用F5辅助技能的间隔秒数,0为不使用
UserVar TimeF6=300 使用F6辅助技能的间隔秒数,0为不使用
UserVar TimeF7=300 使用F7辅助技能的间隔秒数,0为不使用
UserVar TimeF8=300 使用F8辅助技能的间隔秒数,0为不使用
UserVar TimeF9=300 使用F9辅助技能的间隔秒数,0为不使用
UserVar TimeF11=20 仙自用回春技能冷却秒数，0为不使用
UserVar Timede=100 毫秒指令延迟，请使用默认值
//变量初始化
TFTemp=0
TimeF4=TimeF4*1000
TimeF5=TimeF5*1000
TimeF6=TimeF6*1000
TimeF7=TimeF7*1000
TimeF8=TimeF8*1000
TimeF9=TimeF9*1000
TimeF11=TimeF11*1000
VBSBegin
    Dim jpoint(),TF4Temp(),TF5Temp(),TF6Temp(),TF7Temp(),TF8Temp(),TF9Temp(),TF11Temp(),handle()
    ReDim jpoint(wins-1),TF4Temp(wins-1),TF5Temp(wins-1),TF6Temp(wins-1),TF7Temp(wins-1),TF8Temp(wins-1),TF9Temp(wins-1),TF11Temp(wins-1),handle(wins-1)
    For i=0 to wins-1
    TF4Temp(i)=0
    TF5Temp(i)=0
    TF6Temp(i)=0
    TF7Temp(i)=0
    TF8Temp(i)=0
    TF9Temp(i)=0
    TF11Temp(i)=0
    next
VBSEnd
//main程序
Rem main
Rem 超过2个窗口自动退出
If wins<>1 and wins<>2
    VBSCall MessageBox("不支持2个以上窗口")
EndScript
EndIf
//基础参数设置
i=0
For wins
    "VBSCall MessageBox("选择游戏窗口点击确定,按shift取得窗口句柄,有仙必须是第一窗口回春检查用。")
    WaitKey
    Plugin handle(i)=Window.Foreground()
    VBSCall ReadMemory(&H007b7fa8,2,jpoint(i))
    VBSCall ReadMemory(jpoint(i)+&H000004bc,2,jpoint(i))
    i=i+1
EndFor
closetime==GetSysInfo.GetTime()
//移动窗口到指定位置
If wins=2
    Plugin Window.Move(handle(1),0,0)
    Plugin Window.Move(handle(0),216,110)
EndIf
//拣取
If jian=1
    Gosub 拣取
EndIf
i=0
Rem 程序循环
//定点练功
If fixpoint=1
    GetLastKey kbset
    If kbset=81
        Gosub 定点
        Delay Timede
    EndIf
EndIf
//窗口循环
If wins=1
    Plugin Window.Active(handle(0))
    Gosub 加血
    Gosub 加蓝
    Gosub 加辅助
EndIf
If wins=2
    If i=0
        Plugin Window.Active(handle(0))
        "                MoveTo 266,234
        "                LeftClick 1
        Gosub 加血
        Gosub 加蓝
        Gosub 加辅助
        i=i+1
    EndIf
    Delay 3000
    If i=1
        Plugin Window.Active(handle(1))
        "                MoveTo 825,567
        "                LeftClick 1
        Gosub 加血
        Gosub 加蓝
        Gosub 加辅助
        i=i-1
    EndIf
    Delay 3000
EndIf
"关机
If closewin<>0
    Gosub 关机
EndIf
Goto 程序循环
EndScript
Sub 拣取
    VBSCall MessageBox("请使用系统自带拾取功能")
Return 拣取
Sub 定点
    VBS Dim obj,retv
    VBS Set obj=CreateObject("QFunction.Library")
    VBS retv=obj.GetKeyState(17)
    If retv=1
        KeyUp 17,1
        Delay Timede
    Else
        KeyDown 17,1
        Delay Timede
    EndIf
Return 定点
Sub 加血
    //血
    VBSCall ReadMemory(jpoint(i)+&H00000040,2,hp)
    VBSCall ReadMemory(jpoint(i)+&H00000044,2,hpMax)
    //取时间
    Plugin TFTemp=GetSysInfo.GetTime()
    //加血,判断是仙并且回春可以使用
    If hp<=hpMax*hong*0.01
        If TimeF11>0 and TFTemp-TF11Temp(i)>=TimeF11 and i=0
            KeyPress 122,1
            Plugin TF11Temp(i)=GetSysInfo.GetTime()
            Delay 2000
        Else
            KeyDown 18,1
            KeyPress 49,1
            KeyUp 18,1
            Delay 2000
        EndIf
    EndIf
Return 加血
Sub 加蓝
    //蓝
    VBSCall ReadMemory(jpoint(i)+&H00000e56,2,mp)
    VBSCall ReadMemory(jpoint(i)+&H00000e5a,2,mpMax)
    If mp<=mpMax*lan*0.01
        KeyDown 18,1
        KeyPress 50,1
        KeyUp 18,1
        Delay 2000
    EndIf
Return 加蓝
Sub 加辅助
    Plugin TFTemp=GetSysInfo.GetTime()
    If TimeF4<>0
        If TF4Temp(i)=0
            KeyPress 115,1
            Plugin TF4Temp(i)=GetSysInfo.GetTime()
            Delay 1600
        ElseIf TF4Temp(i)<>0 and TFTemp-TF4Temp(i)>=TimeF4
            TF4Temp(i)=0
        EndIf
    EndIf
    Plugin TFTemp=GetSysInfo.GetTime()
    If TimeF5<>0
        If TF5Temp(i)=0
            KeyPress 116,1
            Plugin TF5Temp(i)=GetSysInfo.GetTime()
            Delay 1600
        ElseIf TF5Temp(i)<>0 and TFTemp-TF5Temp(i)>=TimeF5
            TF5Temp(i)=0
        EndIf
    EndIf
    Plugin TFTemp=GetSysInfo.GetTime()
    If TimeF6<>0
        If TF6Temp(i)=0
            KeyPress 117,1
            Plugin TF6Temp(i)=GetSysInfo.GetTime()
            Delay 1600
        ElseIf TF6Temp(i)<>0 and TFTemp-TF6Temp(i)>=TimeF6
            TF6Temp(i)=0
        EndIf
    EndIf
    Plugin TFTemp=GetSysInfo.GetTime()
    If TimeF7<>0
        If TF7Temp(i)=0
            KeyPress 118,1
            Plugin TF7Temp(i)=GetSysInfo.GetTime()
            Delay 1600
        ElseIf TF7Temp(i)<>0 and TFTemp-TF7Temp(i)>=TimeF7
            TF7Temp(i)=0
        EndIf
    EndIf
    Plugin TFTemp=GetSysInfo.GetTime()
    If TimeF8<>0
        If TF8Temp(i)=0
            KeyPress 119,1
            Plugin TF8Temp(i)=GetSysInfo.GetTime()
            Delay 1600
        ElseIf TF8Temp(i)<>0 and TFTemp-TF8Temp(i)>=TimeF8
            TF8Temp(i)=0
        EndIf
    EndIf
    Plugin TFTemp=GetSysInfo.GetTime()
    If TimeF9<>0
        If TF9Temp(i)=0
            KeyPress 120,1
            Plugin TF9Temp(i)=GetSysInfo.GetTime()
            Delay 1600
        ElseIf TF9Temp(i)<>0 and TFTemp-TF9Temp(i)>=TimeF9
            TF9Temp(i)=0
        EndIf
    EndIf
Return 加辅助
Sub 关机
    Plugin TFTemp=GetSysInfo.GetTime()
    If TFTemp-closetime>closewin*1000*60
        VBS Dim obj,retv
        VBS Set obj=CreateObject("QFunction.Library")
        VBS retv=obj.ExitComputr(1)
    EndIf
Return 关机