[VB | Internet Explorer]

Option Explicit

  Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
  Private Declare Function SendMessageAsLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Private Sub Command1_Click()
  Const EM_SETSEL = &HB1
  Const WM_KEYDOWN = &H100
  Const WM_KEYUP = &H101
  Dim hWnd_IE As Long
  Dim hWnd_tmp As Long
  Dim hWnd_URLEdit As Long
  Dim url As String

  url = "http://www.planet3dnow.de"

  ' Adressleiste finden
  hWnd_IE = FindWindowEx(0, 0, "IEFrame", vbNullString)
  If hWnd_IE Then
    hWnd_tmp = FindWindowEx(hWnd_IE, 0, "WorkerW", vbNullString)
    If hWnd_tmp Then
      hWnd_tmp = FindWindowEx(hWnd_tmp, 0, "RebarWindow32", vbNullString)
      If hWnd_tmp Then
        hWnd_tmp = FindWindowEx(hWnd_tmp, 0, "ComboBoxEx32", vbNullString)
        If hWnd_tmp Then
          hWnd_tmp = FindWindowEx(hWnd_tmp, 0, "ComboBox", vbNullString)
          If hWnd_tmp Then
            hWnd_URLEdit = FindWindowEx(hWnd_tmp, 0, "Edit", vbNullString)
            If hWnd_URLEdit Then
              ' aktuelle Adresse entfernen
              SendMessageAsLong hWnd_URLEdit, EM_SETSEL, 0, 2 ^ 31 - 1
              SendMessageAsLong hWnd_URLEdit, WM_KEYDOWN, vbKeyDelete, 0
              SendMessageAsLong hWnd_URLEdit, WM_KEYUP, vbKeyDelete, 0
              ' neue Adresse senden
              sendText hWnd_URLEdit, url
              ' Enter "drücken"
              SendMessageAsLong hWnd_URLEdit, WM_KEYDOWN, vbKeyReturn, 0
              SendMessageAsLong hWnd_URLEdit, WM_KEYUP, vbKeyReturn, 0
            End If
          End If
        End If
      End If
    End If
  End If
End Sub


Private Sub sendText(ByVal hWnd As Long, ByVal txt As String)
  Const WM_CHAR = &H102
  Dim char As String
  Dim iChar As Long

  If hWnd Then
    ' jedes Zeichen einzeln senden, da SetWindowText() Pointer verwendet und diese nur innerhalb
    ' eines Prozesses gültig sind
    For iChar = 1 To Len(txt)
      char = Mid(txt, iChar, 1)
      SendMessageAsLong hWnd, WM_CHAR, Asc(char), 0
    Next iChar
  End If
End Sub