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