ALPA
Site Kurucusu
Mesaj Sayısı : 815
Nerden : Ankara
Kayıt tarihi : 02/03/09
 Rep Puanı : 32
 |  Konu: Skill Bar Skill Okuma + Skill İsmini Okuma  Paz Ara. 19, 2010 12:09 am | |
| örnek resim ; 
Skill Bar Skill Oku
Function GetSkillbar(Slot As Long) As Long
Dim a, b, c As Long
pPtr = ReadLong(KO_DLGBMA)
a = ReadLong(pPtr + &H1C4)
b = ReadLong(a + &H198 + (Slot * 8))
c = ReadLong(b + &H38)
GetSkillbar = ReadLong((c))
End Function
Örnek
label1 = GetSkillbar(1)
Skill İsmini Oku
Function GetSkillbarName(Slot As Long) As String
Dim a, b, c As Long
Dim Skillname() As Byte
Dim SkillnameLen As Long
pPtr = ReadLong(KO_DLGBMA)
a = ReadLong(pPtr + &H1C4)
b = ReadLong(a + &H198 + (Slot * 8))
c = ReadLong(b + &H38)
SkillnameLen = ReadByte(c + &H1C)
If SkillnameLen > 0 Then
ReadByteArray ReadLong(c + &H18), Skillname, SkillnameLen
End If
GetSkillbarName = StrConv(Skillname, vbUnicode)
End Function
Örnek
Label1.caption = GetSkillbar(1)
Tüm Skillleri Okutma
CODE
List1.Clear
List2.Clear
List3.Clear
Dim i As Long
For i = 1 To 8
List1.AddItem i
List2.AddItem GetSkillbar(i)
List3.AddItem GetSkillbarName(i)
Next
Kullanılan Diğer Fonksiyonlar
Public Function ReadByte(Addr As Long) As Long 'read a 1 byte value
Dim Value As Long
If GAME_HANDLE <> 0 Then
ReadProcessMem GAME_HANDLE, Addr, Value, 1, 0&
End If
ReadByte = Value
End Function
CODE
Public Function ReadLong(Addr As Long) As Long 'read a 4 byte value
Dim Value As Long
If GAME_HANDLE <> 0 Then
ReadProcessMem GAME_HANDLE, Addr, Value, 4, 0&
End If
ReadLong = Value
End Function
CODE
Sub ReadByteArray(Addr As Long, pmem() As Byte, pSize As Long)
Dim Value As Byte
ReDim pmem(1 To pSize) As Byte
If GAME_HANDLE <> 0 Then
ReadProcessMem GAME_HANDLE, Addr, pmem(1), pSize, 0&
End If
End Sub
________Kullanıcı İmzası_________ | |
|
