Sendkey an Fenster

  • VB.NET

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von RushDen.

    Sendkey an Fenster

    Hallo
    wie man Keys sendet weiß ich, allerdings suche ich eine Möglichkeit einen Tastendruck an ein Fenster zu senden.
    Suche nun seit ner halben Stunde aber habe nichts hilfreiches gefunden.
    Kann mir evtl. jemand von euch dabei helfen?
    ich würde gern die F2 Taste an ein bestimmtes Fenster senden.

    Hoffe jemand kann helfen

    Gruß
    shocK

    Dann haste wohl Google falsch bedient.


    War da etwa nix dabei?
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Was daran hilft dir nicht? Hast du wenigstens einen Ansatz, denn du verfolgst oder für verfolgungswürdig hälst?

    Stichwort SendMessage, WM_KeyDown.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Lukas“ ()

    Das sind bestimmte Konstanten der WinAPI. WM_KEYDOWN sagt SendMessage beispielsweise, dass ein Tastendruck erfolgen soll. Die sollte man sich von irgendwoher besorgen - MSDN sollte die in der Regel haben. Dahinter stecken sonst nur nichtssagende Zahlen.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Lukas schrieb:

    Das sind bestimmte Konstanten der WinAPI. WM_KEYDOWN sagt SendMessage beispielsweise, dass ein Tastendruck erfolgen soll.


    Das weiß ich, allerdings weiß ich nicht was ich damit nun machen soll:

    VB.NET-Quellcode

    1. Dim x As Integer = FindWindow("fensterhandle", ft )


    Was genau muss ich da eintragen? Den Fenstertitle oder was?

    Zunächst einmal sollte man sich bei WinAPI-Sachen immer die korrekte Signatur holen - da kann man sich oft nicht drauf verlassen, was man da so findet. Empfehlbar hier ist pinvoke.

    ->pinvoke.net/default.aspx/user32.findwindow

    VB.NET-Quellcode

    1. FindWindow(String.Empty, "Fenstertitel")

    müsste gehen, soweit ich das noch in Erinnerung habe.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Habe den code von meinem letzten Post mal eingebaut und bekomme aber folgende Fehler:




    Mein Code:

    VB.NET-Quellcode

    1. Imports System.Text
    2. Imports System.Runtime.InteropServices
    4. Public Class Form1
    5. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As StringBuilder) As Integer
    7. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer
    8. Public Declare Function SendMessage2 Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
    10. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    11. Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As IntPtr, ByVal hWndChildAfter As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As IntPtr
    15. Public Const EM_GETSEL = &HB0
    16. Public Const WM_GETTEXT = &HD
    17. Public Const WM_GETTEXTLENGTH = &HE
    18. Public Const WM_CHAR = &H102
    19. Public Const WM_SETTEXT = &HC
    20. Public Const WM_KEYDOWN As Integer = &H100
    21. Public Const WM_KEYUP As Integer = &H101
    23. Public Shared Function GetChildWindows(ByVal ParentHandle As IntPtr) As IntPtr()
    25. Dim ChildrenList As New List(Of IntPtr)
    27. Dim ListHandle As GCHandle = GCHandle.Alloc(ChildrenList)
    29. Try
    31. EnumChildWindows(ParentHandle, AddressOf EnumWindow, GCHandle.ToIntPtr(ListHandle))
    33. Finally
    35. If ListHandle.IsAllocated Then ListHandle.Free()
    37. End Try
    39. Return ChildrenList.ToArray
    41. End Function
    43. Public Shared Function EnumWindow(ByVal Handle As IntPtr, ByVal Parameter As IntPtr) As Boolean
    45. Dim ChildrenList As List(Of IntPtr) = GCHandle.FromIntPtr(Parameter).Target
    47. If ChildrenList Is Nothing Then Throw New Exception("GCHandle Target could not be cast as List(Of IntPtr)")
    49. ChildrenList.Add(Handle)
    51. Return True
    53. End Function
    55. Function FindedeinFenster(ByVal ft As String) As IntPtr
    57. 'FindXfire = FindWindow("ChatSkinWnd", vbNullString)
    58. Try
    60. Dim x As Integer = FindWindow("fensterhandle", ft)
    61. Return x
    62. Catch
    63. 'fehler meldung
    64. End Try
    65. End Function
    67. Public Function sfi(ByVal handle As IntPtr) As String
    68. If Not handle = 0 Then
    69. For Each child As IntPtr In GetChildWindows(handle)
    70. Dim sClassName As New System.Text.StringBuilder("", 256)
    71. Call GetClassName(child, sClassName, 256)
    72. SendMessage(child, WM_KEYDOWN, 13, 1)
    73. SendMessage(child, WM_KEYUP, 13, 1)
    74. Next
    75. End If
    76. End Function
    79. End Class

    Was hast du dir denn da kopiert - weißt du, was das macht? Gut, ich nämlich auch nicht.

    Erstmal mit FindWindow das Fenster raussuchen war genau der richtige Ansatz. Wenn du dein Handle hast, kann man weitersehen.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    shocK schrieb:

    Hoffe jemand kann helfen
    SenKey oder SendMessage?
    SendKey() Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @shocK:

    RodFromGermany schrieb:

    SenKey oder SendMessage?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    shocK schrieb:

    SendMessage benutzen
    Du musst Dir das FensterHandle besorgen:

    VB.NET-Quellcode

    1. pr = New Process
    2. pr.StartInfo.FileName = "Notepad.exe"
    3. pr.Start()
    4. pr.WaitForInputIdle(500)
    5. Dim hh = pr.MainWindowHandle
    7. SendMessage3(hh, &HC, 0, "bla")
    So wird allerdings nur die Titelzeile des Fensters geändert.
    Wenn Du das Edit-Feld des Notepads beschreiben willst, musst Du dieses Child-Fenster mit Spy++ identifizieren und Dir dann mit EnumWindows dessen Handle besorgen.
    Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    shocK schrieb:

    ich will lediglich
    Entschuldige bitte, dass ich den Code nicht für Dich aufbereitet habe. Aber rrgend was wirst Du schon dabei gelernt haben.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Sorry, dass ich jetzt OT werden muss, aber es geht mir schon den ganzen Thread hier durch den Kopf.

    "Theorie brauche ich nicht, ich will es nur zum Laufen bekommen."

    Einfach mal ein wenig durch den Kopf gehen lassen und umsetzen - dann ist man eventuell auch schneller, zumindest stressfreier bei seiner Lösung angekommen.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

Facebook
Telefonspende