Knuddels TextBox (Java Basis)

[!lkay]

Hallo..

Und zwar geht es um die Knuddels TextBox, die man im Javachat Knuddels hat.

Ich bekomme zwar Text in die Textbox gesendet, dieser wird aber nicht in den Chat gesendet.
Bis vor ein paar Monaten hat das noch mit dem alten Code den ich hatte funktioniert,
jetzt haben die es anscheinend wieder geändert.

Kann mir da jemand was zu sagen?

Class KnuddelsJavaTextBox

        <DllImport("User32.Dll")> Private Shared Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr

        End Function

        <DllImport("User32.Dll")> Private Shared Function FindWindowEx(parentHandle As IntPtr, childAfter As IntPtr, className As String, windowTitle As IntPtr) As IntPtr

        End Function

        <DllImport("User32.Dll")> Private Shared Function SendMessage(hWnd As IntPtr, Msg As UInt32, wParam As IntPtr, lParam As String) As IntPtr

        End Function

        <DllImport("User32.Dll")> Private Shared Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As Integer, lParam As StringBuilder) As Integer

        End Function

        <DllImport("User32.Dll")> Private Shared Function PostMessage(hWnd As Integer, msg As UInteger, wParam As UInteger, lParam As Integer) As IntPtr

        End Function

        <DllImport("User32.Dll")> Private Shared Function PostMessage(hWnd As Integer, msg As UInteger, wParam As UInteger, lParam As UInteger) As IntPtr

        End Function

        Public Shared Sub Send(Text As String)

            Dim Name As String = String.Empty

            Name = Process.GetProcesses.Single(Function(c) c.MainWindowTitle.Contains("Channel")).MainWindowTitle

            Dim Hwndd As IntPtr = FindWindow("SunAwtFrame", Name)

            Hwndd = FindWindowEx(Hwndd, IntPtr.Zero, "RichEdit20W", IntPtr.Zero)



            SendMessage(Hwndd, CInt(&HC), IntPtr.Zero, Text) 'SETTEXT

            SendMessage(Hwndd, CUInt(&H7), CType(1048576, IntPtr), String.Empty) 'SETFOCUS

            Thread.Sleep(10)

            PostMessage(CInt(Hwndd), CUInt(&H201), &HD, &H1C0001)

            PostMessage(CInt(Hwndd), CUInt(&H202), &HD, &H1C0001)

            PostMessage(CInt(Hwndd), CUInt(&H100), &HD, &H1C0001)

            PostMessage(CInt(Hwndd), CUInt(&H102), &HD, &H1C0001)

            Thread.Sleep(10)

            PostMessage(CInt(Hwndd), CUInt(&H101), CUInt(&HD), CUInt(&HC01C0001UI))

            SendMessage(Hwndd, CUInt(&H8), CType(1048576, IntPtr), String.Empty)



        End Sub

    End Class

Aufruf:

KnuddelsJavaTextBox.Send("Hallo")

[SeBi]

Durch die unzähligen Java Updates musst du das Fenster erst in den Fordergrund holen (geht auch über die Windows API) und dann den Befehl für den Char Enter senden, wurde hier glaube ich vor etwas längerer Zeit auch schon besprochen