讲解：如何进行batch Telnet(1)(2)

对于SendKeys这个命令可以send什么，我们可以看下面的列表：

BACKSPACE {BACKSPACE}, {BS}, or {BKSP}  
BREAK {BREAK}  
CAPS LOCK {CAPSLOCK}  
DEL ;or DELETE {DELETE} or {DEL}  
DOWN ARROW {DOWN}  
END {END}  
ENTER {ENTER}or ~  
ESC {ESC}  
HELP {HELP}  
HOME {HOME}  
INS or 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}  
 
SHIFT +  
CTRL ^  
ALT % 

Shell一个应用程序并等待该程序执行完毕后继续运行

Shell & Wait 的程序怎么写？ 希望某一 VB 程序利用 Shell 执行某一个外部程序(假设是 notepad.exe)之后， 就一直等到此一程序结束执行时， 才回到 VB 程序继续执行， 该怎么办到呢？ 当我们调用 Shell 时， 会传回一个数值， 此一数值称为 Process Id， 利用此 一 Process Id， 我们可以调用 OpenProcess API 取得 Process Handle， 然后 再利用 Process Handle 调用 WaitForSingleObject， 即可等待被 Shell 执行的 程序执行完毕， 才继续向下执行。细节如下： 

1. API 的声明： 

Const SYNCHRONIZE = &H100000  
Const INFINITE = &HFFFFFFFF  
Private Declare Function OpenProcess Lib "kernel32" (ByVal  
dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId  
As Long) As Long  
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As  
Long) As Long  
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal  
hHandle As Long, ByVal dwMilliseconds As Long) As Long 

注：如果以上的声明放在「一般模块」底下， 应将 Declare 之前的 Private 保 留字去掉， 并且在 Const 之前加上 Public 保留字。

2. 程序范例：(以执行 Notepad 程序为例) 

Dim pId As Long, pHnd As Long ’分别声明 Process Id 及 Process Handle 变 数    
pId = Shell("Notepad", vbNormalFocus) ’Shell 传回  
Process Id pHnd = OpenProcess(SYNCHRONIZE, 0, pId) ’ 取得 Process Handle  
If pHnd <> 0 Then Call WaitForSingleObject(pHnd, INFINITE) ’ 无限等待，直到程序结束  
Call CloseHandle(pHnd)  
End If