mod02decvar.bas

这是诛仙外挂的源代码

Public TrumpVer As Long                             '法宝当前精力
Public PartExp As Double                            '人物当前经验
Public PartMaxExp As Double                         '人物最大经验
Public PartAttDis As Single                         '人物攻击距离
Public BagMoney As Long                             '背包金钱偏移
Public SelObjId As Long                             '目标ID
Public PartX As Single                              '位置X
Public PartY As Single                              '位置Y
Public TrumpMaxVer As Long                          '法宝最大精力
Public PartStat As Long                             '状态 打坐=32 站立=0
Public PartBagLeave As Long                         '背包空格数
Public FirstFull As Boolean                         '是否第一次播放包满状态
Public HouseTotal As Long                           '仓库总格数
Public PartHouseLeave As Long                       '仓库空格数
Public NpcWinStat As Integer                        'NPC窗口状态    0关闭;1打开
Public MapID As Long                                '当前地图ID
'====================目标全程变量====================
Public SelObjName As String                         '目标名称
Public SelObjLevel As Integer                       '目标等级
Public SelObjKind As Integer                        '目标类型
Public SelObjHp As Long                             '目标当前真气
Public SelObjMaxHp As Long                          '目标最大血量
Public SelObjX As Single                            '目标位置X
Public SelObjY As Single                            '目标位置Y
Public SelObjSel As Long                            '目标的目标ID
'=====================反外挂答题=====================
Public AlarmStat As Long                            '答题星星状态
'====================自动登录相关====================
Public Online As Long                               '在线状态
Public PartLine As Long                             '当前线路
'======================状态变量======================
Public GodAndMan As Long                            '天人合一状态
Public TeamNum As Long                              '队伍人数
Public AskStat As Long                              '是否有邀请
Public TeamPara As Long                             '接受组队邀请参数2
Public AskStatId As Long                            '邀请人ID
Public SkillListCount As Integer                    '当前技能序号
Public OldSkillListCount As Integer                 '旧技能序号
Public ScriptNo As Integer                          '脚本序号
Public SafeTeamNo As Integer                        '治疗队友技能读秒
Public PartBagTotalRed As Integer                   '剩余红
Public PartBagTotalBlue As Integer                  '剩余蓝
Public LuckSucceed As Boolean                       '对对碰成功
Public PickUpTime As Integer                        '拾取背包秒数

Sub SetVar()
    '==================窗口标题游戏基址=================
    GameTitle = ReadVarIni("Tit", "GameTitle")                  '游戏窗口标题
    FirstAdr = ReadVarIni("Add", "FirstAdr")                    '游戏基址
    EcxPartMaxExp = ReadVarIni("Add", "EcxPartMaxExp")          '人物最大经验
    EcxOnline = ReadVarIni("Add", "EcxOnline")                  '掉线
    '======================call地址=====================
    SendPackCall = ReadVarIni("Add", "SendPackCall")            '发包Call
    TabCall = ReadVarIni("Add", "TabCall")                      'Tab选怪
    SelectByIdCall = ReadVarIni("Add", "SelectByIdCall")        'ID选怪
    NormalAttackCall = ReadVarIni("Add", "NormalAttackCall")    '普通攻击
    SkillAttackCall = ReadVarIni("Add", "SkillAttackCall")      '使用技能
    ZazenCall = ReadVarIni("Add", "ZazenCall")                  '打坐
    UnZazenCall = ReadVarIni("Add", "UnZazenCall")              '取消打坐
    PickItemCall = ReadVarIni("Add", "PickItemCall")            '捡物
    EcxRunToPush = ReadVarIni("Add", "EcxRunToPush")            '寻路PUSH
    EcxRunToMov = ReadVarIni("Add", "EcxRunToMov")              '寻路MOV
    EcxRunTo = ReadVarIni("Add", "EcxRunTo")                    '寻路CALL
    EcxGoToCall1 = ReadVarIni("Add", "EcxGoToCall1")            '走路CALL1
    EcxGoToCall2 = ReadVarIni("Add", "EcxGoToCall2")            '走路CALL2
    EcxGoToCall3 = ReadVarIni("Add", "EcxGoToCall3")            '走路CALL3
    NPCOpenCall = ReadVarIni("Add", "NPCOpenCall")              '打开NPC
    NpcCPush = ReadVarIni("Add", "NpcCPush")                    '关闭NPC Push
    NpcCCall = ReadVarIni("Add", "NpcCCall")                    '关闭NPC Call
    UseItemCall = ReadVarIni("Add", "UseItemCall")              '使用物品
    BuyCall = ReadVarIni("Add", "BuyCall")                      '买物品
    SellCall = ReadVarIni("Add", "SellCall")                    '卖物品
    HouseOpenPush = ReadVarIni("Add", "HouseOpenPush")          '开启仓库PUSH
    HouseOpenCall = ReadVarIni("Add", "HouseOpenCall")          '开启仓库CALL
    SaveItemCall = ReadVarIni("Add", "SaveItemCall")            '堆叠保存物品
    SaveChanCall = ReadVarIni("Add", "SaveChanCall")            '交换保存物品
    DeadBackCall = ReadVarIni("Add", "DeadBackCall")            '死亡回城
    GTaskCall = ReadVarIni("Add", "GTaskCall")                  '接任务Call
    EcxAlarmStat = ReadVarIni("Add", "EcxAlarmStat")            '答题星星地址
    '====================内存地址偏移====================
    EcxPartSex = ReadVarIni("Ecx", "EcxPartSex")                '人物性别(0男,1女)
    EcxPartId = ReadVarIni("Ecx", "EcxPartId")                  '人物ID
    EcxPartLevel = ReadVarIni("Ecx", "EcxPartLevel")            '人物等级
    EcxPartHp = ReadVarIni("Ecx", "EcxPartHp")                  '人物当前血量
    EcxPartMp = ReadVarIni("Ecx", "EcxPartMp")                  '人物当前真气
    EcxTrumpVer = ReadVarIni("Ecx", "EcxTrumpVer")              '法宝当前精力
    EcxPartExp = ReadVarIni("Ecx", "EcxPartExp")                '人物当前经验
    EcxPartMaxHp = ReadVarIni("Ecx", "EcxPartMaxHp")            '人物最大血量
    EcxPartMaxMp = ReadVarIni("Ecx", "EcxPartMaxMp")            '人物最大真气
    EcxPartAttDis = ReadVarIni("Ecx", "EcxPartAttDis")          '人物攻击距离
    EcxBagMoney = ReadVarIni("Ecx", "EcxBagMoney")              '背包金钱
    '---------------------------------------------------
    EcxPartName = ReadVarIni("Ecx", "EcxPartName")              '角色名称
    EcxPartX = ReadVarIni("Ecx", "EcxPartX")                    '位置X
    EcxPartY = ReadVarIni("Ecx", "EcxPartY")                    '位置Y
    '---------------------------------------------------
    EcxTeamAdr = ReadVarIni("Ecx", "EcxTeamAdr")                '队伍偏移
    EcxSelObjId = ReadVarIni("Ecx", "EcxSelObjId")              '目标ID   用216版800+64c
    EcxNpcWinStat = ReadVarIni("Ecx", "EcxNpcWinStat")          'NPC窗口状态    0关闭;1打开
    EcxBagAdrB = ReadVarIni("Ecx", "EcxBagAdrB")                '背包基址
    EcxBagAdrF = ReadVarIni("Ecx", "EcxBagAdrF")                '背包首地址
    EcxBagTotal = ReadVarIni("Ecx", "EcxBagTotal")              '背包总格数
    EcxHouseAdrB = ReadVarIni("Ecx", "EcxHouseAdrB")            '仓库基址
    EcxHouseAdrF = ReadVarIni("Ecx", "EcxHouseAdrF")            '仓库首地址
    EcxHouseTotal = ReadVarIni("Ecx", "EcxHouseTotal")          '仓库总格数
    EcxTrump = ReadVarIni("Ecx", "EcxTrump")                    '法宝信息偏移
    EcxPartStat = ReadVarIni("Ecx", "EcxPartStat")              '状态 0;站立1;行走2;开始攻击3;正在攻击4;技能6;角色死亡8;寻路中10;掉落11;打坐中
    EcxFMyTask = ReadVarIni("Ecx", "EcxFMyTask")                '自身任务列表偏移
    EcxFriend = ReadVarIni("Ecx", "EcxFriend")                  '好友列表偏移
    '====================技能地址偏移====================
    EcxSkillFAdr = ReadVarIni("Ecx", "EcxSkillFAdr")            '技能首地址
    EcxSkillNum = ReadVarIni("Ecx", "EcxSkillNum")              '技能总数
    '====================邀请组队偏移====================
    EcxAskStat = ReadVarIni("Ecx", "EcxAskStat")                '邀请框状态
    '====================目标地址偏移====================
    EcxMonName = ReadVarIni("Ecx", "EcxMonName")                '目标名称
    EcxMonLevel = ReadVarIni("Ecx", "EcxMonLevel")              '目标等级
    EcxMonKind = ReadVarIni("Ecx", "EcxMonKind")                '目标类型
    EcxMonHp = ReadVarIni("Ecx", "EcxMonHp")                    '目标当前血量
    EcxMonMaxHp = ReadVarIni("Ecx", "EcxMonMaxHp")              '目标最大血量
    EcxMonX = ReadVarIni("Ecx", "EcxMonX")                      '目标位置X
    EcxMonY = ReadVarIni("Ecx", "EcxMonY")                      '目标位置Y
    EcxMonID = ReadVarIni("Ecx", "EcxMonID")                    '目标怪物ID
    EcxMonSel = ReadVarIni("Ecx", "EcxMonSel")                  '目标的目标ID
End Sub