Seite 2 von 3 Erste 123 Letzte
  1. #11
    Avatar von iToxic
    Registriert seit
    18.11.2011
    Beiträge
    918
    Thanked 1.773 Times in 913 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren

    Zitat Zitat von NightMareG Beitrag anzeigen
    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


  2. #12

    Registriert seit
    19.11.2011
    Beiträge
    2.128
    Thanked 1.936 Times in 1.180 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren

    Zitat Zitat von iToxic Beitrag anzeigen
    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.

  3. #13

    Registriert seit
    19.11.2011
    Beiträge
    2.128
    Thanked 1.936 Times in 1.180 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren

    Hier der Code den ich habe:

    Spoiler:
    Code:
    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.

  4. The Following User Says Thank You to !lkay For This Useful Post:

    Mixxah (26.05.2012)

  5. #14

    Registriert seit
    19.11.2011
    Beiträge
    2.128
    Thanked 1.936 Times in 1.180 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren

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

  6. The Following User Says Thank You to !lkay For This Useful Post:

    soulreafer (07.10.2012)

  7. #15
    Avatar von soulreafer
    Registriert seit
    07.10.2012
    Beiträge
    175
    Thanked 64 Times in 35 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren

    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. ?

  8. #16
    Avatar von uncopyable
    Registriert seit
    19.11.2011
    Beiträge
    282
    Thanked 235 Times in 120 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren

    Hallo,

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

    PHP-Code:

    'ersetzen '
    Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles Button2.Click
            
    'Text in Knuddels Editbox schreiben..'
            
    Win32API.SendMessage(Textbox1WM_SETTEXT0TextBox1.Text)
            
    'Fokus auf die Knuddels Editbox setzen'
            
    Win32API.SendMessage(Textbox1, &H70TextBox1.Text)
            
    'Threader kurz warten lassen...'
            
    Threading.Thread.Sleep(10)
            
    'Taste simmuliern...'
            
    Win32API.PostMessage(Textbox1WM_KEYDOWN, &HD, &H1C0001)
            
    'Angegeben dass es sich um ein Enter druck handelt..'
            
    Win32API.PostMessage(Textbox1WM_CHAR, &HD, &H1C0001)
            
    'Threader kurz warten lassen...'
            
    Threading.Thread.Sleep(10)
            
    'Enter Taste losgelassen...'
            
    Win32API.PostMessage(Textbox1WM_KEYUP, &HD, &HC01C0001)
            
    'Fokus aufheben..'
            
    Win32API.SendMessage(Textbox1, &H80TextBox1.Text)
        
    End Sub


    ' mit dem '
    Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles Button2.Click
            
    'Text in Knuddels Editbox schreiben..'
            
    Win32API.SendMessage(Textbox1WM_SETTEXT0TextBox1.Text)
            
    'Fokus auf die Knuddels Editbox setzen'
            
    Win32API.SendMessage(Textbox1, &H70TextBox1.Text)
            
    'Threader kurz warten lassen...'
            
    Threading.Thread.Sleep(10)
            
    'Taste simmuliern...'
            
    Win32API.PostMessage(Textbox1WM_KEYDOWN, &HD, &H1C0001)
            
    Threading.Thread.Sleep(10)
            
    Win32API.PostMessage(Textbox1WM_KEYDOWN, &HD, &H1C0001)
            
    'Angegeben dass es sich um ein Enter druck handelt..'
            
    Win32API.PostMessage(Textbox1WM_CHAR, &HD, &H1C0001)
            
    'Threader kurz warten lassen...'
            
    Threading.Thread.Sleep(10)
            
    'Enter Taste losgelassen...'
            
    Win32API.PostMessage(Textbox1WM_KEYUP, &HD, &HC01C0001)
            
    'Fokus aufheben..'
            
    Win32API.SendMessage(Textbox1, &H80TextBox1.Text)
        
    End Sub 


    while( behappy() ) { code(); }

  9. #17
    Avatar von soulreafer
    Registriert seit
    07.10.2012
    Beiträge
    175
    Thanked 64 Times in 35 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren

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

  10. #18
    Avatar von Diebspiel
    Registriert seit
    18.11.2011
    Beiträge
    311
    Thanked 191 Times in 102 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren

    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

  11. The Following 2 Users Say Thank You to Diebspiel For This Useful Post:

    Dbzfreak1337 (07.10.2012)

  12. #19
    Avatar von soulreafer
    Registriert seit
    07.10.2012
    Beiträge
    175
    Thanked 64 Times in 35 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren

    Zitat Zitat von Diebspiel Beitrag anzeigen
    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.

  13. #20
    Avatar von soulreafer
    Registriert seit
    07.10.2012
    Beiträge
    175
    Thanked 64 Times in 35 Posts

    Standard AW: [VB.NET] Knuddels Fenster manipulieren



    will nicht funzen -.-

Seite 2 von 3 Erste 123 Letzte

Ähnliche Themen

  1. Knuddels schließt sich immer bei neuen Fenster
    Von Cracker im Forum Fragen & Probleme
    Antworten: 4
    Letzter Beitrag: 14.01.2013, 21:51
  2. [CSS] Windows-Style Fenster
    Von Comu im Forum CSS
    Antworten: 0
    Letzter Beitrag: 28.07.2012, 21:38
  3. USA manipulieren Al Kaida Website!
    Von Waterpolo im Forum RealLife News
    Antworten: 4
    Letzter Beitrag: 24.05.2012, 14:05
  4. Knuddels Applet bearbeiten / manipulieren
    Von Salvos im Forum Knuddels Programmierung
    Antworten: 14
    Letzter Beitrag: 17.12.2011, 20:21
  5. /code Fenster neu
    Von helfen im Forum Knuddels-News
    Antworten: 10
    Letzter Beitrag: 26.11.2011, 14:36
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.