VB.NET-Quellcode
- Public Class Form1
- Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
- ByVal lpClassName As String, _
- ByVal lpWindowName As String) As IntPtr
- Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
- ByVal hWndParent As Int32, _
- ByVal hWndChildAfter As Int32, _
- ByVal lpszClass As String, _
- ByVal lpszWindow As String) As Int32
- Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" ( _
- ByVal hwnd As Int32, _
- ByVal wMsg As Int32, _
- ByVal wParam As Int32, _
- ByVal lParam As Int32) As Int32
- Private Const WM_CHAR As Int32 = &H102
- Private hwnd As IntPtr
- Private f As IntPtr
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- hwnd = FindWindow(vbNullString, "Unbenannt - Editor")
- f = FindWindowEx(hwnd, 0, "Edit", vbNullString)
- End Sub
- Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
- PostMessage(f, WM_CHAR, Asc(e.KeyChar), 0)
- End Sub
- End Class