Problem mit finden von Fenster

[sekte]

Also ich hab folgendes Problem... ich schreib grad ein Programm das soll einen Text an 1 oder mehreren Fenster schicken, also Chatfenster z.b. ICQ, des heißt ich hab 3 Fenster offen und das Programm soll die Fenster erkennen und ich soll auswählen können an alle Fenster oder nur des und des Fenster das es den Text schicken soll. also Fenster findet es und schreibts auch aber es muss maximiert sein... ich wills aber das es auch minimiert geht und es auch bleibt. ich hab dafür folgenden Code

Public Class Form1
    Dim bot As Object
    Dim Abbruch As Boolean

    Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Declare Auto Function FindWindowEx Lib "user32" (ByVal hWnd1 As IntPtr, _
             ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
    Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, _
            ByVal uMsg As Int32, ByVal wParam As IntPtr, ByVal lParam As String) As Integer
    Const WM_SETTEXT As Int32 = &HC

dann hab ich noch folgenden Code

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim hwnd As IntPtr = FindWindow("notepad", Nothing)
        Application.DoEvents()
        ListBox1.Items.Add("Erfolgreich gesendet:" & RichTextBox1.Text)
        SendKeys.Send(RichTextBox1.Text & "{ENTER}")
        Timer1.Stop()
        Timer2.Start()
    End Sub

Also in der einen Listbox wird der Text angezeigt den er abschickt und vom Profil speichern und laden...

ehm des heißt nomal damit ich ja die Fenster auswählen kann brauch ich ne CheckedListBox

jetzt hab ich folgende Frage da ich noch ned so gut bin auf den Gebiet was muss ich daran änder?

mfg manu

 

[sekte]

kann mir da keiner helfen?