Scribd
Upload
24 views7 pages

VBScript Sleep and SendKeys Example

The document contains code that repeatedly toggles the Num Lock key on a system using the Windows Script Host. An object is created to access the keyboard and send keystrokes. In a loop, the Num Lock key is pressed, there is a short delay, and then the key is pressed again before a long delay. This cycle is repeated many times.

Uploaded by

Kafeel Ahmed Khan
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as XLSX, PDF, TXT or read online on Scribd
24 views7 pages

VBScript Sleep and SendKeys Example

The document contains code that repeatedly toggles the Num Lock key on a system using the Windows Script Host. An object is created to access the keyboard and send keystrokes. In a loop, the Num Lock key is pressed, there is a short delay, and then the key is pressed again before a long delay. This cycle is repeated many times.

Uploaded by

Kafeel Ahmed Khan
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as XLSX, PDF, TXT or read online on Scribd

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

# C2 General
Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")

# C2 General
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")

# C2 General
i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

# C2 General
Set objShell = [Link]("[Link]")
i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

# C2 General
Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)

# C2 General
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

Dim objResult

Set objShell = [Link]("[Link]")


i=1
Do While i=1
objResult = [Link]("{NUMLOCK}")
[Link](200)
objResult = [Link]("{NUMLOCK}")
[Link](6000)

Loop

# C2 General

You might also like