mod10answer.bas

这是诛仙外挂的源代码

Attribute VB_Name = "Mod10Answer"
Option Explicit

Sub Alarm()
On Error Resume Next
    Dim pid As Long, hProcess As Long
    If Main.CheOther(1).Value = 1 Then
        mciExecute "play alarm.wav"
        If Main.ComMain(3).Caption = "显示游戏" Then
            GetWindowThreadProcessId GameFormHwnd, pid
            hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pid)
            ShowWindow GameFormHwnd, 5
            CloseHandle hProcess
            Main.ComMain(3).Caption = "隐藏游戏"
        End If
    End If
End Sub