[紫猫学院][电脑]你不知道的RunApp命令秘密之一：执行命令行 _ 【集结令●英雄归来】

查看: 4056\|回复: 1	[紫猫] [紫猫学院][电脑]你不知道的RunApp命令秘密之一：执行命令行 [复制链接]

紫猫

[紫猫学院创始人]

组别按键认证导师
UID513852
帖子3621
精华47
鲜花4630 朵
铜币28049 个
银币6154 个
在线时间190000
注册时间2010-10-09

1^#

字体大小: t T

发表于 2021-11-10 14:23 | |只看楼主

RunApp()最常见的操作是运行程序，例如打开记事本为RunApp "notepad.exe"，但今天我们将使用该命令执行CMD命令行代码功能！

//介绍: 如果你要执行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 微信：zimaoxy

紫猫学院免费教程

加入交流QQ群: 7333555

回顶部

发送短消息 UID 2991681 帖子 5022 精华 0 鲜花 1268 朵铜币 19806 个银币 1679 个性别在线时间 192100 注册时间 2015-01-06 最后登录 2024-04-26 262832680 查看公共资料搜索主题搜索帖子 jy262832680 脚本定制QQ:262832680 组别官方脚本作者 UID2991681 帖子5022 精华0 鲜花1268 朵铜币19806 个银币1679 个在线时间192100 注册时间2015-01-06 图灵勋章参与按键精灵验证码识别大赛奖励天使勋章天使一样的用户按键明星按键明星勋章骨灰级按键用户 3年以上的按键论坛用户按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com 论坛GG 按键论坛男性用户勋章小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章	2^# 字体大小: t T 发表于 2021-11-24 14:24 \| \|只看该用户支持紫猫老师
	承接各类游戏脚本制作,post,手游,端游,办公,自动化有偿解决任何按键基础问题（可远程讲解、教会为止）如果我的回答能帮助了你,大家可以加个好友互相了解 QQ : 262832680

	回顶部

上一主题| 下一主题

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