title image


Smiley Re: Frage nur für erfahrene Meister !!!
Frage:Wie kriege ich mit VB-Code dazu, dass der Windows-Startbutton angeklickt wird?

 

Antwort:Normalerweise findet man im Startmenü unter "Start -> Programme" eine Verknüpfung zum Windows-Explorer.

Man kann unter Win98 / 2K / XP die Anordnung (Reihenfolge) der Verknüpfungen im Startmenü festlegen.

Sorge dafür, daß sich der Eintrag "Windows-Explorer" an der untersten Stelle unter Start -> Programme befindet.

Erstelle ein neues Projekt und füge der standardmäßig erstellten Form1 zwei Schaltflächen (Command1 und Command2) hinzu.

Code:

Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _( _    ByVal hwnd As Long, _    ByVal wMsg As Long, _    ByVal wParam As Long, _    lParam As Any _) As Long Private Const HWND_BROADCAST = -1Private Const WM_SYSCOMMAND = &H112 Private Const SC_TASKLIST = &HF130& Private Sub Form_Load()    Command1.Caption = "Beispiel 1"    Command2.Caption = "Beispiel 2"End Sub'-------------------------------------------------- Private Sub Command1_Click()    ' Künstlerpause    Sleep 500     ' "Start"    SendMessage HWND_BROADCAST, MMain.WM_SYSCOMMAND, SC_TASKLIST, 0&    Sleep 500     ' "Programme"    SendKeys "P", True    Sleep 500     ' "Windows-Explorer" bzw. unterster Eintrag    SendKeys "{UP}", True    Sleep 500     ' Eingabetaste.    SendKeys "{ENTER}", TrueEnd Sub'-------------------------------------------------- Private Sub Command2_Click()    ' Künstlerpause    Sleep 500     ' "Start"    SendMessage HWND_BROADCAST, MMain.WM_SYSCOMMAND, SC_TASKLIST, 0&    Sleep 500     ' "Ausführen"    SendKeys "u", True    Sleep 500     ' und nun hübsch langsam zum staunen:    SendKeys "N", True: Sleep 500    SendKeys "o", True: Sleep 500    SendKeys "t", True: Sleep 500    SendKeys "e", True: Sleep 500    SendKeys "p", True: Sleep 500    SendKeys "a", True: Sleep 500    SendKeys "d", True: Sleep 500    SendKeys ".", True: Sleep 500    SendKeys "e", True: Sleep 500    SendKeys "x", True: Sleep 500    SendKeys "e", True: Sleep 500    SendKeys "{ENTER}", True     ' Schneller geht das ganze natürlich mit:    'SendKeys "Notepad.exe{ENTER}"End Sub'-------------------------------------------------- 


Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: