Win32api

    Private Declare Function CloseHandle Lib "kernel32" (ByVal pHandle As IntPtr) As Boolean
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Boolean, ByVal dwProcessId As UInteger) As IntPtr
    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <Runtime.InteropServices.Out()> ByVal lpBuffer As Byte(), ByVal nSize As UInteger, ByRef lpNumberOfBytesRead As UInteger) As Boolean
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As Byte(), ByVal nSize As UInteger, ByRef lpNumberOfBytesWritten As UInteger) As Boolean
    Public Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpdwProcessID As Integer) As Integer
    Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As UInteger, ByVal flAllocationType As UInteger, ByVal flProtect As UInteger) As IntPtr
    Public Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As Integer, ByVal dwFreeType As Integer) As Integer
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
    Private Declare Function EnumChildWindows Lib "user32" (ByVal hWnd As IntPtr, ByVal lpEnumFunc As EnumWindProc, ByRef lParam As IntPtr) As Int32
    Private Delegate Function EnumWindProc(ByVal hWnd As Int32, ByVal lParam As Int32) As Boolean
    Private Delegate Function EnumChildWindProc(ByVal hWnd As Int32, ByVal lParam As Int32) As Boolean
    <DllImport("user32.dll")> _
    Private Shared Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
    End Function

Public Const LVM_FIRST = &H1000
    Public Const LVM_GETITEMTEXTA = (LVM_FIRST + 45)
    Public Const LVM_GETITEMTEXT = LVM_GETITEMTEXTA
    Public Const LVM_DELETEITEM = (LVM_FIRST + 8)
    Public Const LVM_GETITEMCOUNT = (LVM_FIRST + 4)
    Public Const PROCESS_VM_READ = &H10
    Public Const PROCESS_VM_WRITE = (&H20)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_QUERY_INFORMATION = (&H400)
    Public Const PAGE_READWRITE As Long = &H4
    Public Const PAGE_READONLY As System.UInt32 = &H2
    Public Const MEM_COMMIT As Long = &H1000&
    Public Const MEM_RELEASE As Long = &H8000&
#Region " [LVITEM] "
    Public Structure LVITEM
        Dim mask As UInteger
        Dim iItem As Integer
        Dim iSubItem As Integer
        Dim state As UInteger
        Dim stateMask As UInteger
        Dim pszText As String
        Dim cchTextMax As Integer
        Dim iImage As Integer
        Dim lParam As IntPtr
        Dim iIndent As Integer
        Dim iGroupId As Integer
        Dim cColumns As UInteger
        Dim puColumns As IntPtr
    End Structure
#End Region