Ввод данных в окно стороннего приложения - Visual Basic .NET

Формулировка задачи:

В инете искал но не нашел работающего кода.

                    Листинг программы
                
 
                        
                          
                    
 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 Const WM_CLOSE = &H10
    Public Const WM_QUIT = &H12
 
   ***********************************
Dim hw
        hw = FindWindow(vbNullString, "Password - t" & Chr(0))
        PostMessage(hW, WM_QUIT, 0, 0)

. Вот такой простой пример. Но выдает ошибка. Подскажите в чем дело? Я хочу заполнить поле пароля и нажат на кнопку ОК. Пароль знаю

Решение задачи: «Ввод данных в окно стороннего приложения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
<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 PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
End Function