mod11opeini.bas

这是诛仙外挂的源代码

Attribute VB_Name = "Mod11OpenIni"
Option Explicit

'读取列表
Sub ReadItemList(cListName As String, FileName As String)
On Error Resume Next
    Dim sFile As String, TempItem As String, TempItemCount As String
    Dim x As Integer, BiaoZhi As String, s1() As String
    
    TempItem = Space$(100)
    TempItemCount = Space$(100)
    sFile = App.Path & "\" & Trim(FileName) & ".ini"
    Main.Controls(cListName).Clear
    If FileName = PartName Then
        BiaoZhi = "C"
    Else
        BiaoZhi = ""
    End If
    GetPrivateProfileString& cListName & BiaoZhi, "Count", "0", TempItemCount, 100, sFile
    For x = 0 To CLng(TempItemCount) - 1
        GetPrivateProfileString& cListName & BiaoZhi, "Item" & x, "0", TempItem, 100, sFile
        If FileName = PartName Then
            Main.Controls(cListName).AddItem TempItem
        Else
            s1 = Split(TempItem, ",")
            If Len(Trim(s1(0))) > 0 Then
                Main.Controls(cListName).AddItem Trim(s1(0)) & "|" & Trim(s1(1))
            End If
        End If
    Next x
End Sub
'保存列表
Sub WriteItemList(cListName As String, FileName As String)
On Error Resume Next
    Dim sFile As String
    Dim x As Integer
    sFile = App.Path & "\" & Trim(FileName) & ".ini"
    WritePrivateProfileString& cListName & "C", "Count", Main.Controls(cListName).ListCount, sFile
    For x = 0 To Main.Controls(cListName).ListCount - 1
        WritePrivateProfileString& cListName & "C", "Item" & x, Main.Controls(cListName).List(x), sFile
    Next x
End Sub
''读取设置
Sub ReadMeConfig()
On Error Resume Next
    Dim sFile As String, TempString As String
    Dim x As Integer
    sFile = App.Path & "\" & PartName & ".ini"
    TempString = Space$(100)
    
    '组队
    GetPrivateProfileString& "组队", "Option1", "0", TempString, 100, sFile
    If CLng(Trim(TempString)) = 0 Then
        Main.OptTeam(0).Value = True
    ElseIf CLng(Trim(TempString)) = 1 Then
        Main.OptTeam(1).Value = True
    ElseIf CLng(Trim(TempString)) = 2 Then
        Main.OptTeam(2).Value = True
    End If
    GetPrivateProfileString& "组队", "Check0", "0", TempString, 100, sFile
    Main.CheTeam(0).Value = CLng(Trim(TempString))
    GetPrivateProfileString& "组队", "Data0", "", TempString, 100, sFile
    Main.TextTeam1(0).Text = Trim(TempString)
    '对对碰
    GetPrivateProfileString& "小环", "Data0", "", TempString, 100, sFile
    Main.TextLuck(0).Text = Trim(TempString)
    GetPrivateProfileString& "小环", "Data1", "99", TempString, 100, sFile
    Main.TextLuck(1).Text = Trim(TempString)
    GetPrivateProfileString& "小环", "Data2", "72", TempString, 100, sFile
    Main.TextLuck(2).Text = Trim(TempString)
    For x = 0 To 0
        GetPrivateProfileString& "小环", "Check" & CStr(x), "0", TempString, 100, sFile
        Main.CheLuck(x).Value = CLng(Trim(TempString))
    Next x
    ShowLuckStat ("")
    '保护
    For x = 0 To 13
        GetPrivateProfileString& "保护", "Check" & CStr(x), "0", TempString, 100, sFile
        Main.CheSafe(x).Value = CLng(Trim(TempString))
    Next x
    GetPrivateProfileString& "保护", "Data0", "50%", TempString, 100, sFile
    Main.TextSafe(0).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data1", "30%", TempString, 100, sFile
    Main.TextSafe(1).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data2", "40%", TempString, 100, sFile
    Main.TextSafe(2).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data3", "20%", TempString, 100, sFile
    Main.TextSafe(3).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data4", "2", TempString, 100, sFile
    Main.TextSafe(4).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data5", "2", TempString, 100, sFile
    Main.TextSafe(5).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data6", "70%", TempString, 100, sFile
    Main.TextSafe(6).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data7", "", TempString, 100, sFile
    Main.TextSafe(7).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data8", "", TempString, 100, sFile
    Main.TextSafe(8).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data9", "80%", TempString, 100, sFile
    Main.TextSafe(9).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data10", "", TempString, 100, sFile
    Main.TextSafe(10).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data11", "", TempString, 100, sFile
    Main.TextSafe(11).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data12", "99", TempString, 100, sFile
    Main.TextSafe(12).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data13", "99", TempString, 100, sFile
    Main.TextSafe(13).Text = Trim(TempString)
    GetPrivateProfileString& "保护", "Data14", "", TempString, 100, sFile
    Main.TextSafe(14).Text = Trim(TempString)
    '战斗
    For x = 0 To 9
        GetPrivateProfileString& "战斗", "Check" & CStr(x), "0", TempString, 100, sFile
        Main.CheWar(x).Value = CLng(Trim(TempString))
    Next x
    GetPrivateProfileString& "战斗", "Option1", "0", TempString, 100, sFile
    If CLng(Trim(TempString)) = 0 Then
        Main.OptWar1(0).Value = True
    ElseIf CLng(Trim(TempString)) = 1 Then
        Main.OptWar1(1).Value = True
    End If
    GetPrivateProfileString& "战斗", "Data0", "30", TempString, 100, sFile
    Main.TextWar1(0).Text = CLng(Trim(TempString))
    '拾取
    For x = 0 To 3
        GetPrivateProfileString& "拾取", "Check" & CStr(x), "0", TempString, 100, sFile
        Main.ChePick1(x).Value = CLng(Trim(TempString))
    Next x
    GetPrivateProfileString& "拾取", "Data0", "9", TempString, 100, sFile
    Main.TextPick1(0).Text = Trim(TempString)
    '路径
    For x = 0 To 1
        GetPrivateProfileString& "路径", "Check" & CStr(x), "0", TempString, 100, sFile
        Main.ChePath1(x).Value = CLng(Trim(TempString))
    Next x
    GetPrivateProfileString& "路径", "Data0", "25", TempString, 100, sFile
    Main.TextPath1(0).Text = Trim(TempString)
    GetPrivateProfileString& "路径", "Data1", "0", TempString, 100, sFile
    Main.TextPath1(1).Text = Trim(TempString)
    GetPrivateProfileString& "路径", "Data2", "0", TempString, 100, sFile
    Main.TextPath1(2).Text = Trim(TempString)
    ''其它
    For x = 0 To 3
        GetPrivateProfileString& "其它", "Check" & CStr(x), "0", TempString, 100, sFile
        Main.CheOther(x).Value = CLng(Trim(TempString))
    Next x
    '组队
    ReadItemList "ListTeam", PartName
    '选怪
    ReadItemList "ListWar1", PartName
    ReadItemList "ListWar2", PartName
    ReadItemList "ListWar3", PartName
    '拾取
    ReadItemList "ListPick1", PartName
    ReadItemList "ListPick2", PartName
    ReadItemList "ListPick3", PartName
    '路径
    ReadItemList "ListPath", PartName
    '脚本
    ReadItemList "ListScript", PartName
    '自动任务
    ReadItemList "ListATask", PartName
    '药品
    ReadMedi ("Red")
    ReadMedi ("Blue")
    '可选任务列表
    ''其它
    For x = 0 To 1
        GetPrivateProfileString& "任务", "Check" & CStr(x), "0", TempString, 100, sFile
        Main.CheAutoTask(x).Value = CLng(Trim(TempString))
    Next x
    '脚本
    Main.CboScript.AddItem "回城"
    Main.CboScript.AddItem "存物品"
    Main.CboScript.AddItem "卖物品"
    Main.CboScript.AddItem "买红药"
    Main.CboScript.AddItem "买蓝药"
End Sub
''保存设置
Sub WriteMeConfig()
On Error Resume Next
    Dim sFile As String
    Dim x As Integer
    sFile = App.Path & "\" & PartName & ".ini"
    
    '组队
    If Main.OptTeam(0).Value = True Then
        WritePrivateProfileString& "组队", "Option1", "0", sFile
    ElseIf Main.OptTeam(1).Value = True Then
        WritePrivateProfileString& "组队", "Option1", "1", sFile
    ElseIf Main.OptTeam(2).Value = True Then
        WritePrivateProfileString& "组队", "Option1", "2", sFile
    End If
    WritePrivateProfileString& "组队", "Check0", Main.CheTeam(0).Value, sFile
    WritePrivateProfileString& "组队", "Data0", Main.TextTeam1(0).Text, sFile
    '对对碰
    For x = 0 To 2
        WritePrivateProfileString& "小环", "Data" & CStr(x), Main.TextLuck(x).Text, sFile
    Next x
    For x = 0 To 0
        WritePrivateProfileString& "小环", "Check" & CStr(x), Main.CheLuck(x).Value, sFile
    Next x
    '保护
    For x = 0 To 13
        WritePrivateProfileString& "保护", "Check" & CStr(x), Main.CheSafe(x).Value, sFile
    Next x
    For x = 0 To 14
        WritePrivateProfileString& "保护", "Data" & CStr(x), Main.TextSafe(x).Text, sFile
    Next x
    '战斗
    For x = 0 To 9
        WritePrivateProfileString& "战斗", "Check" & CStr(x), Main.CheWar(x).Value, sFile
    Next x
    If Main.OptWar1(0).Value = True Then
        WritePrivateProfileString& "战斗", "Option1", "0", sFile
    ElseIf Main.OptWar1(1).Value = True Then
        WritePrivateProfileString& "战斗", "Option1", "1", sFile
    End If
    WritePrivateProfileString& "战斗", "Data0", Main.TextWar1(0).Text, sFile
    '拾取
    For x = 0 To 3
        WritePrivateProfileString& "拾取", "Check" & CStr(x), Main.ChePick1(x).Value, sFile
    Next x
    WritePrivateProfileString& "拾取", "Data0", Main.TextPick1(0).Text, sFile
    '路径
    For x = 0 To 1
        WritePrivateProfileString& "路径", "Check" & CStr(x), Main.ChePath1(x).Value, sFile
    Next x
    For x = 0 To 2
        WritePrivateProfileString& "路径", "Data" & CStr(x), Main.TextPath1(x).Text, sFile
    Next x
    '其它
    For x = 0 To 3
        WritePrivateProfileString& "其它", "Check" & CStr(x), Main.CheOther(x).Value, sFile
    Next x
    '组队
    WriteItemList "ListTeam", PartName
    '选怪
    WriteItemList "ListWar1", PartName
    WriteItemList "ListWar2", PartName
    WriteItemList "ListWar3", PartName
    '拾取
    WriteItemList "ListPick1", PartName
    WriteItemList "ListPick2", PartName
    WriteItemList "ListPick3", PartName
    '路径
    WriteItemList "ListPath", PartName
    '脚本
    WriteItemList "ListScript", PartName
    '自动任务
    '其它
    For x = 0 To 1
        WritePrivateProfileString& "任务", "Check" & CStr(x), Main.CheAutoTask(x).Value, sFile
    Next x
    WriteItemList "ListATask", PartName
    
    MsgBox "保存成功！保存内容不包含路径信息"
End Sub
''读取药品信息
Sub ReadMedi(MediKind As String)
On Error Resume Next
    Dim sFile As String, TempString As String, Item As String
    Dim i As Integer, ItemCount As Integer
    Dim s1() As String
    
    sFile = App.Path & "\ZhuXian.ini"
    TempString = Space$(100)
    GetPrivateProfileString& MediKind & "Medi", "ItemCount", "0", TempString, 100, sFile
    ItemCount = Int(Trim(TempString))
    Main.Controls("Cbo" & MediKind).Clear
    For i = 0 To ItemCount - 1
        GetPrivateProfileString& MediKind & "Medi", "Item" & i, "0", TempString, 100, sFile
        Item = Trim(TempString)
        Main.Controls("Cbo" & MediKind).AddItem Item
        s1 = Split(Item, ",")
        If Len(s1(1)) > 0 Then
            Main.Controls("CboBuy" & MediKind).AddItem Trim(s1(4)) & "|" & Trim(s1(0)) & "|" & Trim(s1(1))
        End If
        Erase s1
    Next i
End Sub
''读取指定配置文件中一行的信息
Function ReadIni(FileName As String, KindName As String, ItemName As String) As String
On Error Resume Next
    Dim sFile As String, TempString As String
    Dim x As Integer
    sFile = App.Path & "\" & Trim(FileName) & ".ini"
    TempString = Space$(100)
    GetPrivateProfileString& KindName, ItemName, "", TempString, 100, sFile
    ReadIni = Trim(TempString)
End Function
''写入指定配置文件中一行信息
Function WriteIni(FileName As String, KindName As String, ItemName As String, ItemValue As String)
On Error Resume Next
    Dim sFile As String
    Dim x As Integer
    sFile = App.Path & "\" & Trim(FileName) & ".ini"
    WritePrivateProfileString& KindName, ItemName, ItemValue, sFile
End Function
''读取配置文件中一行的信息
Function ReadVarIni(KindName As String, ItemName As String) As String
On Error Resume Next
    Dim sFile As String, TempString As String
    Dim x As Integer
    sFile = App.Path & "\Var.ini"
    TempString = Space$(100)
    GetPrivateProfileString& KindName, ItemName, "", TempString, 100, sFile
    TempString = Trim(TempString)
    ReadVarIni = Trim(Left(TempString, InStr(TempString, "'") - 1))
End Function