[VB.NET] Knuddels Fenster manipulieren

[iToxic]

Dann lad mal die Projektmappe hoch.

Bei mir kommen da andauernd Fehler und wenn man die korrigiert funktioniert es auch nicht.

Dann zeig uns doch einfach deinen Source oder lad deine Projektmappe hoch und ich korigiere es dir

[!lkay]

Dann zeig uns doch einfach deinen Source oder lad deine Projektmappe hoch und ich korigiere es dir

Ich habe den obigen Code. Immernoch.

Wieso lädt keiner von euch eine Projektmappe hoch? Ist doch der selbe Aufwand.

[!lkay]

Hier der Code den ich habe:

Spoiler:

Imports System.Text
Imports System.Runtime.InteropServices

Public Class Form1

    Const WM_SETTEXT As Integer = &HC
    Const WM_GETTEXT As Integer = &HD
    Const WM_GETTEXTLENGTH As Integer = &HE
    Public Const EM_GETSEL = &HB0
    Public Const WM_CHAR = &H102
    Public Const WM_KEYDOWN As Integer = &H100
    Public Const WM_KEYUP As Integer = &H101

    Dim Hauptfenster As IntPtr = WinApii.FindWindow("SunAwtFrame", titel())
    Dim Control1 As IntPtr = WinApii.FindWindowEx(Hauptfenster, IntPtr.Zero, "SunAwtCanvas", Nothing)
    Dim Control2 As IntPtr = WinApii.FindWindowEx(Control1, IntPtr.Zero, "SunAwtCanvas", Nothing)
    Dim Control3 As IntPtr = WinApii.FindWindowEx(Control2, IntPtr.Zero, "SunAwtCanvas", Nothing)
    Dim Textboxx As IntPtr = WinApii.FindWindowEx(Control3, IntPtr.Zero, "Edit", Nothing)
    Private Const BM_CLICK As Long = &HF5&

    'Auslesen-Funktion:'

    Private Function titel() As String
        Dim Titell As String = "Title not found."
        Dim pl As Process() = Process.GetProcesses
        For Each p As Process In pl
            If p.MainWindowTitle.StartsWith("Channel") Then Titell = p.MainWindowTitle
        Next
        Return Titell
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Text in Knuddels Editbox schreiben..'
        WinApii.SendMessage(Textboxx, WM_SETTEXT, CType(0, IntPtr), TextBox1.Text)
        'Fokus auf die Knuddels Editbox setzen'
        WinApii.SendMessage(Textboxx, &H7, CType(0, IntPtr), TextBox1.Text)
        'Threader kurz warten lassen...'
        Threading.Thread.Sleep(10)
        'Taste simmuliern...'
        WinApii.PostMessage(CInt(Textboxx), WM_KEYDOWN, &HD, &H1C0001)
        'Angegeben dass es sich um ein Enter druck handelt..'
        WinApii.PostMessage(CInt(Textboxx), WM_CHAR, &HD, &H1C0001)
        'Threader kurz warten lassen...'
        Threading.Thread.Sleep(10)
        'Enter Taste losgelassen...'
        WinApii.PostMessage(CInt(Textboxx), WM_KEYUP, &HD, &HC01C0001)
        'Fokus aufheben..'
        WinApii.SendMessage(Textboxx, &H8, CType(0, IntPtr), TextBox1.Text)
    End Sub
End Class



Public Class WinApii
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Public Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowTitle As String) As IntPtr
    End Function

    Public Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Integer) As Integer
    Public Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As IntPtr, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer

    'FindWindowEx'
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Public Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
                      ByVal childAfter As IntPtr, _
                      ByVal lpClassName As String, _
                      ByVal lpWindowTitle As String) As IntPtr
    End Function


    Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer


    'Fenster suchen'
    Public Function enumWindowsProc(ByVal hWnd As IntPtr, ByVal lpParam As IntPtr) As String
        Dim len As Integer
        ' get Title
        Dim title As String = Space(255)
        len = GetWindowText(hWnd, title, 255)
        title = title.Substring(0, len)
        ' get className
        Dim className As String = Space(255)
        len = GetClassName(hWnd, className, 255)
        className = className.Substring(0, len)
        ' format output
        Dim formattedOutput As String = String.Format("{0,-10} {1,-50} {2} ", hWnd, className, title)

        If title.StartsWith("Channel") Then
            Return className & "" & title
        Else
            Return Nothing
        End If
    End Function

    'SendMessageByInt (um die Textlänge auszulesen)'
    Public Declare Function SendMessageByInt Lib "user32.dll" Alias "SendMessageA" _
      (ByVal hWnd As IntPtr, _
      ByVal uMsg As Integer, _
      ByVal wParam As Integer, _
      ByVal lParam As Integer) As Integer

    'SendMessageByString'
    Public Declare Function SendMessageByString Lib "user32.dll" Alias "SendMessageA" _
         (ByVal hWnd As IntPtr, _
         ByVal uMsg As Integer, _
         ByVal wParam As Integer, _
         ByVal lParam As StringBuilder) As Integer


    'SendMessage'
    Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _
      (ByVal handle As IntPtr, ByVal uMsg As Integer, _
       ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr



End Class

Funktioniert nicht. Der sendet das nur an die Box aber nicht in den Chat.

[!lkay]

Wäre echt nett wenn sich das jemand mal anschauen könnte und aktualisieren könnte.

[soulreafer]

Würde das auch nochma gebrauchen können. Aber es geht nicht und ich finde das Problem nicht.
Kann da nicht ma jemand drüber schauen pls. ?

[uncopyable]

Hallo,

einfach zwei mal Enter an die Textbox schicken, liegt wohl an der neuen Textbox von Knuddels

'ersetzen '
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'Text in Knuddels Editbox schreiben..'
        Win32API.SendMessage(Textbox1, WM_SETTEXT, 0, TextBox1.Text)
        'Fokus auf die Knuddels Editbox setzen'
        Win32API.SendMessage(Textbox1, &H7, 0, TextBox1.Text)
        'Threader kurz warten lassen...'
        Threading.Thread.Sleep(10)
        'Taste simmuliern...'
        Win32API.PostMessage(Textbox1, WM_KEYDOWN, &HD, &H1C0001)
        'Angegeben dass es sich um ein Enter druck handelt..'
        Win32API.PostMessage(Textbox1, WM_CHAR, &HD, &H1C0001)
        'Threader kurz warten lassen...'
        Threading.Thread.Sleep(10)
        'Enter Taste losgelassen...'
        Win32API.PostMessage(Textbox1, WM_KEYUP, &HD, &HC01C0001)
        'Fokus aufheben..'
        Win32API.SendMessage(Textbox1, &H8, 0, TextBox1.Text)
    End Sub


' mit dem '
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'Text in Knuddels Editbox schreiben..'
        Win32API.SendMessage(Textbox1, WM_SETTEXT, 0, TextBox1.Text)
        'Fokus auf die Knuddels Editbox setzen'
        Win32API.SendMessage(Textbox1, &H7, 0, TextBox1.Text)
        'Threader kurz warten lassen...'
        Threading.Thread.Sleep(10)
        'Taste simmuliern...'
        Win32API.PostMessage(Textbox1, WM_KEYDOWN, &HD, &H1C0001)
        Threading.Thread.Sleep(10)
        Win32API.PostMessage(Textbox1, WM_KEYDOWN, &HD, &H1C0001)
        'Angegeben dass es sich um ein Enter druck handelt..'
        Win32API.PostMessage(Textbox1, WM_CHAR, &HD, &H1C0001)
        'Threader kurz warten lassen...'
        Threading.Thread.Sleep(10)
        'Enter Taste losgelassen...'
        Win32API.PostMessage(Textbox1, WM_KEYUP, &HD, &HC01C0001)
        'Fokus aufheben..'
        Win32API.SendMessage(Textbox1, &H8, 0, TextBox1.Text)
    End Sub 

[soulreafer]

der findet kein aktives fenster handle beim Klick auf Button 1
geht leider immernoch nicht :/

[Diebspiel]

Unter Java 7 wird aus mysteriösen Gründen trotzdem kein ENTER gesendet - Text wird gesetzt, mehr passiert aber auch nicht. Auch bei "2x ENTER", eben getestet.
Bin schon länger am Probieren, aber hab noch keine Lösung gefunden

[soulreafer]

Unter Java 7 wird aus mysteriösen Gründen trotzdem kein ENTER gesendet - Text wird gesetzt, mehr passiert aber auch nicht. Auch bei "2x ENTER", eben getestet.
Bin schon länger am Probieren, aber hab noch keine Lösung gefunden

könntest du mir deinen derzeitigen stand geben?
ich bekomm nichtmal das fenster handle gefunden. keine ahnung was noch falsch ist und ich lappen hab alles was mit knuddels war und meine alten projekte damals gelöscht.

[soulreafer]

will nicht funzen -.-