mod04setinit.bas

这是诛仙外挂的源代码

Attribute VB_Name = "Mod04SetInit"
Option Explicit

Sub FormInit()
On Error Resume Next
    Dim i As Integer
    ChangeCaption
    '计时器
    Main.CboManName.Enabled = True
    Main.TimePartInfo.Enabled = False
    Main.TimeReBag.Enabled = False
    Main.TimeOnHook.Enabled = False
    Main.TimeScript.Enabled = False
    Main.TimeBegFull.Enabled = False
    Main.TimeBuff.Enabled = False
    '按钮
    Main.ComMain(1).Enabled = False
    Main.ComMain(2).Enabled = False
    Main.ComMain(3).Enabled = False
    '分页
    Main.SSTab1.Tab = 0
    Main.SSTab2.Tab = 0
    Main.SSTab3.Tab = 0
    Main.SSTab4.Tab = 0
    Main.SSTab5.Tab = 0
    Main.SSTab6.Tab = 0
    '药品
    Main.CboRed.Clear
    Main.CboBlue.Clear
    '信息
    ''人物信息
    Main.CboManName.Clear
    Main.CboManName.Text = "请选择角色"
    Main.LabInfo2(0).Caption = " 未知"
    Main.LabInfo2(1).Caption = " 0/0"
    Main.LabInfo2(2).Caption = " 0/0"
    Main.LabInfo2(8).Width = 0
    Main.LabInfo2(9).Width = 0
    Main.LabInfo2(3).Caption = " 0"
    Main.LabInfo2(4).Caption = " 0/0"
    Main.LabInfo2(5).Caption = " 0 金 0 银 0 铜"
    Main.LabInfo2(6).Caption = " 0,0"
    Main.LabInfo2(7).Caption = " 未知"
    ''目标信息
    Main.FrameInfo2.Caption = "选定目标信息"
    Main.LabInfo4(0).Caption = " 0/0"
    Main.LabInfo4(1).Caption = " 0"
    Main.LabInfo4(2).Caption = " 0,0"
    ''队伍信息
    For i = 0 To 5
        Main.FTeam1(i).Visible = False
    Next i
    '组队设置
    Main.CheTeam(0).Value = 0
    Main.TextTeam1(0).Text = ""
    Main.ListTeam.Clear
    ''小环任务
    Main.ListLuck.Clear
    Main.TextLuck(0).Text = ""
    Main.TextLuck(1).Text = "99"
    Main.TextLuck(2).Text = "72"
    Main.CheLuck(0).Value = 0
    '保护
    For i = 0 To 13
        Main.CheSafe(i).Value = 0
    Next i
    Main.TextSafe(0).Text = "50%"
    Main.TextSafe(1).Text = "30%"
    Main.TextSafe(2).Text = "40%"
    Main.TextSafe(3).Text = "20%"
    Main.TextSafe(4).Text = "2"
    Main.TextSafe(5).Text = "2"
    Main.TextSafe(6).Text = "70%"
    Main.TextSafe(7).Text = ""
    Main.TextSafe(8).Text = ""
    Main.TextSafe(9).Text = "80%"
    Main.TextSafe(10).Text = ""
    Main.TextSafe(11).Text = ""
    Main.TextSafe(12).Text = "99"
    Main.TextSafe(13).Text = "99"
    Main.TextSafe(14).Text = ""
    Main.CboSafe(0).Clear
    Main.CboSafe(1).Clear
    Main.CboSafe(2).Clear
    Main.CboBuyRed.Clear
    Main.CboBuyBlue.Clear
    Main.LabMedi(0).Caption = 0
    Main.LabMedi(1).Caption = 0
    '战斗
    Main.CheWar(0).Enabled = True
    For i = 0 To 9
        Main.CheWar(i).Value = 0
    Next i
    Main.OptWar1(0).Value = True
    Main.OptWar1(1).Value = False
    Main.TextWar1(0).Text = 30
    Main.TextWar1(1).Text = ""
    Main.ListWar1.Clear
    Main.ListWar2.Clear
    Main.ListWar3.Clear
    Main.CboWar1.Clear
    Main.CboWar2.Clear
    Main.CboSafe(2).Clear
    '拾取
    For i = 0 To 3
        Main.ChePick1(i).Value = 0
    Next i
    Main.TextPick1(0).Text = 9
    Main.TextPick1(1).Text = ""
    Main.TextPick1(2).Text = ""
    Main.TextPick1(3).Text = ""
    Main.ListPick1.Clear
    Main.ListPick2.Clear
    Main.ListPick3.Clear
    '路径
    For i = 0 To 1
        Main.ChePath1(i).Value = 0
    Next i
    Main.TextPath1(0).Text = "25"
    Main.TextPath1(1).Text = "0"
    Main.TextPath1(2).Text = "0"
    Main.TextPath1(3).Text = ""
    Main.ListPath.Clear
    For i = 0 To 1
        Main.TaskStat(i).Caption = ""
    Next i
    '其它
    For i = 0 To 3
        Main.CheOther(i).Value = 0
    Next i

    ''遍历好友列表
    Main.LVFriend(0).ListItems.Clear
    Main.LVFriend(0).ColumnHeaders.Clear
    Main.LVFriend(0).ColumnHeaders.Add , "Level", "级别", 600
    Main.LVFriend(0).ColumnHeaders.Add , "Name", "名称", 1300
    Main.LVFriend(0).ColumnHeaders.Add , "Id", "ID", 1300
    Main.LVFriend(0).ColumnHeaders.Add , "Line", "线路", 600
    ''地面物品列表
    Main.LVPick(0).ListItems.Clear
    Main.LVPick(0).ColumnHeaders.Clear
    Main.LVPick(0).ColumnHeaders.Add , "Way", "方向", 550
    Main.LVPick(0).ColumnHeaders.Add , "Name", "物品名称", 1400
    Main.LVPick(0).ColumnHeaders.Add , "Ran", "距离", 600
    Main.LVPick(0).ColumnHeaders.Add , "X", "X坐标", 700
    Main.LVPick(0).ColumnHeaders.Add , "Y", "Y坐标", 700
    Main.LVPick(0).ColumnHeaders.Add , "FGID", "物品ID", 1000
    Main.LVPick(0).ColumnHeaders.Add , "FGSID", "系统ID", 1400
    Main.LVPick(0).SortKey = 2
    Main.LVPick(0).SortOrder = lvwAscending
    Main.LVPick(0).Sorted = True
    ''拾取过的物品列表
    Main.LVPick(4).ListItems.Clear
    Main.LVPick(4).ColumnHeaders.Clear
    Main.LVPick(4).ColumnHeaders.Add , "Name", "物品名称", 1400
    Main.LVPick(4).ColumnHeaders.Add , "FGID", "物品ID", 1000
    Main.LVPick(4).ColumnHeaders.Add , "FGSID", "系统ID", 1400
    ''背包物品列表
    Main.LVPick(1).ListItems.Clear
    Main.LVPick(1).ColumnHeaders.Clear
    Main.LVPick(1).ColumnHeaders.Add , "No", "格", 300
    Main.LVPick(1).ColumnHeaders.Add , "Kind", "类", 400
    Main.LVPick(1).ColumnHeaders.Add , "Name", "物品名称", 1200
    Main.LVPick(1).ColumnHeaders.Add , "Num", "数量", 600
    Main.LVPick(1).ColumnHeaders.Add , "MNum", "上限", 600
    Main.LVPick(1).ColumnHeaders.Add , "ID", "ID", 800
    Main.SSTab2.TabCaption(1) = "包[24/24]"
    ''仓库物品列表
    Main.LVPick(2).ListItems.Clear
    Main.LVPick(2).ColumnHeaders.Clear
    Main.LVPick(2).ColumnHeaders.Add , "No", "格", 300
    Main.LVPick(2).ColumnHeaders.Add , "Kind", "类", 400
    Main.LVPick(2).ColumnHeaders.Add , "Name", "物品名称", 1200
    Main.LVPick(2).ColumnHeaders.Add , "Num", "数量", 600
    Main.LVPick(2).ColumnHeaders.Add , "MNum", "上限", 600
    Main.LVPick(2).ColumnHeaders.Add , "ID", "ID", 800
    Main.SSTab2.TabCaption(2) = "仓[24/24]"
    ''任务背包物品列表
    Main.LVPick(3).ListItems.Clear
    Main.LVPick(3).ColumnHeaders.Clear
    Main.LVPick(3).ColumnHeaders.Add , "No", "格", 300
    Main.LVPick(3).ColumnHeaders.Add , "Kind", "类", 400
    Main.LVPick(3).ColumnHeaders.Add , "Name", "物品名称", 1200
    Main.LVPick(3).ColumnHeaders.Add , "Num", "数量", 600
    Main.LVPick(3).ColumnHeaders.Add , "MNum", "上限", 600
    Main.LVPick(3).ColumnHeaders.Add , "ID", "ID", 800
    ''遍历怪物列表
    Main.ListWarMon.Clear           '种类表
    Main.LVNpc(0).ListItems.Clear
    Main.LVNpc(0).ColumnHeaders.Clear
    Main.LVNpc(0).ColumnHeaders.Add , "Lev", "级", 400
    Main.LVNpc(0).ColumnHeaders.Add , "Name", "名称", 1400
    Main.LVNpc(0).ColumnHeaders.Add , "Ran", "距离", 650
    Main.LVNpc(0).ColumnHeaders.Add , "ID", "ID", 1400
    Main.LVNpc(0).SortKey = 2
    Main.LVNpc(0).SortOrder = lvwAscending
    Main.LVNpc(0).Sorted = True
    ''遍历NPC列表
    Main.LVNpc(1).ListItems.Clear
    Main.LVNpc(1).ColumnHeaders.Clear
    Main.LVNpc(1).ColumnHeaders.Add , "Ran", "距离", 500
    Main.LVNpc(1).ColumnHeaders.Add , "Name", "名称", 1450
    Main.LVNpc(1).ColumnHeaders.Add , "X", "X", 600
    Main.LVNpc(1).ColumnHeaders.Add , "Y", "Y", 600
    Main.LVNpc(1).ColumnHeaders.Add , "ID", "ID", 1400
    '脚本相关
    Main.CboScript.Clear
    Main.ListScript.Clear
    '自动任务相关
    For i = 0 To 1
        Main.CheAutoTask(i).Value = 0
    Next i
    Main.ListATask.Clear
    Main.Task.Clear
    TaskInfoInit
    ''存放窗口句柄
    Main.List0(0).Clear
    EnumWindows AddressOf EnumWindowsProc, 0&
End Sub
'任务设置信息初始化
Sub TaskInfoInit()
On Error Resume Next
    Dim i As Integer
    Main.LabTask(0).Caption = ""
    Main.LabTask(1).Caption = ""
    Main.LabTask(2).Caption = ""
    Main.TextTaskSet(0).Text = ""
    Main.TextTaskSet(1).Text = ""
    For i = 0 To 3
        Main.TextTCMon(i).Text = ""
        Main.TextTCNum(i).Text = "0"
        Main.TextTCGoo(i).Text = ""
    Next i
End Sub