Windows Taste + R

Dieter(Drummer) · 2021-03-20T17:27:00+00:00

Guten Tag VBA SpezialistenInnen, mit dem Code kann ich die Taste R aufrufen. Sub WinTaste() 'Win + R Application.SendKeys "^+{R}" End Sub Mit fehlt aber der Aufruf der Windows Taste +Taste R. Wie muss der Code lauten, damit die Windows Taste + R aufgerufen wird? Mit der Bitte um Hilfe grüßt, Dieter(Drummer)

Guten Morgen Nepumuk,
Danke nochmal für deine Hilfe in Sachen Code für Win+R.
Wie kann ich das kopierte aus dem Zwischenspeicher direkt nach Aufruf von Win+R einfügen, um z.B. den Gerätemanager direkt aufzurufen?
Zwischenspeicher Aufruf und einfügen geht ja mit:


Application.SendKeys "^+{V}"

So wie ich es am Ende im Code eingefügt habe, geht es nicht.
Gerätemanager Aufruf geht mit: Win+R und Eingabe "devmgmt.msc".
Kannst du bitte nochmal helfen?
Gruß, Dieter(Drummer)
'Herber: von Nepumuk am 20.03.2021 17:42:31
'Win+R

Private Declare PtrSafe Sub keybd_event Lib "user32.dll" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As LongPtr)
Private Const KEYEVENTF_KEYDOWN As Long = &H0
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const VK_WIN As Long = &H5B
Public Sub WinR()
Call keybd_event(VK_WIN, 1, KEYEVENTF_KEYDOWN, 0)
Call keybd_event(vbKeyR, 1, KEYEVENTF_KEYDOWN, 0)
Call keybd_event(vbKeyR, 1, KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_WIN, 1, KEYEVENTF_KEYUP, 0)
Application.SendKeys "^+{V}"
End Sub

Hallo Dieter,
teste mal:

Option Explicit

Private Declare PtrSafe Sub keybd_event Lib "user32.dll" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As LongPtr)
Private Declare PtrSafe Function FindWindowA Lib "user32.dll" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function FindWindowExA Lib "user32.dll" ( _
    ByVal hWnd1 As LongPtr, _
    ByVal hWnd2 As LongPtr, _
    ByVal lpsz1 As String, _
    ByVal lpsz2 As String) As LongPtr
Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)
Private Declare PtrSafe Function SendMessageA Lib "user32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal wMsg As Long, _
    ByVal wParam As LongPtr, _
    ByVal lParam As Any) As LongPtr

Private Const KEYEVENTF_KEYDOWN As Long = &H0
Private Const KEYEVENTF_KEYUP As Long = &H2

Private Const VK_WIN As Long = &H5B

Private Const WM_SETTEXT As Long = &HC

Private Const BM_CLICK = &HF5

Private Const GC_CLASSNAMEMSDIALOG As String = "#32770"
Private Const GC_CLASSNAMECOMBOBOX As String = "ComboBox"
Private Const GC_CLASSNAMEEDIT As String = "Edit"
Private Const GC_CLASSNAMEBUTTON As String = "Button"

Public Sub WinR()

    Dim lngptrDialogHandle As LongPtr, lngptrComboBoxHandle As LongPtr
    Dim lngptrEditBoxHandle As LongPtr, lngButtonHandle As LongPtr

    Call keybd_event(VK_WIN, 1, KEYEVENTF_KEYDOWN, 0)
    Call keybd_event(vbKeyR, 1, KEYEVENTF_KEYDOWN, 0)
    Call keybd_event(vbKeyR, 1, KEYEVENTF_KEYUP, 0)
    Call keybd_event(VK_WIN, 1, KEYEVENTF_KEYUP, 0)

    DoEvents

    lngptrDialogHandle = FindWindowA(GC_CLASSNAMEMSDIALOG, "Ausführen")

    lngptrComboBoxHandle = FindWindowExA(lngptrDialogHandle, 0, GC_CLASSNAMECOMBOBOX, vbNullString)

    Call Sleep(100)

    lngptrEditBoxHandle = FindWindowExA(lngptrComboBoxHandle, 0, GC_CLASSNAMEEDIT, vbNullString)

    Call SendMessageA(lngptrEditBoxHandle, WM_SETTEXT, 0, "devmgmt.msc")

    lngButtonHandle = FindWindowExA(lngptrDialogHandle, 0, GC_CLASSNAMEBUTTON, "OK")

    Call SendMessageA(lngButtonHandle, BM_CLICK, 0&, ByVal 0&)

End Sub

Gruß
Nepumuk

Forumthread: Windows Taste + R

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Windows Taste + R: VBA-Methoden zur Automatisierung

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)