Genel Araştırma
'paketi(yardım)' etiketi için arama sonuçları.
Araştırmada 1 sonuç bulundu
-
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