Imports System
Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Const WM_GETTEXT As Integer = 13 ' 0x000d
    Const WM_SETTEXT As Integer = 12 ' 0x000c
 
    <DllImport("user32.dll")> _
    Private Shared Function FindWindowEx( _
                   ByVal hwndParent As IntPtr, _
                   ByVal hwndChildAfter As IntPtr, _
                   ByVal lpszClass As String, _
                   ByVal lpszWindow As String) As IntPtr
    End Function
 
    <DllImport("user32.dll")> _
    Private Shared Function SendMessage( _
                   ByVal hWnd As IntPtr, _
                   ByVal Msg As Integer, _
                   ByVal wParam As Integer, _
                   ByVal lParam As System.Text.StringBuilder) _
                   As Integer
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim myProcess As Process() = Process.GetProcessesByName("Notepad")
 
        Dim hWnd_EditBox As IntPtr = _
        FindWindowEx(myProcess(0).MainWindowHandle, _
        IntPtr.Zero, "EDIT", Nothing)
 
        If Not (hWnd_EditBox = IntPtr.Zero) Then
            Dim SB As New Text.StringBuilder
            Dim BufferSize As Integer = 32768
 
            SB.EnsureCapacity(BufferSize)
 
            SendMessage(hWnd_EditBox, WM_GETTEXT, BufferSize, SB)
            SB.Append("Hallo vbWelt!" + vbNewLine)
            SendMessage(hWnd_EditBox, WM_SETTEXT, BufferSize, SB)
        End If
 
    End Sub
End Class

      Dim hWnd_EditBox As IntPtr = FindWindowEx(myProcess(0).MainWindowHandle, _
        IntPtr.Zero, "EDIT", Nothing)

_________________________________________________________________________________________________
Internet-Adressen innerhalb des (..) WWW beginnen stets mit der Buchstabenfolge http://www. (LG Duisburg, AZ 8 O 219/99)