• 按键公众号 :
按键精灵电脑版
立即下载

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

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

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

发新话题 回复该主题

[紫猫] [紫猫学院][电脑]你不知道的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

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

    教学涉及按键精灵电脑版、按键精灵手机版、易语言、Lua编程。

    包含网页、端游、手游、办公、模拟器、插件等。

    报名咨询QQ:345911220 或 97682686 或 97682687;

    报名咨询微信:zimaoxy; 点我在线交谈


    紫猫学园免费教程

    加入交流QQ群: 7333555

    2#

    支持紫猫老师

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

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

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