Kod:
Function MelihTest()
Dim KO_SND_THREAD As Long, ThreadAddr As Long
KO_SND_THREAD = &HC1DE1C
ThreadAddr = GetProcAddress(GetModuleHandle("kernel32.dll"), "GetCurrentThreadId")

MemPatch KO_HANDLE, ThreadAddr + 9, "A3" & AlignDWORD(KO_SND_THREAD) & "C3"
End Function

Kod:
Function MemPatch(handle As Long, addr As Long, Patch As String)
'melih [kojd]
Dim pBytes() As Byte, size As Long
ConvHEX2ByteArray Patch, pBytes
size = UBound(pBytes) - LBound(pBytes) + 1
WriteProcessMem handle, addr, pBytes(LBound(pBytes)), size, vbNull
End Function

Kodlar KoJD'undur.
Kodları modüle ekleyip,Başlat Butonuna MelihTest yazıyorsunuz.

Ohoo bu kod Win7 Donma yapıyor. Değişti BU.

İşe yaramaz..