by Martin Anbu Selvan (18 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 14th May 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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&
VBcoders
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
No comments have been posted about Manual keying.when this program gets executed,it automatically presses the start menu then proceeds. Why not be the first to post a comment about Manual keying.when this program gets executed,it automatically presses the start menu then proceeds.
