evet sorun bu arkadaşlar sizce ne yapmalıyım timer interval 1500 oyuna veri yolluyorum oyunun belleği feci doluyor pc res atıyor.

sleep fln uğraştım ama nafile ne yapabilirim sizce.

Function SendPackets(pPacket() As Byte)
Dim BytesAddr As Long
Dim pSize As Long
Dim pCode() As Byte

pSize = UBound(pPacket) - LBound(pPacket) + 1
BytesAddr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
If BytesAddr <> 0 Then
    WriteByteArray BytesAddr, pPacket, pSize
    ConvHEX2ByteArray "60A1" & AlignDWORD(KO_PTR_PKT) & "8B0D" & AlignDWORD(KO_PTR_PKT) & "68" & AlignDWORD(pSize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_SND_FNC) & "FFD761C3", pCode
    ExecuteRemoteCode pCode, True
End If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End Function