henrique47 1 #1 Oluşturuldu: Nisan 29, 2019 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 Mesajı raporla İletiyi paylaş Link to post Sitelerde Paylaş
OzkanOzdemir 1.531 Admin #2 Nisan 29, 2019 tarihinde gönderildi Pointer veyahut offset değerleri değiştiği için alıyorsundur paket yapısında değişim yok diye biliyorum. Mesajı raporla İletiyi paylaş Link to post Sitelerde Paylaş
henrique47 1 #3 Konu Sahibi Nisan 29, 2019 tarihinde gönderildi 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ı ? Mesajı raporla İletiyi paylaş Link to post Sitelerde Paylaş
henrique47 1 #4 Konu Sahibi Nisan 30, 2019 tarihinde gönderildi son up belki yardımcı olacak biri çıkar steamko için arıyorum Mesajı raporla İletiyi paylaş Link to post Sitelerde Paylaş