[技术讨论] vbs中的&quot;Wscript.Shell&quot;[属性与方法]

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

6楼

发表于 2012-10-18 10:01 | 只看该作者

本帖最后由 czjt1234 于 2012-10-30 12:46 编辑

WshShell 对象的 Exec 方法返回 WshScriptExec 对象

WshScriptExec 对象提供对运行的程序的输入输出流的访问

属性
ExitCode    进程结束后的返回码
ProcessID    进程ID
Status       进程的运行状态
StdOut       只读输出流
StdIn       只写输入流
StdErr       只读错误信息输出流

方法
Terminate    正常结束进程，但并不等待进程结束就继续执行后续vbs命令

'-------------------------------------------------------------

下面是 WshScriptExec 对象的属性和方法的参数，及用法举例

代码测试环境：winxpsp3 IE8 Wscript版本5.7.0.18066

'-------------------------------------------------------------

Dim objWsh, intNumber, strRead, objExec
Dim objWshEnv, objWshSpe, objLink, objUrlLink, objWshExec

set objWsh = CreateObject("Wscript.Shell")

'-------------------------------------------------------------

Set objExec = objwsh.Exec("calc")
'返回一个 WshScriptExec 对象
'运行calc.exe，就是"计算器"

Msgbox objExec.Status    '进程的运行状态
  Const WshRunning  = 0 '程序仍在运行
  Const WshFinished = 1 '程序已结束
  Const WshFailed = 2 '??

Msgbox objExec.ProcessID '进程ID

objExec.Terminate       '正常结束进程，但并不等待进程结束

Msgbox objExec.ExitCode '进程结束后的返回码，数值和 Run 方法返回的一样

'-------------------------------------------------------------

'WshScriptExec 对象的输入输出流与 Wscript.StdIn StdOut StdErr 不同
'通过如下属性和方法进行访问

Set objExec = objwsh.Exec("cmd.exe")

objExec.StdIn.Write "dir"          '输入 dir 命令，但没有回车换行
objExec.StdIn.WriteBlankLines 5    '输入5个空行，相当于5个 vbCrLf
objExec.StdIn.WriteLine "exit"    '输入命令，并回车换行
objExec.StdIn.Close                '关闭输入流

Msgbox objExec.StdOut.Read(5)       '从当前光标位置读取5个字符，并相应移动光标
Msgbox objExec.StdOut.ReadLine    '从当前光标位置读取一行，光标移到下一行行首
Msgbox objExec.StdOut.AtEndOfLine '判断当前光标位置是否在某一行末尾
objExec.StdOut.Skip 3             '跳过3个字符，每行末尾的回车换行算2个字符
objExec.StdOut.SkipLine             '跳过一行，当前光标位置移到下一行行首
Msgbox objExec.StdOut.Line          '返回当前光标所在行号
Msgbox objExec.StdOut.Column       '返回当前光标所在列号
Msgbox objExec.StdOut.AtEndOfStream  '判断当前光标位置是否在文末
Msgbox objExec.StdOut.ReadAll       '从当前光标位置读取文件所有内容，光标移到文末
objExec.StdOut.Close                '关闭输出流

strRead = objExec.StdOut.ReadAll
'Exec 运行程序，并不等待程序执行完毕。读取所有输出流，则可以起到等程序结束的效果

'StdErr 和 StdOut 的方法属性完全一样

'-------------------------------------------------------------

'一个小Bug

Msgbox objExec.StdOut.ReadLine  'Close 之前用 ReadLine 方法
objExec.StdOut.Close
Msgbox objExec.StdOut.ReadLine  '这行还可以运行
Msgbox objExec.StdOut.ReadLine  '这行才报错，因为对象已经 Close

'-------------------------------------------------------------
附：Run 和 Exec 的方法声明

Function Exec(ByVal Command As String) As WshExec

Function Run(ByVal Command As String, [ByVal WindowStyle], [ByVal WaitOnReturn]) As Integer

'-------------------------------------------------------------

QQ 20147578

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

5楼

发表于 2012-10-18 09:52 | 只看该作者

本帖最后由 czjt1234 于 2012-10-30 12:38 编辑

WshShell 对象的 CreateShortcut 方法返回 WshShortcut 对象或 WshUrlShortcut 对象

如果快捷方式的后缀名是 .lnk ，则返回的是 WshShortcut 对象
如果快捷方式的后缀名是 .url ，则返回的是 WshUrlShortcut 对象

WshShortcut 对象提供对 .lnk 快捷方式的访问
WshUrlShortcut 对象提供对 .url 快捷方式的访问

'-------------------------------------------------------------

WshShortcut 对象

属性
Arguments          命令行的参数
Description       备注
FullName          快捷方式的完整路径和名称
Hotkey             快捷键
IconLocation       图标。缺省值 0
TargetPath          目标
WindowStyle       运行方式: 1默认窗口(缺省值) 3最大化 7最小化
WorkingDirectory    起始位置

方法
Save                (覆盖)保存快捷方式

'-------------------------------------------------------------

WshUrlShortcut 对象

属性
FullName          快捷方式的完整路径和名称
TargetPath          目标

方法
Save                (覆盖)保存快捷方式

'-------------------------------------------------------------

下面是 WshShortcut 和 WshUrlShortcut 对象的属性和方法的参数，及用法举例

代码测试环境：winxpsp3 IE8 Wscript版本5.7.0.18066

'-------------------------------------------------------------

Dim objWsh, intNumber, strRead, objExec
Dim objWshEnv, objWshSpe, objLink, objUrlLink, objWshExec

set objWsh = CreateObject("Wscript.Shell")

'-------------------------------------------------------------

strRead = objWsh.SpecialFolders("Desktop") & "\QQ.lnk" '路径+名称，对应 FullName 属性

set objLink = objWsh.CreateShortcut(strRead)
'返回 WshShortcut 对象

With objLink
  .TargetPath = "D:\QQ2012\Bin\QQ.exe"    '目标
  .Arguments = "1 2 /c:f d"                '命令行的参数
  .WorkingDirectory = "D:\QQ2012\Bin"       '起始位置
  .Hotkey = ""                            '快捷键
  .WindowStyle = 1|3|7                      '运行方式: 1默认窗口(缺省值) 3最大化 7最小化
  .Description = ""                         '备注
  .IconLocation = "D:\QQ2012\Bin\QQ.exe, 0"  '0表示第一个图标，1代表第二个...
  .Save                                     '(覆盖)保存
End With

'快捷方式图标也可以指定一个图标文件
  .IconLocation = "D:\ICO\QQ.ico"

'快捷键不区分大小写，如 "CTRL+ALT+F"
'快捷键只能激活位于 Windows 桌面或 Windows“开始”菜单的快捷方式

'读取已存在的快捷方式的属性
With objLink
  MsgBox "完整路径和名称：" & .FullName    & vbCrLf & vbCrLf & _
      "目标："          & .TargetPath & vbCrLf & vbCrLf & _
      "快捷键："       & .Hotkey    & vbCrLf & vbCrLf & _
      "运行方式："    & .WindowStyle  & vbCrLf & vbCrLf & _
      "备注："          & .Description  & vbCrLf & vbCrLf & _
      "图标："          & .IconLocation & vbCrLf & vbCrLf & _
      "参数："          & .Arguments
End With

'-------------------------------------------------------------

strRead = objWsh.SpecialFolders("Desktop") & "\QQ.url" '路径+名称，对应 FullName 属性

set objUrlLink = objWsh.CreateShortcut(strRead)
'返回 WshUrlShortcut 对象

With objUrlLink
  .TargetPath = "http://www.qq.com" '目标
  .Save                            '(覆盖)保存
End With

'读取已存在的快捷方式的属性
With With objUrlLink
  MsgBox "完整路径和名称： " & .FullName & vbCrLf & vbCrLf & _
      "目标：          " & .TargetPath
End With

'-------------------------------------------------------------

QQ 20147578

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

4楼

发表于 2012-10-18 09:48 | 只看该作者

WshShell 对象的 SpecialFolders 属性返回 WshSpecialFolders 对象

WshSpecialFolders 对象提供对 Windows 特殊文件夹的访问

属性
Item    缺省属性，指定一个特殊文件夹条目

方法
Count    特殊文件夹的个数

'-------------------------------------------------------------

下面是 WshSpecialFolders 对象的属性和方法的参数，及用法举例

代码测试环境：winxpsp3 IE8 Wscript版本5.7.0.18066

'-------------------------------------------------------------

Dim objWsh, intNumber, strRead, objExec
Dim objWshEnv, objWshSpe, objLink, objUrlLink, objWshExec

set objWsh = CreateObject("Wscript.Shell")

'-------------------------------------------------------------

set objWshSpe = objWsh.SpecialFolders
'返回 WshEnvironment 对象

strRead = objWshSpe.Item("Desktop")    '读取指定条目的完整路径

intNumber = objWshSpe.Count             '特殊文件夹的个数

For intNumber = 0 To objWshSpe.Count - 1
  MsgBox objWshSpe.Item(intNumber)    '枚举所有特殊文件夹
Next

'winxpsp3 操作系统支持下列18个特殊文件夹

AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
AppData
PrintHood
Templates
Fonts
NetHood
Desktop
StartMenu
SendTo
Recent
Startup
Favorites
MyDocuments
Programs

从第1行到第18行，依次可用编号0~17代表
其中 Desktop 重复，不解

'-------------------------------------------------------------

QQ 20147578

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

3楼

发表于 2012-10-18 09:46 | 只看该作者

WshShell 对象的 Environment 属性返回 WshEnvironment 对象

WshEnvironment 对象提供对 Windows 环境变量的访问

属性
Item    缺省属性，指定一个环境变量条目

方法
Count    环境变量的个数
Remove 删除指定的环境变量

'-------------------------------------------------------------

下面是 WshEnvironment 对象的属性和方法的参数，及用法举例

代码测试环境：winxpsp3 IE8 Wscript版本5.7.0.18066

'-------------------------------------------------------------

Dim objWsh, intNumber, strRead, objExec
Dim objWshEnv, objWshSpe, objLink, objUrlLink, objWshExec

set objWsh = CreateObject("Wscript.Shell")

'-------------------------------------------------------------

Set objWshEnv = objWsh.Environment("System|User|Volatile|Process")
'返回 WshEnvironment 对象
'共4种环境变量集合

intNumber = objWshEnv.count    '所含环境变量的个数

objWshEnv.Item("path1") = "test"  '添加/修改一个环境变量

strRead = objWshEnv.Item("path1") '读取指定的环境变量的值

objWshEnv.Remove("path1")       '删除指定的环境变量

For Each strRead in objWshEnv    '枚举所有变量
  Msgbox strRead
Next

'全部的 winxpsp3 环境变量:

System                   User Volatile    Process
------------------------------------------------------------------------
TEMP                   TEMP                TEMP
TMP                      TMP                   TMP
NUMBER_OF_PROCESSORS                            NUMBER_OF_PROCESSORS
OS                                              OS
Path                                           Path
PATHEXT                                        PATHEXT
PROCESSOR_ARCHITECTURE                         PROCESSOR_ARCHITECTURE
PROCESSOR_IDENTIFIER                            PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL                               PROCESSOR_LEVEL
PROCESSOR_REVISION                            PROCESSOR_REVISION
FP_NO_HOST_CHECK                               FP_NO_HOST_CHECK
windir                                        windir
ComSpec                                        ComSpec
                              LOGONSERVER LOGONSERVER
                              CLIENTNAME    CLIENTNAME
                              SESSIONNAME SESSIONNAME
                              APPDATA       APPDATA
                              HOMEDRIVE    HOMEDRIVE
                              HOMESHARE
                              HOMEPATH    HOMEPATH
                                             CommonProgramFiles
                                             COMPUTERNAME
                                             ALLUSERSPROFILE
                                             ProgramFiles
                                             USERNAME
                                             SystemDrive
                                             SystemRoot
                                             USERDOMAIN
                                             USERPROFILE

'-------------------------------------------------------------

QQ 20147578

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

2楼

发表于 2012-10-18 09:32 | 只看该作者

本帖最后由 czjt1234 于 2012-10-18 14:15 编辑

下面是 WshShell 对象的属性和方法的参数，及用法举例

代码测试环境：winxpsp3 IE8 Wscript版本5.7.0.18066

'-------------------------------------------------------------

Dim objWsh, intNumber, strRead, objExec
Dim objWshEnv, objWshSpe, objLink, objUrlLink, objWshExec

set objWsh = CreateObject("Wscript.Shell")
'返回 WshShell 对象

'-------------------------------------------------------------

objwsh.AppActivate "Title"|ProcessID       '激活指定窗口，可以是标题栏或进程ID

strRead = objwsh.CurrentDirectory          '读取当前目录
objwsh.CurrentDirectory = "C:\Program Files" '更改当前目录

strRead = objwsh.ExpandEnvironmentStrings("%WinDir%\System32\")
'将指定变量名返回为完整路径，即"扩展变量"

'-------------------------------------------------------------

objwsh.SendKeys strRead                   '向当前活动窗口发送按键

'下面是操作键的发送代码
退格键          {BACKSPACE}、{BS} 或 {BKSP}
BREAK             {BREAK}
CAPS LOCK       {CAPSLOCK}
DEL 或 DELETE    {DELETE} 或 {DEL}
向下键          {DOWN}
END             {END}
ENTER             {ENTER} 或 ~
ESC             {ESC}
HELP             {HELP}
HOME             {HOME}
INS 或 INSERT    {INSERT} 或 {INS}
向左键          {LEFT}
NUM LOCK          {NUMLOCK}
PAGE DOWN       {PGDN}
PAGE UP          {PGUP}
向右键          {RIGHT}
SCROLL LOCK       {SCROLLLOCK}
TAB             {TAB}
向上键          {UP}
F1 至 F12       {F1} 至 {F12}
SHIFT             +
CTRL             ^
ALT             %
+ { 等修饰符    {+} {{} {^} {}} {%}

'如果在按 e 和 c 的同时按 SHIFT 键，则发送字符串参数 +(ec)
'可发送一个键的重复键击。如10次x，为{x 10}，但不可发送10次组合键，如Ctrl+x
'不能发送 PRINT SCREEN 键 {PRTSC}
'常用 Wscript.Sleep 来延时若干毫秒发送按键，避免程序来不及响应

'-------------------------------------------------------------

intNumber = objWsh.Popup(strText, nSecondsToWait, strTitle, nType)
'弹出式消息框。比 Msgbox 多了等待选择时间参数，少了帮助参数

'返回值intNumber代表如下按钮:
vbOK    = 1 '确定
vbCancel = 2 '取消
vbAbort  = 3 '放弃
vbRetry  = 4 '重试
vbIgnore = 5 '忽略
vbYes = 6 '是
vbNo    = 7 '否
         -1 '选择超时

参数:

strText       '要显示的文本信息

nSecondsToWait '等待选择的秒数。若选择超时，消息框自动关闭，返回值 -1
            '缺省值 0 秒，必须选择一个按钮，消息框才会关闭

strTitle    '弹出式消息框的标题。缺省值 "Windows Script Host"

nType       '要显示的按钮和图标类型。缺省值 0
0    显示“确定”按钮
1    显示“确定”和“取消”按钮
2    显示“放弃”、“重试”和“忽略”按钮
3    显示“是”、“否”和“取消”按钮
4    显示“是”和“否”按钮
5    显示“重试”和“取消”按钮
16 显示“停止标记”图标
32 显示“问号”图标
48 显示“感叹号”图标
64 显示“信息标记”图标

'-------------------------------------------------------------

'注册表操作

objWsh.RegWrite "HKLM\SOFTWARE\test", &HFFFF&, "REG_SZ|REG_DWORD|REG_BINARY"
'创建/修改指定键
'&HFF表示16进制数FF。当数值较大时，vbs处理有问题，需在数字后面加&

参数:
REG_SZ  字符型，键值用""括起来。缺省值
REG_DWORD 双字节型
REG_BINARY 二进制型

strRead = objWsh.RegRead("HKLM\SOFTWARE\test")    '读取指定键值

objWsh.RegDelete "HKLM\SOFTWARE\test"             '删除指定键

objWsh.RegWrite "HKLM\SOFTWARE\test\", "", "REG_SZ" '创建一个项，默认值为空

objWsh.RegDelete "HKLM\SOFTWARE\test\"             '删除指定项。可以有键，不能有子项

'-------------------------------------------------------------

objwsh.Run strCommand, intWindowStyle, True|False
'运行指定程序

'参数：strCommand 要运行的命令行及参数

'参数：True|False 是否等命令执行完毕。缺省值False

'参数：intWindowStyle 窗口状态。一般只用到：0隐藏窗口，1显示窗口。缺省值1

'intWindowStyle 有如下可选值:
0  隐藏一个窗口并激活另一个窗口
1  激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置
第一次显示该窗口时，应用程序应指定此标志
2  激活窗口并将其显示为最小化窗口
3  激活窗口并将其显示为最大化窗口
4  按最近的窗口大小和位置显示窗口。活动窗口保持活动状态
5  激活窗口并按当前的大小和位置显示它
6  最小化指定的窗口，并按照 Z 顺序激活下一个顶部窗口
7  将窗口显示为最小化窗口。活动窗口保持活动状态
8  将窗口显示为当前状态。活动窗口保持活动状态
9  激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置
还原最小化窗口时，应用程序应指定此标志
10 根据启动应用程序的程序状态来设置显示状态

objwsh.Run "notepad.exe D:\新建文本文档.txt"       '命令行的参数可以有空格

objwsh.Run """C:\Program Files\WinRAR\WinRAR.exe"""  '命令行带空格，要3对""。可以用Chr(34)代替2对""

strRead = "notepad.exe " + "D:\新建文本文档.txt" '连接字符串时注意命令行后加个空格

objwsh.Run "cmd.exe /k echo ""strRead"" strRead " '运行cmd时，注意参数里的"和变量名

'该方法有返回码

intNumber = objwsh.Run("notepad.exe", , True)
'正常关闭，返回0
'任务管理强制结束，返回1

intNumber = objwsh.Run("cmd.exe /k xcopy", , True)
'输入exit正常关闭，返回值为cmd的错误码%errorlevel%
'任务管理强制结束，返回1
'点cmd窗口右上角的关闭按钮，(winxpsp3)返回-1073741510
'输入 exit /b 111 正常关闭，返回111

'-------------------------------------------------------------

objWsh.LogEvent intType, strMessage, strTarget
'添加"应用程序"日志。日志的"来源"显示为 WSH

'参数:
intType    整数值，代表日志类型(事件 ID)
strMessage 对错误的描述
strTarget 产生错误的计算机名。缺省值为本机名

intType 有如下可选值:
0 无
1 错误
2 警告
4 信息
8 成功审核
16  失败审核

'-------------------------------------------------------------

QQ 20147578