Visual Basic 2005: Usar SendMessage.

[boluart]

Haber, haber... algun tiempo atras hice lo mismo desde VB6.0, pero he aqui un ejemplo de como hacerlo desde VB.NET 2005:

Código:

Private Declare Ansi Function SendMessage Lib"user32.dll"Alias"SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
Private Declare Function FindWindow Lib"user32.dll"Alias"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function FindWindowEx Lib"user32"Alias"FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Function GetMenu Lib"user32"Alias"GetMenu" (ByVal hwnd As Integer) As Integer
Private Declare Function GetSubMenu Lib"user32"Alias"GetSubMenu" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
Private Declare Function GetMenuItemID Lib"user32"Alias"GetMenuItemID" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
Private Const WM_COMMAND = &H111
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hwnd, hWndMenu, hWndSubMenu, MenuItem As Integer
hwnd = FindWindow("Notepad", vbNullString)
hWndMenu = GetMenu(hwnd)
hWndSubMenu = GetSubMenu(hWndMenu, 0)
MenuItem = GetMenuItemID(hWndSubMenu, 1)
SendMessage(hwnd, WM_COMMAND, MenuItem, vbNullString)
End Sub 

Nota: tener abierto el block de notas