Jump to content
Araştır
  • Diğer seçenekler ...
Sonuçları bul ...
Sonuçları bul ...
KO Developers Platformuna Hoşgeldin!
henrique47

Buy merchant paketi(yardım)

Önerilen Mesajlar

Uzun süredir şunu kullanıyordum ama şuan kapat hatası alıyorum.

Sanırım adresler değişmiş.Bunları opcode çekip mi bulacağım yoksa başka bir yolu var mı?

Public Sub buykur()
Dim AlinacakItemCount As Long
Dim fiyat(1 To 12) As Long
Dim SlotCount(1 To 12) As Long
Dim SlotItemID(1 To 12) As Long
Dim BuyPaketi As String
Dim gercekadres As Long
Dim pointer2 As Long
Dim i As Long
AlinacakItemCount = 1
fiyat(1) = 1
SlotCount(1) = Form1.Text6.Text
SlotItemID(1) = 810418000

'RECV KAPA
'pointer2 = ReadLong(ReadLong(KO_PTR_DLG)) + 8
'gercekadres = ReadLong(pointer2)
'WriteLong &HC50900, &H900008C2
'WriteLong pointer2, &HC50900
'RECV KAPA
Pause 2
PaketYolla "6821"
Pause 2

BuyPaketi = "6822" + FormatHex(Hex(AlinacakItemCount), 2)
For i = 1 To AlinacakItemCount
BuyPaketi = BuyPaketi + AlignDWORD1(SlotItemID(i), Len(str(SlotItemID(i)))) + FormatHex(Hex(SlotCount(i)), 2) + "00" + AlignDWORD1(fiyat(i), Len(str(fiyat(i))))
Next

PaketYolla BuyPaketi
Pause 2

'RECV AC
'pointer2 = ReadLong(ReadLong(KO_PTR_DLG)) + 8
'WriteLong pointer2, gercekadres
'RECV AC

End Sub

İletiyi paylaş


Link to post
Sitelerde Paylaş
Alıntı

Pointer veyahut offset değerleri değiştiği için alıyorsundur paket yapısında değişim yok diye biliyorum.

 


Longyaz kısmında yer alan pointerleri tam olarak anlayamadım nerenin adresleri bilginiz var mı ?

 

İletiyi paylaş


Link to post
Sitelerde Paylaş

×
×
  • Yeni Oluştur...