第52课 函数的使用例子 - 《按键精灵9 · 经典教程》

//高级例子
//介绍: 如果你要执行CMD命令行内容, 可以尝试使用本函数
//命令行: 命令行代码内容, 如果存在文件路径, 请给路径加单引号, 例如 "'C:\Program Files (x86)\Tencent\QQ\Bin\QQ.exe'"
Function zmRunCMD(命令行)
    Dim fs, tempFile, f, tempText 
    命令行 = Replace(命令行, "'", chr(34))
    Set fs = CreateObject("scripting.FileSystemObject")
    tempFile = fs.GetSpecialFolder(2) & "\" & fs.GetTempName
    RunApp "cmd.exe /c " & 命令行 &" > " & tempFile
    //如果命令行执行耗时较久, 请加长延时的时间
    Delay 1000
    If fs.FileExists(tempFile) Then 
        Set f = fs.openTextFile(tempFile, 1)
        tempText = f.ReadAll
        f.Close
        Set f = Nothing
    End If
    Set fs = Nothing
    zmRunCMD = tempText
End Function

//调用例子, 下面是执行dir命令行并输出结果
TracePrint zmRunCMD("dir")