CMD应用 qtp/winshell/cmd的交互

===================================================================
'採用windows.shell的 sendkeys 方式:
set objshell=createobject("wscript.shell")
objshell.run("cmd")
objshell.SendKeys("{ENTER}")
objshell.SendKeys("cd C:workpacejenkins estceslicense")
objshell.SendKeys("{ENTER}")
objshell.SendKeys("ant")
objshell.SendKeys("{ENTER}")
objshell.SendKeys("exit")


===================================================================
'採用wscrip.shell的 run 方式:
CreateObject("wscript.shell").Run("taskkill /FI "imagename eq FM*" /F")
CreateObject("wscript.shell").Run("taskkill /FI "imagename eq mysqlserver.exe" /F")




'QTP执行CMD,採用描写叙述性编程对象操作方式:
SystemUtil.Run "cmd.exe","","C:WINDOWSsystem32","open"
'输入 ping 51testing.com 字段
Window( "object class:=ConsoleWindowClass" ).Type "Ping baidu.com"
'输入回车
Window( "object class:=ConsoleWindowClass" ).Type micreturn
'获得CMD里面的内容
txt = Window( "object class:=ConsoleWindowClass" ).GetVisibleText()
'在LOG打印出CMD里面的内容
print txt


===================================================================
'使用WshShell 的 Exec方式:
'ping 操作。并获得回显
set objshell=createobject("wscript.shell")
Set exec = objshell.Exec( "%comspec% /C ping baidu.com" )
print exec.StdOut.ReadAll


'删除路径下全部后缀为dat的文件
set objshell=createobject("wscript.shell")
Set exec = objshell.Exec( "%comspec% /c del C:UsersAdministratorDownloads*.dat" )
wait 5


========================Exec、Run具体解释===============================
方法声明:
Function Exec(ByVal Command As String) As WshExec
Function Run(ByVal Command As String, [ByVal WindowStyle], [ByVal WaitOnReturn]) As Integer
差别:
 
1。返回值
run的返回值是一个整数。就是0或1成功和失败两个状态,而exec方法的返回值是一个对象,从返回对象中能够获得控制台输出信息和控制台错误信息,即StdOut和StdErr属性等。
如:
Dim oShell,exeRs
Set oShell = CreateObject("WSCript.shell")
commandLine = "ping baidu.com"
Set exeRs = oShell.Exec(commandLine)
errMsg = exeRs.StdErr.ReadAll()
stdMsg = exeRs.StdOut.ReadAll()
WScript.echo "errMsg:" & errMsg & "stdMsg:" & stdMsg


ret = oShell.run(commandLine, 0, true)
WScript.echo "run method return value:" & ret
Set oShell = Nothing
Set exeRs = Nothing
能够取道控制台错误和控制台信息。
 
附记:WshExec类具有属性ExitCode,ProcessID,Status。StdErr,StdIn。StdOut以及一个函数Terminate,这些属性和函数都非常好理解。


Status属性具有三个值:
Const WshFailed   = 2
Const WshFinished = 1
Const WshRunning  = 0
 
2,运行參数
Run的后两个參数。一个是cmd窗体的风格。一个是是否等待运行完毕。最后一个參数非常实用,假设你希望等待本次cmd运行的程序结束后,再运行run后面的语句,设置这个參数为true,否则后面的语句将不等待cmd窗体完毕,直接运行。
另外,假设你使用exec 方法的时候,假设希望等待cmd中程序运行完后,再运行后面的语句,也能够通过以下的方法: oExec.StdErr.ReadAll()或者oExec.StdOut.ReadAll()。道理上也应该好理解,要得到输出的信息,肯定要cmd运行完后才会有输出的。
 
WshShell.run函数的參数
set WshShell= CreateObject(“Wscript.Shell”)
WshShell.run       "notepad.exe",,
run函数有三个參数:
    第一个參数是你要运行的程序的路径,若路径中存在空格,记得要用""括起来,如 """C:Program Files n.exe"""的形式或者Chr(34)&"C:Program Files n.exe"&Chr(34)的形式。
    第二个程序是窗体的形式。0是在后台执行。1表示正常执行。2表示激活程序而且显示为最小化;3表示激活程序而且显示为最大化;一共同拥有10个这种參数例如以下表。
    第三个參数是表示这个脚本是等待还是继续运行。假设设为了true,脚本就会等待调用的程序退出后再向后运行。

 
    事实上,run做为函数。前面另一个接受返回值的变量。一般来说假设返回为0,表示成功运行。假设不为0,则这个返回值就是错误代码,能够通过这个代码找出对应的错误。
 
intWindowStyle 说明
0 隐藏一个窗体并激活还有一个窗体。
1 激活并显示窗体。

假设窗体处于最小化或最大化状态,则系统将其还原到原始大小和位置。第一次显示该窗体时。应用程序应指定此标志。
2 激活窗体并将其显示为最小化窗体。
3 激活窗体并将其显示为最大化窗体。
4 按近期的窗体大小和位置显示窗体。活动窗体保持活动状态。


5 激活窗体并按当前的大小和位置显示它。
6 最小化指定的窗体,并依照 Z 顺序激活下一个顶部窗体。


7 将窗体显示为最小化窗体。

活动窗体保持活动状态。
8 将窗体显示为当前状态。

活动窗体保持活动状态。


9 激活并显示窗体。

假设窗体处于最小化或最大化状态,则系统将其还原到原始大小和位置。还原最小化窗体时,应用程序应指定此标志。
10 依据启动应用程序的程序状态来设置显示状态。

原文地址:https://www.cnblogs.com/blfbuaa/p/7054741.html