Buy merchant paketi(yardım)

[henrique47 1]

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

[OzkanOzdemir 1.560]

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

[henrique47 1]

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ı ?

 

[henrique47 1]

son up belki yardımcı olacak biri çıkar steamko için arıyorum