----------------------------------

KO_TITLE = Text1.Text ' ko_title = text1

GetHandle

If KO_HANDLE > 0 Then

Command1.Enabled = False ' yükle butonunu pasiv et

Text1.Enabled = False ' yüklenin yanındaki text1 i pasiv et

Else ' hayırsa

MsgBox "Pencere bulunamadi", vbCritical 'kritik hata notuyla pencere bulunamadı de!

End If

'funcition BySertac

----------------------------------

-----------------------------

'handle
Public KO_HANDLE As Long
'title
Public KO_TITLE As String
Public Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer

Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function WriteProcessMem Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "User32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Function EnumProcesses Lib "PSAPI.DLL" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Const PROCESS_QUERY_INFORMATION  As Long = 1024
Private Const PROCESS_VM_READ            As Long = 16
Private Const MAX_PATH                   As Long = 260
Public Function GetProcessByName(ByVal EXEName As String) As Long

  Dim cb                   As Long
  Dim cbNeeded             As Long
  Dim NumElements          As Long
  Dim ProcessIDs()         As Long
  Dim cbNeeded2            As Long
  Dim NumElements2         As Long
  Dim Modules(1 To 200)    As Long
  Dim ModuleName           As String
  Dim hProcess             As Long
  Dim i                    As Long

    cb = 8
    cbNeeded = 96

    Do While cb <= cbNeeded
        cb = cb * 2

----------------------------------