查看: 27349|回复: 66	[昨夜星辰] 【源码】执行CMD并返回结果（两种方法） [复制链接]

发送短消息 UID 728264 帖子 3501 精华 18 鲜花 1898 朵 铜币 27453 个 银币 1717 个 性别 在线时间 82980 注册时间 2011-08-04 最后登录 2024-11-27 2500039815 查看公共资料 搜索主题 搜索帖子 昨夜星辰 QQ250039815 组别按键认证大神 UID728264 帖子3501 精华18 鲜花1898 朵 铜币27453 个 银币1717 个 在线时间82980 注册时间2011-08-04 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 羊年勋章 羊年纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 双蛋勋章 双蛋活动勋章 黄瓜勋章 体验商业小精灵活动的奖励 按键卫士 参与“打击山寨，维护按键”活动 屌丝勋章 参与屌丝逆袭活动专属勋章 土豪勋章 活动期间在淘宝商场购买按键产品 天使勋章 天使一样的用户 潜水员 按键潜水员勋章 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 虎年勋章 虎年纪念勋章 论坛GG 按键论坛男性用户勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 盒子会员 盒子会员专属勋章	1# 字体大小: t T 发表于 2022-11-06 20:18 | |只看楼主 今天编写了两个函数分别为"ExecuteCmdA"和"ExecuteCmdB"，区别如下： A： 可设置执行目录、可设置超时退出，不可隐藏命令行窗口，与管道通信读取执行结果。 B： 可隐藏命令行窗口，不可设置执行目录、不可设置超时退出，将执行结果写入到本地文件后再读取。 函数名称： ExecuteCmdA 执行CMD并返回结果 参数定义： CommandLine 字符串型：执行的指令 CurrentDir 字符串型：设置执行目录，为空则为当前目录 TimeOut 整数型：超时时间，单位为毫秒，0为不判断超时，否则命令行若执行超过设定时间则强制退出执行 返回值： 字符串型：返回执行结果，若失败返回错误信息或空。 调用例子： TracePrint ExecuteCmdA("dir", "C:", 10000) '获取C盘目录，设置超时为10000毫秒 函数名称： ExecuteCmdB 执行CMD并返回结果 参数定义： CommandLine 字符串型：执行的指令 IsVisble 整数型：是否显示命令行窗口，为1代表显示，其他数字为隐藏。 返回值： 字符串型：返回执行结果。 调用例子： TracePrint ExecuteCmdB("ping bbs.anjian.com", 0) '测试连接按键论坛，隐藏命令行窗口 源码： Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long TracePrint ExecuteCmdA("dir", "C:", 10000) '获取C盘目录 TracePrint ExecuteCmdB("ping bbs.anjian.com", 0) '测试连接按键论坛 Function ExecuteCmdA(CommandLine, CurrentDir, TimeOut) Dim WshRunning, WshFinished, WshFailed, Status WshRunning = 0 WshFinished = 1 WshFailed = 2 Dim WindowStyle, WaitOnReturn WindowStyle = 0 WaitOnReturn = True Dim WSH, WshExec,ReadLine, FirstLine,ReadLines Dim PID, RunTime Set WSH = CreateObject("WScript.Shell") If CurrentDir <> "" Then Set WshExec = WSH.Exec("cmd.exe /k cd /d " & CurrentDir) FirstLine = 2 Else Set WshExec = WSH.Exec("cmd.exe /k") FirstLine = 1 End If PID = WshExec.ProcessID WshExec.stdIn.WriteLine CommandLine WshExec.stdIn.WriteLine "Exit" RunTime = GetTickCount() Do Status = WshExec.Status If Status = 1 Or Status = 2 Then Exit Do End If If Plugin.Sys.GetTime() - RunTime >= TimeOut And TimeOut<>0 Then Status = 3 Exit Do End If Delay 100 Loop If Status = 1 Then ReadLines = "" Do ReadLine = WshExec.StdOut.ReadLine If FirstLine > 0 Then FirstLine = FirstLine - 1 Else If InStr(ReadLine, ">Exit") > 0 Then Exit Do End If ReadLines = ReadLines & ReadLine &vbCrLf End If Loop If ReadLines <> "" Then ReadLines = Left(ReadLines, Len(ReadLines) - 2) End If ExecuteCmdA = ReadLines ElseIf Status = 2 Then ExecuteCmdA = WshExec.StdErr.ReadAll ElseIf Status = 3 Then WSH.Run "taskkill /pid " & PID & " /F /T", WindowStyle, WaitOnReturn ExecuteCmdA = "" End If Set WshExec = Nothing Set WSH = Nothing End Function Function ExecuteCmdB(CommandLine, IsVisible) If IsVisible = 1 Then IsVisible = 5 Else IsVisible = 0 End If Dim WaitOnReturn WaitOnReturn = True Dim WSH Set WSH = CreateObject("WScript.Shell") WSH.Run "cmd.exe /A /C " & CommandLine&" > C:\temp_text.txt", IsVisible, WaitOnReturn ExecuteCmdB = ReadText("C:\temp_text.txt", 0) Set WSH = Nothing End Function Function ReadText(Path, Format) //Format：0=ANSI -1=Unicode 2=Default Dim IoMode, Create IoMode = 1 Create = False Dim fso,f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(Path, IoMode, Create, Format) If fso.FileExists(Path) <> True Then ReadText = "" Else ReadText = f.ReadAll() f.Close End If Set f = nothing Set fso = nothing End Function 复制代码
	点赞 近期制作： 传奇私服各种反外挂插件版本挂机软件，可教可售 原神加速、连发辅助工具 天下3自动钓大鱼辅助工具 承接脚本定制，点击下方联系 QQ：250039815 交流群：101296478
	回顶部

发送短消息 UID 323316 帖子 1002 精华 0 鲜花 92 朵 铜币 5288 个 银币 162 个 性别 在线时间 16940 注册时间 2009-10-19 最后登录 2023-09-27 查看公共资料 搜索主题 搜索帖子 csyzc csyzc 组别大学二年级 UID323316 帖子1002 精华0 鲜花92 朵 铜币5288 个 银币162 个 在线时间16940 注册时间2009-10-19 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	2# 字体大小: t T 发表于 2022-11-07 10:49 | |只看该用户 执行CMD并返回结果
	回顶部

发送短消息 UID 3892596 帖子 2307 精华 0 鲜花 2118 朵 铜币 2376 个 银币 2264 个 性别 在线时间 92820 注册时间 2016-04-29 最后登录 2024-12-02 15177407 查看公共资料 搜索主题 搜索帖子 qiudi 风闲 组别官方脚本作者 UID3892596 帖子2307 精华0 鲜花2118 朵 铜币2376 个 银币2264 个 在线时间92820 注册时间2016-04-29 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com	3# 字体大小: t T 发表于 2022-11-07 15:27 | |只看该用户 学习.
	官方脚本作者风闲 联系QQ:15177407 验证码识别,数据监测,网页操作,游戏,办公,抢购,post等
	回顶部

发送短消息 UID 8508479 帖子 70 精华 0 鲜花 19 朵 铜币 65 个 银币 55 个 性别 在线时间 0 注册时间 2021-10-21 最后登录 2024-11-23 查看公共资料 搜索主题 搜索帖子 小鲨鱼1号 组别小学四年级 UID8508479 帖子70 精华0 鲜花19 朵 铜币65 个 银币55 个 在线时间0 注册时间2021-10-21	4# 字体大小: t T 发表于 2022-11-08 10:21 | |只看该用户 谢谢谢谢谢寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻
	回顶部

发送短消息 UID 4383421 帖子 1386 精华 0 鲜花 84 朵 铜币 2458 个 银币 1017 个 性别 在线时间 17280 注册时间 2017-03-17 最后登录 2024-12-02 1729496832 查看公共资料 搜索主题 搜索帖子 hao1210119 有梦想的小子 组别大学三年级 UID4383421 帖子1386 精华0 鲜花84 朵 铜币2458 个 银币1017 个 在线时间17280 注册时间2017-03-17 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com	5# 字体大小: t T 发表于 2022-11-08 10:36 | |只看该用户 不错
	5年专业脚本作者，免费解决脚本异议和遇到问题，专业制作脚本，专业一对一收徒VX:dream_is_come
	回顶部

发送短消息 UID 762858 帖子 124 精华 0 鲜花 24 朵 铜币 301 个 银币 30 个 性别 在线时间 14620 注册时间 2011-09-04 最后登录 2024-11-29 525252 525252 52525252 141414141 52525253 查看公共资料 搜索主题 搜索帖子 myhzy myhzy 组别小学六年级 UID762858 帖子124 精华0 鲜花24 朵 铜币301 个 银币30 个 在线时间14620 注册时间2011-09-04	6# 字体大小: t T 发表于 2022-11-08 23:50 | |只看该用户 看看代码
	回顶部

发送短消息 UID 5318556 帖子 28 精华 0 鲜花 10 朵 铜币 196 个 银币 187 个 性别 在线时间 1780 注册时间 2018-06-17 最后登录 2024-04-17 861925429 查看公共资料 搜索主题 搜索帖子 小皮1997 小皮1997 组别小学一年级 UID5318556 帖子28 精华0 鲜花10 朵 铜币196 个 银币187 个 在线时间1780 注册时间2018-06-17 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	7# 字体大小: t T 发表于 2022-11-10 16:57 | |只看该用户 222222222222222
	回顶部

发送短消息 UID 564468 帖子 9 精华 0 鲜花 3 朵 铜币 28 个 银币 4 个 性别 在线时间 120 注册时间 2010-12-21 最后登录 2022-11-10 305060849 查看公共资料 搜索主题 搜索帖子 abaligu abaligu 组别小学一年级 UID564468 帖子9 精华0 鲜花3 朵 铜币28 个 银币4 个 在线时间120 注册时间2010-12-21	8# 字体大小: t T 发表于 2022-11-10 17:56 | |只看该用户 挺好
	回顶部

发送短消息 UID 2039197 帖子 36 精华 0 鲜花 -2 朵 铜币 103 个 银币 3 个 性别 在线时间 720 注册时间 2013-07-30 最后登录 2022-11-17 1478389499 查看公共资料 搜索主题 搜索帖子 q505078546 q505078546 组别小学二年级 UID2039197 帖子36 精华0 鲜花-2 朵 铜币103 个 银币3 个 在线时间720 注册时间2013-07-30	9# 字体大小: t T 发表于 2022-11-11 18:54 | |只看该用户 执行CMD并返回结果
	回顶部

发送短消息 UID 294770 帖子 3175 精华 1 鲜花 196 朵 铜币 4494 个 银币 96 个 性别 在线时间 188660 注册时间 2009-08-04 最后登录 2024-11-12 42766782 查看公共资料 搜索主题 搜索帖子 playandhappy playandhappy 组别按键忠义之士 UID294770 帖子3175 精华1 鲜花196 朵 铜币4494 个 银币96 个 在线时间188660 注册时间2009-08-04 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 爱心大使 积极帮助新手（可向管理员进行申请） 兔年勋章 兔年纪念勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 骨灰级按键用户 3年以上的按键论坛用户 黄金之翼 黄金之翼勋章 按键明星 按键明星勋章 潜水员 按键潜水员勋章 天使勋章 天使一样的用户 官方脚本作者工会 官方脚本作者工会专属勋章 认证考霸 对按键认证题目有深入研究，并且孜孜不倦学到老考到老 幸运草勋章 商业小精灵限时活动勋章。 单身汪勋章 单身贵族的专属勋章	10# 字体大小: t T 发表于 2022-11-12 00:26 | |只看该用户 执行CMD并返回结果
	技能列表：各类自动化，TCP通信，POST，办公，Sqlserver，网页API 要价较高,慎入 只接单，其他问题勿扰 企鹅42766782
	回顶部

发送短消息 UID 1241913 帖子 149 精华 0 鲜花 5 朵 铜币 180 个 银币 120 个 性别 在线时间 60 注册时间 2012-07-26 最后登录 2024-01-31 1329127360 查看公共资料 搜索主题 搜索帖子 1329127360 1329127360 组别小学六年级 UID1241913 帖子149 精华0 鲜花5 朵 铜币180 个 银币120 个 在线时间60 注册时间2012-07-26 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	11# 字体大小: t T 发表于 2022-12-01 21:28 | |只看该用户 执行CMD并返回结果
	回顶部

发送短消息 UID 52610 帖子 20 精华 0 鲜花 5 朵 铜币 8 个 银币 8 个 性别 在线时间 0 注册时间 2005-08-16 最后登录 2023-01-21 查看公共资料 搜索主题 搜索帖子 yurenc yurenc 组别小学一年级 UID52610 帖子20 精华0 鲜花5 朵 铜币8 个 银币8 个 在线时间0 注册时间2005-08-16	12# 字体大小: t T 发表于 2022-12-27 20:48 | |只看该用户 执行CMD并返回结果
	回顶部

发送短消息 UID 4076404 帖子 7 精华 0 鲜花 7 朵 铜币 17 个 银币 167 个 性别 在线时间 320 注册时间 2016-08-18 最后登录 2024-09-26 查看公共资料 搜索主题 搜索帖子 hjy2016 组别小学一年级 UID4076404 帖子7 精华0 鲜花7 朵 铜币17 个 银币167 个 在线时间320 注册时间2016-08-18 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	13# 字体大小: t T 发表于 2023-01-22 23:01 | |只看该用户 执行CMD并返回结果
	回顶部

发送短消息 UID 3802301 帖子 4 精华 0 鲜花 1 朵 铜币 24 个 银币 4 个 性别 在线时间 20 注册时间 2016-03-10 最后登录 2023-02-03 775294852 查看公共资料 搜索主题 搜索帖子 775294852 775294852 组别小学一年级 UID3802301 帖子4 精华0 鲜花1 朵 铜币24 个 银币4 个 在线时间20 注册时间2016-03-10	14# 字体大小: t T 发表于 2023-01-28 20:18 | |只看该用户 6666666666
	回顶部

发送短消息 UID 2641628 帖子 327 精华 0 鲜花 22 朵 铜币 190 个 银币 244 个 性别 在线时间 12280 注册时间 2014-07-21 最后登录 2024-08-23 411574922 查看公共资料 搜索主题 搜索帖子 wang123zha wang123zha 组别初中二年级 UID2641628 帖子327 精华0 鲜花22 朵 铜币190 个 银币244 个 在线时间12280 注册时间2014-07-21 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com	15# 字体大小: t T 发表于 2023-02-02 16:44 | |只看该用户 按键自带的那个不能返回参数
	回顶部

发送短消息 UID 5990245 帖子 60 精华 0 鲜花 28 朵 铜币 70 个 银币 60 个 性别 在线时间 0 注册时间 2019-01-05 最后登录 2024-11-16 查看公共资料 搜索主题 搜索帖子 123NK 123NK 组别小学三年级 UID5990245 帖子60 精华0 鲜花28 朵 铜币70 个 银币60 个 在线时间0 注册时间2019-01-05	16# 字体大小: t T 发表于 2023-02-06 17:57 | |只看该用户 感谢分享
	回顶部

发送短消息 UID 2771204 帖子 115 精华 0 鲜花 65 朵 铜币 174 个 银币 69 个 性别 在线时间 1020 注册时间 2014-09-29 最后登录 2024-06-02 2665754133 查看公共资料 搜索主题 搜索帖子 sfcsm sfcsm 组别小学六年级 UID2771204 帖子115 精华0 鲜花65 朵 铜币174 个 银币69 个 在线时间1020 注册时间2014-09-29	17# 字体大小: t T 发表于 2023-02-10 17:06 | |只看该用户 看看
	回顶部

发送短消息 UID 95208 帖子 3563 精华 6 鲜花 822 朵 铜币 19380 个 银币 565 个 性别 在线时间 45680 注册时间 2006-09-14 最后登录 2024-11-29 31377015 查看公共资料 搜索主题 搜索帖子 有夫之妇 官方脚本作者QQ16256223 组别官方脚本作者 UID95208 帖子3563 精华6 鲜花822 朵 铜币19380 个 银币565 个 在线时间45680 注册时间2006-09-14 按键精灵开发者6级（新浪V认证） 通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人 完成新浪微博加V的奖励，结合活动不定期开放申请。 盒子会员 盒子会员专属勋章	18# 字体大小: t T 发表于 2023-02-14 19:22 | |只看该用户 看看
	接单QQ:16256223。12年信誉保证！组别:〖官方脚本作者 网页,电脑,安卓,模拟器,验证码识别! 自动办公,网页操作,填表投票,账号注册,学习答题,聊天引流,数据监测,操作软件![/co
	回顶部

发送短消息 UID 378497 帖子 71 精华 0 鲜花 77 朵 铜币 87 个 银币 70 个 性别 在线时间 60 注册时间 2010-03-26 最后登录 2024-07-27 229085258 查看公共资料 搜索主题 搜索帖子 youaremysky youaremysky 组别小学四年级 UID378497 帖子71 精华0 鲜花77 朵 铜币87 个 银币70 个 在线时间60 注册时间2010-03-26	19# 字体大小: t T 发表于 2023-02-15 20:54 | |只看该用户 学习一下
	回顶部

发送短消息 UID 1762571 帖子 1 精华 0 鲜花 1 朵 铜币 11 个 银币 1 个 性别 在线时间 0 注册时间 2013-04-24 最后登录 2023-02-24 12345 查看公共资料 搜索主题 搜索帖子 qq857981161 qq857981161 组别幼儿园 UID1762571 帖子1 精华0 鲜花1 朵 铜币11 个 银币1 个 在线时间0 注册时间2013-04-24	20# 字体大小: t T 发表于 2023-02-23 21:40 | |只看该用户 感谢分享
	回顶部