• 新浪微博:
  • 微信公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.5.1
软件大小:41.4M
更新时间:09-27

按键精灵iOS版
立即下载

软件版本:1.7.2
软件大小:29.2M
更新时间:09-27

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[紫猫] [紫猫学院][电脑]你不知道的RunApp命令秘密之一:执行命令行 [复制链接]

1#
RunApp()最常见的操作是运行程序,例如打开记事本为RunApp "notepad.exe",但今天我们将使用该命令执行CMD命令行代码功能!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//介绍: 如果你要执行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")

    已有1评分我要评分查看所有评分

    最后编辑紫猫 最后编辑于 2021-11-16 17:29:13

    【紫猫编程学院】火热招生中

    教学涉及按键精灵(电脑版与手机版)、网页、游戏、办公、插件等。

    报名咨询QQ: 345911220

    紫猫学院免费教程

    加入交流QQ群: 7333555


    2#

    支持紫猫老师

    承接各类游戏脚本制作,post,手游,端游,办公,自动化

    有偿解决任何按键基础问题(可远程讲解、教会为止)

    如果我的回答能帮助了你,大家可以加个好友互相了解
    QQ : 262832680
    发新话题 回复该主题