• Home
 · 
• Windows System Services
 · 
• Manual keying.when this program gets executed,it automatically presses the start menu then proceeds

Manual keying.when this program gets executed,it automatically presses the start menu then proceeds

Manual keying.when this program gets executed,it automatically presses the start menu then proceeds.I have done according to my system

API Declarations


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) 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 WM_SYSCOMMAND = &H112
Private Const SC_TASKLIST = &HF130&



Rate Manual keying.when this program gets executed,it automatically presses the start menu then proceeds

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_Load()
Call start_click
End Sub

Private Sub start_click()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_TASKLIST, &O0
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{UP 7}"
WshShell.SendKeys "{RIGHT}"
WshShell.SendKeys "{RIGHT}"
WshShell.SendKeys "{DOWN 2}"
WshShell.SendKeys "{RIGHT 1}"
WshShell.SendKeys "{DOWN 5}"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"

WshShell.SendKeys "{UP 7}"
WshShell.SendKeys "{RIGHT}"
WshShell.SendKeys "{RIGHT}"
WshShell.SendKeys "{N}"

WshShell.SendKeys "{H}"
WshShell.SendKeys "{O}"
WshShell.SendKeys "{W}"
WshShell.SendKeys "{BS}"
WshShell.SendKeys "{I}"
WshShell.SendKeys "{S}"
WshShell.SendKeys "{BS}"
WshShell.SendKeys "{T}"
WshShell.SendKeys "{H}"
WshShell.SendKeys "{I}"
WshShell.SendKeys "{S}"

End Sub