C函数获取(Dos/Shell)系统命令输出

本文介绍了一种在Linux和Windows环境下调用系统命令并获取输出结果的方法,通过使用C语言实现,兼容不同操作系统,提供了详细的代码示例。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

#include <stdio.h>
#include <stdlib.h>

#define SYSTEMFILE "qcard_system.txt"
/*******************************************************************************
* Function Name  : QCard_SystemGetOut
* Description    : 调用系统命令并获取输出结果,兼容linux/window
* Input          : pcCommand    : 系统命令
*                : pucOutBuf    :值为0
*                :puiOutLen    :值为0
* Output         : pucOutBuf    :输出结果
*                : puiOutLen    :输出长度
* Return         : 成功返回0 ;其它返回错误值
*******************************************************************************/
int QCard_SystemGetOut(char *pcCommand, unsigned char **pucOutBuf, unsigned int *puiOutLen)
{
	int len = 0, ret = 0;
	char *Command = 0;
	unsigned char *OutBuf = NULL;
	FILE *fp = NULL;
	unsigned int flen = 0;

	if (pcCommand == 0 && pucOutBuf != 0)
	{
		return -1;
	}

	remove(SYSTEMFILE);

	len = strlen(pcCommand) + 24;
	Command = (char *)malloc(len);
	memset(Command, 0, len);

	sprintf(Command, "%s > %s", pcCommand, SYSTEMFILE);
	ret = system(Command);
	free(Command);
	if (ret)
	{
		return -1;
	}

	fp = fopen(SYSTEMFILE, "r");
	if (fp == NULL)
	{
		return -1;
	}

	fseek(fp, 0L, SEEK_END); /* 定位到文件末尾 */

	flen = ftell(fp) + 1; /* 得到文件大小 */
	OutBuf = (char *)malloc(flen); /* 根据文件大小动态分配内存空间 */
	memset(OutBuf, 0, flen);
	if (OutBuf == NULL)
	{
		fclose(fp);
		return -1;
	}
	fseek(fp, 0L, SEEK_SET); /* 定位到文件开头 */
	fread(OutBuf, flen, 1, fp); /* 一次性读取全部文件内容 */
	*puiOutLen = flen;
	*pucOutBuf = OutBuf;
	return 0;
}

 

<think>好的,我现在需要回答用户关于如何用VB执行CMD命令获取返回结果的问题。首先,用户提到了几个引用资料,我需要仔细看看这些引用内容是否相关,以及如何利用它们来构建答案。 首先,引用[1]中的示例代码展示了使用ExecuteAndWait函数来执行命令并等待完成。这里用的是cmd.exe /c dir,然后返回成功与否。不过用户想要获取返回结果,而不仅仅是成功状态。这段代码可能涉及到执行命令的部分,但没提到如何捕获输出。 引用[3]提到Shell函数可以执行外部命令,但根据我的知识,Shell函数本身不会直接返回命令输出结果,只能启动进程。所以可能需要其他方法,比如将输出重定向到文件,然后读取文件内容。 引用[5]中的易语言示例提到了取DOS执行结果,其中使用了CloseHandle和管道相关的DLL命令。这提示可能需要通过创建管道来捕获命令输出流。在VB中,可能需要使用Windows API函数来创建管道、读取输出。 结合这些信息,用户需要的是VB代码示例,能够执行CMD命令获取输出结果。根据引用[1]中的ExecuteAndWait函数,可能需要扩展这个函数,使其不仅执行命令,还能捕获输出。或者,参考引用[5]中的方法,使用管道和API调用来实现。 接下来,我需要回忆如何在VB中实现这个功能。通常的做法是使用WScript.Shell对象,运行命令并将输出重定向到文本流。例如,使用WshShell.Exec方法,然后读取StandardOutput的内容。这应该是一个可行的方案。 现在,我需要验证这个方法是否正确。比如,创建一个WScript.Shell对象,执行cmd命令,将输出捕获到变量中。同时,处理可能的标准错误输出,并等待命令执行完成。这应该能获取到返回的结果。 另外,引用[1]中的示例可能缺少输出捕获,所以需要补充这部分。可能需要使用管道或者文件重定向。例如,在cmd命令中使用"> temp.txt"将输出写入文件,然后读取该文件。不过这种方法需要处理临时文件,可能不够高效,但简单易行。 不过更高效的方法应该是使用管道和API,如CreateProcess、CreatePipe等,但这在VB中可能比较复杂,需要声明很多API函数和结构体。引用[5]中的DLL命令可能涉及到这些API,但用户可能希望有一个更简单的解决方案。 综合考虑,使用WScript.Shell的Exec方法可能是比较直接的办法。例如: Set WshShell = CreateObject("WScript.Shell") Set WshExec = WshShell.Exec("cmd /c dir") Do While WshExec.Status = 0 WScript.Sleep 100 Loop Output = WshExec.StdOut.ReadAll 这样就能获取命令输出。不过需要注意,这种方法在VB中可能需要调整,比如使用DoEvents而不是Sleep,或者在循环中检查进程是否结束。 此外,还要注意字符编码的问题,确保正确读取输出内容。可能需要使用ADODB.Stream来处理不同的编码,但通常情况下,直接读取StdOut应该可以工作。 总结步骤应该是: 1. 创建WScript.Shell对象。 2. 执行命令,并捕获输出流。 3. 循环等待命令执行完成。 4. 读取输出内容。 用户提供的引用[1]中的代码使用了自定义的ExecuteAndWait函数,但没有捕获输出。因此,需要修改该函数,或者使用不同的方法。可能还需要处理标准错误流,以获取错误信息。 另外,引用[5]提到了CloseHandle函数,这可能与管道操作有关,因此如果使用API方法,可能需要处理这些句柄的关闭,避免资源泄漏。但对于大多数用户来说,使用WScript.Shell可能更简单。 最后,编写示例代码时,需要确保语法正确,并在VB环境中测试过。例如,可能需要处理同步执行、读取输出流,并返回结果。同时,错误处理也是必要的,比如检查命令是否成功执行,或者是否有错误输出。 现在,我需要将这些思考整理成一个清晰的步骤,并提供示例代码,同时引用相关的引用资料,如引用[1]和[3]中的方法。</think>以下是通过VB执行CMD命令获取返回结果的解决方案: ### 分步解决方案 1. **使用WScript.Shell对象** 通过创建`WScript.Shell`对象执行CMD命令,并重定向输出流。这是VB中操作外部命令的标准方法[^3]。 2. **配置命令参数** 需添加`/c`参数确保CMD执行后自动关闭,并将输出重定向到标准流。例如:`cmd.exe /c dir > output.txt`。 3. **通过管道或流读取输出** 使用`Exec`方法执行命令后,通过`StdOut`属性读取输出内容,避免临时文件操作[^5]。 4. **同步等待命令完成** 循环检查进程状态,确保命令执行完毕后再读取结果,防止读取不完整数据。 5. **错误处理** 同时读取`StdErr`流以捕获错误信息,完善程序的健壮性。 ### 完整示例代码 ```vb Sub ExecuteCommandAndGetOutput() Dim WshShell As Object Dim WshExec As Object Dim Output As String Dim ErrorMsg As String Set WshShell = CreateObject("WScript.Shell") Set WshExec = WshShell.Exec("cmd.exe /c dir") ' 示例命令 ' 读取标准输出 Output = WshExec.StdOut.ReadAll() ' 读取标准错误 ErrorMsg = WshExec.StdErr.ReadAll() ' 显示结果 If Len(Output) > 0 Then MsgBox "命令输出:" & vbCrLf & Output ElseIf Len(ErrorMsg) > 0 Then MsgBox "错误信息:" & vbCrLf & ErrorMsg Else MsgBox "未获取到任何输出" End If Set WshExec = Nothing Set WshShell = Nothing End Sub ``` ### 关键点说明 - **`WScript.Shell.Exec`方法**:支持同步执行命令并直接访问输入/输出流[^3]。 - **输出重定向**:无需手动处理文件,直接通过`StdOut`属性读取内容。 - **错误流分离**:通过`StdErr`独立捕获错误信息,便于调试。 - **资源释放**:操作完成后需释放对象,避免内存泄漏。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值