Fonksiyn Göder Al

Konu: Fonksiyn Göder Al Cuma Tem. 02, 2010 1:12 am

1 Adet Modül Açalım

Kod:

Option Explicit

Public Function GetSendFunction(ptrSND As Long, ptrPKT As Long) As Long
Dim SNDval As Byte
Dim EAXval As Byte

SNDval = ReadByte(ptrSND)
Select Case SNDval
Case &H16: EAXval = 0
Case &H17: EAXval = 1
Case &H14: EAXval = 2
Case &H15: EAXval = 3
Case &H12: EAXval = 4
Case &H13: EAXval = 5
Case &H10: EAXval = 6
Case &H11: EAXval = 7
Case &H1E: EAXval = 8
Case &H1F: EAXval = 9
End Select
GetSendFunction = ReadLong(ReadLong(ptrPKT) + EAXval * 4 + &H40064)
End Function

Yükle Butonuna

Kod:

a2 = GetSendFunction(KO_PTR_SND, KO_PTR_PKT)
KO_SND_FNC = "&H" & Hex(a2)
Label1.Caption = "&H" & Hex(a2)

Loadoffsets Kısmına

Kod:

KO_PTR_SND = &HC11198

Üst Kısma

Kod:

Public KO_PTR_SND As Long

Konu: Geri: Fonksiyn Göder Al C.tesi Tem. 03, 2010 8:20 am

Paylaşım İçin Teşekkürler

Misafir

Paylaşım İçin Teşekkürler