VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



Type some words in notepad without human intervention using keybd_event API

by Karthikeyan (187 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 14th February 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)

Type some words in notepad without human intervention using keybd_event API

API Declarations


Private Const VK_1 = &H31
Private Const VK_2 = &H32
Private Const VK_3 = &H33
Private Const VK_4 = &H34
Private Const VK_5 = &H35
Private Const VK_6 = &H36
Private Const VK_7 = &H37
Private Const VK_8 = &H38
Private Const VK_9 = &H39
Private Const VK_A = &H41
Private Const VK_B = &H42
Private Const VK_C = &H43
Private Const VK_D = &H44
Private Const VK_E = &H45
Private Const VK_F = &H46
Private Const VK_G = &H47
Private Const VK_H = &H48
Private Const VK_I = &H49
Private Const VK_J = &H4A
Private Const VK_K = &H4B
Private Const VK_L = &H4C
Private Const VK_M = &H4D
Private Const VK_N = &H4E
Private Const VK_O = &H4F
Private Const VK_P = &H50
Private Const VK_Q = &H51
Private Const VK_R = &H52
Private Const VK_S = &H53
Private Const VK_T = &H54
Private Const VK_U = &H55
Private Const VK_V = &H56
Private Const VK_W = &H57
Private Const VK_X = &H58
Private Const VK_Y = &H59
Private Const VK_Z = &H5A
Private Const VK_ADD = &H6B
Private Const VK_ATTN = &HF6
Private Const VK_BACK = &H8
Private Const VK_CANCEL = &H3
Private Const VK_CAPITAL = &H14
Private Const VK_CLEAR = &HC
Private Const VK_CONTROL = &H11
Private Const VK_CRSEL = &HF7
Private Const VK_DECIMAL = &H6E
Private Const VK_DELETE = &H2E
Private Const VK_DIVIDE = &H6F
Private Const VK_DOWN = &H28
Private Const VK_END = &H23
Private Const VK_EREOF = &HF9
Private Const VK_ESCAPE = &H1B
Private Const VK_EXECUTE = &H2B
Private Const VK_EXSEL = &HF8
Private Const VK_F1 = &H70
Private Const VK_F10 = &H79
Private Const VK_F11 = &H7A
Private Const VK_F12 = &H7B
Private Const VK_F13 = &H7C
Private Const VK_F14 = &H7D
Private Const VK_F15 = &H7E
Private Const VK_F16 = &H7F
Private Const VK_F17 = &H80
Private Const VK_F18 = &H81
Private Const VK_F19 = &H82
Private Const VK_F2 = &H71
Private Const VK_F20 = &H83
Private Const VK_F21 = &H84
Private Const VK_F22 = &H85
Private Const VK_F23 = &H86
Private Const VK_F24 = &H87
Private Const VK_F3 = &H72
Private Const VK_F4 = &H73
Private Const VK_F5 = &H74
Private Const VK_F6 = &H75
Private Const VK_F7 = &H76
Private Const VK_F8 = &H77
Private Const VK_F9 = &H78
Private Const VK_HELP = &H2F
Private Const VK_HOME = &H24
Private Const VK_INSERT = &H2D
Private Const VK_LBUTTON = &H1
Private Const VK_LCONTROL = &HA2
Private Const VK_LEFT = &H25
Private Const VK_LMENU = &HA4
Private Const VK_LSHIFT = &HA0
Private Const VK_MBUTTON = &H4
Private Const VK_MENU = &H12
Private Const VK_MULTIPLY = &H6A
Private Const VK_NEXT = &H22
Private Const VK_NONAME = &HFC
Private Const VK_NUMLOCK = &H90
Private Const VK_NUMPAD0 = &H60
Private Const VK_NUMPAD1 = &H61
Private Const VK_NUMPAD2 = &H62
Private Const VK_NUMPAD3 = &H63
Private Const VK_NUMPAD4 = &H64
Private Const VK_NUMPAD5 = &H65
Private Const VK_NUMPAD6 = &H66
Private Const VK_NUMPAD7 = &H67
Private Const VK_NUMPAD8 = &H68
Private Const VK_NUMPAD9 = &H69
Private Const VK_OEM_CLEAR = &HFE
Private Const VK_PA1 = &HFD
Private Const VK_PAUSE = &H13
Private Const VK_PLAY = &HFA
Private Const VK_PRINT = &H2A
Private Const VK_PRIOR = &H21
Private Const VK_PROCESSKEY = &HE5
Private Const VK_RBUTTON = &H2
Private Const VK_RCONTROL = &HA3
Private Const VK_RETURN = &HD
Private Const VK_RIGHT = &H27
Private Const VK_RMENU = &HA5
Private Const VK_RSHIFT = &HA1
Private Const VK_SCROLL = &H91
Private Const VK_SELECT = &H29
Private Const VK_SEPARATOR = &H6C
Private Const VK_SHIFT = &H10
Private Const VK_SNAPSHOT = &H2C
Private Const VK_SPACE = &H20
Private Const VK_SUBTRACT = &H6D
Private Const VK_TAB = &H9
Private Const VK_UP = &H26
Private Const VK_ZOOM = &HFB
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_MAXIMIZE = 3
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 6
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_RESTORE = 9

Rate Type some words in notepad without human intervention using keybd_event API



'Open Start Menu
'keybd_event VK_CONTROL, 0, 0, 0 ' Press Control Key
'keybd_event VK_ESCAPE, 0, 0, 0 'Press Escape Key
'keybd_event VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0 ' Release Escape Key
'keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0 ' Release Control Key
'Sleep 300
Shell "notepad.exe"
dwnd = FindWindow(vbNullString, "Untitled - Notepad")
rval = ShowWindow(dwnd, SW_RESTORE)
keybd_event VK_SHIFT, 0, 0, 0
keybd_event VK_T, 0, 0, 0
keybd_event VK_T, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_H, 0, 0, 0
keybd_event VK_H, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_I, 0, 0, 0
keybd_event VK_I, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_S, 0, 0, 0
keybd_event VK_S, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_SPACE, 0, 0, 0
keybd_event VK_SPACE, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_I, 0, 0, 0
keybd_event VK_I, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_S, 0, 0, 0
keybd_event VK_S, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_SPACE, 0, 0, 0
keybd_event VK_SPACE, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_A, 0, 0, 0
keybd_event VK_A, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_SPACE, 0, 0, 0
keybd_event VK_SPACE, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_M, 0, 0, 0
keybd_event VK_M, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_A, 0, 0, 0
keybd_event VK_A, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_G, 0, 0, 0
keybd_event VK_G, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_I, 0, 0, 0
keybd_event VK_I, 0, KEYEVENTF_KEYUP, 0
Sleep 300
keybd_event VK_C, 0, 0, 0
keybd_event VK_C, 0, KEYEVENTF_KEYUP, 0
End
End Sub
'Visit my Homepage at
'http://www.geocities.com/marskarthik
'http://marskarthik.virtualave.net
'Email: [email protected]

Download this snippet    Add to My Saved Code

Type some words in notepad without human intervention using keybd_event API Comments

No comments have been posted about Type some words in notepad without human intervention using keybd_event API. Why not be the first to post a comment about Type some words in notepad without human intervention using keybd_event API.

Post your comment

Subject:
Message:
0/1000 characters