If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

'Zamanı 100 yap

Private Sub OtoRprList_Click()
'SessizAdem Geveze.Forum7.Biz
End Sub

Sub HookRecvPackets()
Dim CreateFileAADDR As Long
Dim WriteFileADDR As Long
Dim CloseHandleADDR As Long
Dim pBytesMSName() As Byte
Dim pBytes() As Byte
Dim pStr As String
Dim pStrKO_RCVFNC As String

CreateFileAADDR = FindDLLFunc("kernel32.dll", "CreateFileA")
WriteFileADDR = FindDLLFunc("kernel32.dll", "WriteFile")
CloseHandleADDR = FindDLLFunc("kernel32.dll", "CloseHandle")
 
'Find to Addy for each funciton (prepare to write the next routine)
CreateFileAADDR = FindDLLFunc("kernel32.dll", "CreateFileA")
WriteFileADDR = FindDLLFunc("kernel32.dll", "WriteFile")
CloseHandleADDR = FindDLLFunc("kernel32.dll", "CloseHandle")
KO_RCVFNC = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)

pBytesMSName = StrConv(MSName, vbFromUnicode)
WriteByteArray KO_RCVFNC + 1024, pBytesMSName, UBound(pBytesMSName) - LBound(pBytesMSName) + 1
pStr = AlignDWORD(CreateFileAADDR)
ConvHEX2ByteArray pStr, pBytes
WriteByteArray KO_RCVFNC + 810, pBytes, UBound(pBytes) - LBound(pBytes) + 1
pStr = AlignDWORD(WriteFileADDR)
ConvHEX2ByteArray pStr, pBytes
WriteByteArray KO_RCVFNC + 820, pBytes, UBound(pBytes) - LBound(pBytes) + 1
pStr = AlignDWORD(CloseHandleADDR)
ConvHEX2ByteArray pStr, pBytes
WriteByteArray KO_RCVFNC + 830, pBytes, UBound(pBytes) - LBound(pBytes) + 1
pStr = AlignDWORD(KO_RCVHKB)
ConvHEX2ByteArray pStr, pBytes
WriteByteArray KO_RCVFNC + 520, pBytes, UBound(pBytes) - LBound(pBytes) + 1
pStr = AlignDWORD(KO_RECVHK)
ConvHEX2ByteArray pStr, pBytes
WriteByteArray KO_RCVFNC + 530, pBytes, UBound(pBytes) - LBound(pBytes) + 1
pStr = AlignDWORD(KO_RCVFNC)
ConvHEX2ByteArray pStr, pBytes
WriteByteArray KO_RCVFNC + 540, pBytes, UBound(pBytes) - LBound(pBytes) + 1

                     
pStr = "50" + "890D" + AlignDWORD(KO_RCVFNC + 800) + "8905" + AlignDWORD(KO_RCVFNC + 950) + "890D" + AlignDWORD(KO_RCVFNC + 500) + "8B57088915" + AlignDWORD(KO_RCVFNC + 510) + "68800000006A036A006A01680000004068" + AlignDWORD(KO_RCVFNC + 1024) + "FF15" + AlignDWORD(KO_RCVFNC + 810) + "83f8ff741d" + "506a0054ff35" + AlignDWORD(KO_RCVFNC + 500) + "ff35" + AlignDWORD(KO_RCVFNC + 510) + "50ff15" + AlignDWORD(KO_RCVFNC + 820) + "ff15" + AlignDWORD(KO_RCVFNC + 830) + "8b0d" + AlignDWORD(KO_RCVFNC + 900) + "8b05" + AlignDWORD(KO_RCVFNC + 950) + "8b57088a4402ff" + "ff25" + AlignDWORD(KO_RCVFNC + 520)
                                     
                   
ConvHEX2ByteArray pStr, pBytes
WriteByteArray KO_RCVFNC, pBytes, UBound(pBytes) - LBound(pBytes) + 1

pStrKO_RCVFNC = "FF25" + AlignDWORD(KO_RCVFNC + 540) + "90"
ConvHEX2ByteArray pStrKO_RCVFNC, pBytes
WriteByteArray KO_RECVHK, pBytes, UBound(pBytes) - LBound(pBytes) + 1
End Sub