写程序麻烦，还要传上去，幸好VBS每台服务器应该都可以运行的吧，很少会又禁止的
使用SendKeys搞定
例如呼出Cain使用如下脚本：）
Set WshShell= Wscript.CreateObject("Wscript.Shell")
Wscript.Sleep 1500
WshShell.SendKeys "%{PGUP}"
以下位SendKeys的相关使用方法等
SendKeys Method
Description
The SendKeys method is used to send keystrokes to the currently active window
as if they where typed from the keyboard.
object.SendKeysKeystrokes
Single alphanumeric keystrokes can simply be specified using a string
representation of the character required. For example, to send the letter S the
command would be object.SendKeys "S".
To send multiple characters combine them into one string. For example, to
send A, B and C the command would be object.SendKeys "ABC".
The plus sign "+", caret "^", percent sign "%", tilde "~", and parentheses
"()" all have special meanings and must be enclosed within braces "{}". Square
brackets "[]" must also be enclosed within braces although they have no special
meaning. To specify brace characters themselves, use "{{}" and "{}}".
Below is a table of characters that can not be directly represent by a
keyboard character to use one of these, specify the appropriate Code.
| Key | Code |
| Backspace | {BACKSPACE}, {BKSP} or {BS} |
| Break | {BREAK} |
| Caps Lock | {CAPSLOCK} |
| Delete | {DELETE} or {DEL} |
| Down Arrow | {DOWN} |
| End | {END} |
| Enter | {ENTER} or ~ |
| Escape | {ESC} |
| Help | {HELP} |
| Home | {HOME} |
| Insert | {INSERT} or {INS} |
| Left Arrow | {LEFT} |
| Num Lock | {NUMLOCK} |
| Page Down | {PGDN} |
| Page Up | {PGUP} |
| Print Screen | {PRTSC} |
| Right Arrow | {RIGHT} |
| Scroll Lock | {SCROLLLOCK} |
| Tab | {TAB} |
| Up Arrow | {UP} |
| F1 | {F1} |
| F2 | {F2} |
| F3 | {F3} |
| F4 | {F4} |
| F5 | {F5} |
| F6 | {F6} |
| F7 | {F7} |
| F8 | {F8} |
| F9 | {F9} |
| F10 | {F10} |
| F11 | {F11} |
| F12 | {F12} |
| F13 | {F13} |
| F14 | {F14} |
| F15 | {F15} |
| F16 | {F16} |
To specify characters combinations use the following codes:
| Key | Code |
| Alt | % |
| Ctrl | ^ |
| Shift Lock | + |
For example to
specify CTRL and C, the code would be
object.SendKeys "^C"
and for SHIFT F5
object.SendKeys "+{F5}". To specify
multiple combination sets such as ALT A Z, you use parentheses, for example,
object.SendKeys "%(AZ)".
Example
'VBScript Example
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\notepad.exe"
WshShell.AppActivate "Notepad"
WshShell.SendKeys "Hello World!"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "abc"
WshShell.SendKeys "{CAPSLOCK}"
WshShell.SendKeys "def"