-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path180608_HI.vbs
79 lines (70 loc) · 1.66 KB
/
180608_HI.vbs
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Set wshShell =wscript.CreateObject("WScript.Shell")
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{SCROLLLOCK}"
wscript.sleep 100
wshshell.sendkeys "{SCROLLLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
WshShell.Run "%windir%\notepad.exe"
wscript.sleep 100
WshShell.AppActivate "Notepad"
wscript.sleep 100
wshshell.sendkeys "{H}"
wscript.sleep 200
wshshell.sendkeys "{E}"
wscript.sleep 300
wshshell.sendkeys "{L}"
wscript.sleep 200
wshshell.sendkeys "{L}"
wscript.sleep 200
wshshell.sendkeys "{O}"
wscript.sleep 100
wshshell.sendkeys "{?}"
wscript.sleep 200
wshshell.sendkeys "{?}"
wscript.sleep 500
wshshell.sendkeys "^S"
wscript.sleep 100
wshshell.sendkeys "{ENTER}"
wscript.sleep 900
wshshell.sendkeys "{T}"
wscript.sleep 400
wshshell.sendkeys "{o}"
wscript.sleep 400
wshshell.sendkeys "{.}"
wscript.sleep 400
wshshell.sendkeys "{Y}"
wscript.sleep 400
wshshell.sendkeys "{o}"
wscript.sleep 400
wshshell.sendkeys "{u}"
wscript.sleep 400
wshshell.sendkeys "{ENTER}"
wscript.sleep 900
Select Case MsgBox("메모장을 닫을까요?", vbYesNo, "메모장")
Case vbYes
wshshell.sendkeys "%{F4}"
Case vbNo
MsgBox "그럼 알아서 닫으시길..."
End Select
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 500
MsgBox "메롱:P"