Клик мышью в фоновом приложении

Imports System.Runtime.InteropServices
 
Public Class Form1
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function FindWindow(
     ByVal lpClassName As String,
     ByVal lpWindowName As String) As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr,
                      ByVal childAfter As IntPtr,
                      ByVal lclassName As String,
                      ByVal windowTitle As String) As IntPtr
    End Function
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Ищем дескриптор окна, можем искать по классу (посмотреть в Spy++), по заголовку или по тому и другому сразу.
        Dim WindowHwnd As IntPtr = FindWindow("Notepad", vbNullString)
        'Теперь надо найти наше текставое поле, тут уже используем ф-цию FindWindowEx
        'Передав ей десприптор родительского окна (которое нашли), имя класса или (и) текст (который в нем написан).
        Dim EditHwnd As IntPtr = FindWindowEx(WindowHwnd, IntPtr.Zero, "Edit", vbNullString)
        'Теперь используем ф-цию SendMessage (для улучшения читаемости, создал SendText)
        SendText.Send(EditHwnd, "TEST TEXT")
    End Sub
 
    Private Class SendText
        <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
        Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
        End Function
 
        Const WM_SETTEXT = &HC
 
        Public Shared Sub Send(ByVal HWND As IntPtr, ByVal Text As String)
            SendMessage(HWND, WM_SETTEXT, 0, Text)
        End Sub
    End Class
End Class

Module Module1
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Function FindWindow(
     ByVal lpClassName As String,
     ByVal lpWindowName As String) As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Function FindWindowEx(ByVal parentHandle As IntPtr,
                      ByVal childAfter As IntPtr,
                      ByVal lclassName As String,
                      ByVal windowTitle As String) As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByRef wParam As IntPtr, ByRef lParam As IntPtr) As IntPtr
    End Function
 
    Const EM_GETSEL = &HB0
    Const WM_USER = &H400
    Const EM_EXGETSEL = WM_USER + 52
 
    Sub Main()
        Dim Window As IntPtr = FindWindow("Notepad", vbNullString)
        Dim Edit As IntPtr = FindWindowEx(Window, IntPtr.Zero, "Edit", vbNullString)
        Dim iStart, iCount As IntPtr
        SendMessage(Edit, EM_GETSEL, iStart, iCount)
        Console.WriteLine(iStart)
        Console.ReadLine()
    End Sub
 
End Module