VBScripts/Fun.vbs at master · simplescripter/VBScripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
'-----------------------------------------------------------------
'
' Example code demonstrating the process of sending keystrokes
' to an application.
'
' Shawn Stugart
'=================================================================

set WshShell = CreateObject("WScript.Shell")

WshShell.Run "iexplore.exe"
WScript.Sleep 1000

While WshShell.AppActivate("Microsoft Internet Explorer") = FALSE
	wscript.sleep 1000
Wend

WshShell.AppActivate "Microsoft Internet Explorer"
WScript.Sleep 2000

WshShell.SendKeys "%F"
WScript.Sleep 200

WshShell.SendKeys "o"
WScript.Sleep 200

WshShell.SendKeys "www.yahoo.com"

WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 1500

WshShell.SendKeys "%F"
WScript.Sleep 200

WshShell.SendKeys "o"
WScript.Sleep 200

WshShell.SendKeys "www.espn.com"

WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 5500

WshShell.SendKeys "%F"
WScript.Sleep 200

WshShell.SendKeys "o"
WScript.Sleep 200

WshShell.SendKeys "www.nhcolorado.com"

WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 1500