mod87midaut.bas

这是诛仙外挂的源代码

Attribute VB_Name = "Mod87MidAut"
Option Explicit

'中秋对联任务
Sub DoDL()
On Error Resume Next
    Dim DLInfo As String, DLId As String
    Dim itmX As ListItem, i As Integer
    Dim TaskInfo() As String
    
    For i = 1 To Main.LVPick(1).ListItems.Count
        Set itmX = Main.LVPick(1).ListItems(i)
        DLId = itmX.SubItems(Main.LVPick(1).ColumnHeaders("ID").SubItemIndex)
        DLInfo = ReadIni("Task", "对联", "Item" & DLId)
        If Len(Trim(DLInfo)) > 0 Then
            TaskInfo = Split(DLInfo, "|")
            If Trim(Left(TaskInfo(0), 4)) = "赏月对联" Then
                AutoGetTask TaskInfo(1), Val(TaskInfo(2)), Val(TaskInfo(3)), TaskInfo(5), TaskInfo(4), 0
                Wait 1000
                CloseNpcByName (TaskInfo(1))
                AutoSetTask TaskInfo(1), Val(TaskInfo(2)), Val(TaskInfo(3)), TaskInfo(5), TaskInfo(4), 0
                Wait 1000
                CloseNpcByName (TaskInfo(1))
                Exit Sub
            End If
        End If
    Next
End Sub