Public Sub AutoHook()
Dim EaxVaule As Byte, Hook As Long, base1, Base2, base3, base4, IndexBul As Integer, ReadSND As String
        Randomize
        base1 = CInt(Rnd * 9)
        Randomize
        Base2 = CInt(Rnd * 9)
        Randomize
        base3 = CInt(Rnd * 9)
        Randomize
        base4 = CInt(Rnd * 9)
MSName = "\\.\mailslot\CaNsyN_" & Right(App.ThreadID, 2) & "_" & base1 & Base2 & base3 & base4 & CInt(Rnd * 9999)
MSHandle = EstablishMailSlot(MSName)
ReadSND = hex(ReadLong(KO_SENDPTR))
Select Case ReadSND
Case "D2813716": EaxVaule = 0
Case "73233F17": EaxVaule = 1
Case "C8332614": EaxVaule = 2
Case "87D62E15": EaxVaule = 3
Case "7EEE1612": EaxVaule = 4
Case "27911E13": EaxVaule = 5
Case "1FA90610": EaxVaule = 6
Case "C84C0E11": EaxVaule = 7
Case "3995771E": EaxVaule = 8
Case "E2387F1F": EaxVaule = 9
End Select
KO_SND_FNC = ReadLong(ReadLong(KO_PTR_PKT) + (EaxVaule * 4) + &H40064)
Hook = ReadByte(KO_PTR_DLG + &H84)
Select Case Hook
Case 8: IndexBul = 0
Case 9: IndexBul = 1
Case 10: IndexBul = 2
End Select
KO_RECVHK = (ReadLong(ReadLong(KO_PTR_DLG)) + &H8) + (IndexBul * 4)
KO_RCVHKB = ReadLong(KO_RECVHK)
HookRecvPackets
End Sub