ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801396
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
 |  Konu: Koxp Oyundan Atma Sorunu Çözümü  Perş. Mart 04, 2010 5:30 pm | |
| Selamün Aleyküm Arkadaşlar Burada Size Koxp Oyundan Atma Sorunu Çözüm Kodlarını vericem.
Yapılışı :
Yeni Modülünüzdeki SendPackets Kodu ile bunu değiştirin.
- Kod:
-
Function SendPackets(pPacket() As Byte)
Dim psize As Long
Dim pCode() As Byte
psize = UBound(pPacket) - LBound(pPacket) + 1
If BytesAddr = 0 Then
BytesAddr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If BytesAddr <> 0 Then
WriteByteArray BytesAddr, pPacket, psize
ConvHEX2ByteArray "608B0D" & AlignDWORD(KO_PTR_PKT) & "68" & AlignDWORD(psize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_SND_FNC) & "FFD7C605" & AlignDWORD(&HC0722C) & "0061C3", pCode
ExecuteRemoteCode pCode, True
End If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End Function | |
|
