ALPA
Site Kurucusu
Mesaj Sayısı : 815
Nerden : Ankara
Kayıt tarihi : 02/03/09
 Rep Puanı : 32
 |  Konu: Bankadakiler isim okuma  Cuma Ara. 24, 2010 3:42 pm | |
| - nakata11 demiş ki:
Arkadaşlar bankadakileri okuyabilmek için 1 kere bankayı açıp kapamalısınız
- Kod:
-
Function bankaName1() As String
Dim a, b, c, pPtr As Long
Dim Skillname() As Byte
Dim SkillnameLen As Long
pPtr = ReadLong(KO_PTR_DLG)
a = ReadLong(pPtr + 488)
b = ReadLong(a +[color=Red]200[/color])
c = ReadLong(b + 56)
SkillnameLen = ReadByte(c + 20)
If SkillnameLen > 0 Then
ReadByteArray ReadLong(c + 12), Skillname, SkillnameLen
End If
bankaName1 = StrConv(Skillname, vbUnicode)
End Function
kırmızı olan 200 değerini 4 arttırırsanız ikinci slot 3. slot diye
gider 292 de 1 sayfa bitiyor 296 2. sayfa 1. slot böyle 8 sayfalık
algoritmayı kendiniz kurarsınız inventory mantığı gibi
adet ve id okumayıda inventory okuma mantığındaki gibi 488 ve 200 offsetini kullanarak yaparsınız.
herkeze iyi oyunlar
________Kullanıcı İmzası_________ | |
|
