找回密码
 加入
搜索
查看: 3633|回复: 10

[AU3基础] [已解决]自己转换了一段代码帮忙看下哪里有问题

  [复制链接]
发表于 2015-12-11 11:48:12 | 显示全部楼层 |阅读模式
本帖最后由 繁星 于 2015-12-17 11:02 编辑

原始代码:
#include "windows.h"
#include "resource.h"
HWND hInst;
LRESULT CALLBACK PING(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
  DWORD hWrite,hRead;
  STARTUPINFO startupinfo;
  PROCESS_INFORMATION pinfo;
  SECURITY_ATTRIBUTES sat;
  TCHAR  szBuffer[1024],ipBuffer[20];
  int bytesRead;
  HWND  hwndEdit;
  switch (message)
  {
    case WM_INITDIALOG:
      
        SendMessage(hDlg,WM_SETICON,ICON_BIG,LoadIcon(hInst,ICO_PING));
        return TRUE;

    case WM_COMMAND:
      switch (LOWORD(wParam)) 
      {
      case IDC_EXIT:
        EndDialog(hDlg, LOWORD(wParam));
        break;
      case IDOK:
        RtlZeroMemory(ipBuffer,20);
        strcpy(ipBuffer,"ping ");
        GetDlgItemText(hDlg,IDC_IPADDRESS,ipBuffer+5,20);

        hwndEdit=GetDlgItem(hDlg,IDC_OUTINFOR);

        sat.nLength=sizeof(SECURITY_ATTRIBUTES);
        sat.bInheritHandle=TRUE;
        sat.lpSecurityDescriptor=NULL;
        
        if(CreatePipe(&hRead,&hWrite,&sat,0)==0)    //创建匿名管道
          MessageBox(hDlg,TEXT("创建管道失败"),TEXT("PING"),MB_OK);
        else
        {
          startupinfo.cb=sizeof(STARTUPINFO);
          GetStartupInfo(&startupinfo);
          startupinfo.hStdOutput=hWrite;      //用管道的写端代替控制台程序的输出端以便得到输出的信息
          startupinfo.hStdError=hWrite;0                       
          startupinfo.dwFlags=STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES ;
          startupinfo.wShowWindow=SW_HIDE;        //隐藏控制台程序窗口
          if(CreateProcess(NULL, ipBuffer,NULL,NULL,TRUE,NULL,NULL,NULL,&startupinfo,&pinfo)==NULL)
            MessageBox(hDlg,TEXT("创建进程失败"),TEXT("PING"),MB_OK);
          else
          {
            CloseHandle(hWrite);        //关闭写端,因为写端已经给了控制台程序,不能存在两个写端
            while(TRUE)
            {
                            RtlZeroMemory(szBuffer,1024); 
                            if(ReadFile(hRead,szBuffer,1023,&bytesRead,NULL)==NULL)  //注意ReadFile的第一个参数正是读端的句柄
                                break;
                            SendMessage(hwndEdit,EM_SETSEL,-1,0); 
                            SendMessage(hwndEdit,EM_REPLACESEL,FALSE,szBuffer);    //循环读入信息直到没有信息可读
                        }

          }
          CloseHandle(hWrite);
        }
        break;
      }
      return TRUE;
  }
    return FALSE;
}
int APIENTRY WinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPSTR     lpCmdLine,
                     int       nCmdShow)
{
  hInst=hInstance;
   DialogBoxParam(hInstance,(LPCTSTR)DLG_MAIN,NULL,(DLGPROC)PING,NULL);
  return 0;
}
我写的:
#include <WinAPI.au3>
#include <WinAPISys.au3>

#include <GuiEdit.au3>
#include <NamedPipes.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$CMDShell = GUICreate("CMDShell", 391, 257, 192, 124)
$Label1 = GUICtrlCreateLabel("命令:", 9, 7, 31, 17)
$Input1 = GUICtrlCreateInput("", 45, 4, 281, 21)
$Button1 = GUICtrlCreateButton("执行", 335, 1, 41, 25)
GUICtrlCreateGroup("执行结果", 6, 28, 377, 222)
$Edit1 = GUICtrlCreateEdit("", 12, 43, 365, 201)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        CaptureConsole()
        EndSwitch
WEnd

Func CaptureConsole()
                
        Local $hRead, $hWrite, $bytesRead, $SzBuffer = DllStructCreate('wchar SzBuffer[1024]'), $IpBuffer = DllStructCreate('wchar IpBuffer[20]')
        Local $tagSTARTUPINFO = "int Size;ptr Reserved1;ptr Desktop;ptr Title;int X;int Y;int XSize;int YSize;int XCountChars;" & _
                "int YCountChars;int FillAttribute;int Flags;short ShowWindow;short Reserved2;ptr Reserved3;int StdInput;" & _
                "int StdOutput;int StdError"
    Local $tagPROCESS_INFORMATION = "hwnd hProcess;hwnd hThread;int ProcessID;int ThreadID"
        Local $tagSECURITY_ATTRIBUTES = "int Length;ptr Descriptor;int InheritHandle"

        _WinAPI_ZeroMemory($IpBuffer, 20)

        Local $startupinfo = DllStructCreate($tagSTARTUPINFO)
        Local $pinfo = DllStructCreate($tagPROCESS_INFORMATION)
        Local $sat = DllStructCreate($tagSECURITY_ATTRIBUTES)
        
        DllStructSetData($sat, 'Length', DllStructGetSize($sat))
        DllStructSetData($sat, 'InheritHandle', True)
        DllStructSetData($sat, 'Descriptor', Null)
        
        $IpBuffer = GUICtrlRead($Input1)
                
    If _NamedPipes_CreatePipe($hRead, $hWrite, $sat) <> 1 Then 
                MsgBox(0, '', '创建匿名管道失败!')
    Else
                DllStructSetData($startupinfo, 'Size', DllStructGetSize($startupinfo))
                $startupinfo = _WinAPI_GetStartupInfo()
                DllStructGetData($startupinfo, 'StdOutput', $hWrite)
                DllStructSetData($startupinfo, 'StdError', $hWrite)
                DllStructSetData($startupinfo, 'Flags', $STARTF_USESHOWWINDOW & '|' & $STARTF_USESTDHANDLES)
                DllStructSetData($startupinfo, 'ShowWindow', @SW_HIDE)
                If _WinAPI_CreateProcess(Null, $IpBuffer, Null, Null, True, Null, Null, Null, $startupinfo, $pinfo) <> 1 Then
                        MsgBox(0, '', '创建子进程失败!')
        Else
                        _WinAPI_CloseHandle($hWrite)
                    While 1
                                _WinAPI_ZeroMemory($szBuffer, 1024)
                                If _WinAPI_ReadFile($hRead, $szBuffer, 1023, $bytesRead, Null) = '' Then
                                        ExitLoop
                            Else
                                        _GUICtrlEdit_SetSel($Edit1, -1, 0)
                                        _GUICtrlEdit_ReplaceSel($Edit1, $szBuffer, False)
                            EndIf
                    WEnd        
                EndIf        
    EndIf
EndFunc        
发表于 2015-12-11 14:55:51 | 显示全部楼层
本帖最后由 ceoguang 于 2015-12-11 14:57 编辑
#include <WinAPI.au3>
#Include <WinAPIEx.au3>

;#include <WinAPISys.au3>

#include <GuiEdit.au3>
#include <NamedPipes.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$CMDShell = GUICreate("CMDShell", 391, 257, 192, 124)
$Label1 = GUICtrlCreateLabel("命令:", 9, 7, 31, 17)
$Input1 = GUICtrlCreateInput("ping www.baidu.com", 45, 4, 281, 21)
$Button1 = GUICtrlCreateButton("执行", 335, 1, 41, 25)
GUICtrlCreateGroup("执行结果", 6, 28, 377, 222)
$Edit1 = GUICtrlCreateEdit("", 12, 43, 365, 201)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        CaptureConsole()
        EndSwitch
WEnd

Func CaptureConsole()

        Local $hRead, $hWrite, $bytesRead, $SzBuffer = DllStructCreate('char SzBuffer[1024]')
        Local $tagSTARTUPINFO = "int Size;ptr Reserved1;ptr Desktop;ptr Title;int X;int Y;int XSize;int YSize;int XCountChars;" & _
                        "int YCountChars;int FillAttribute;int Flags;short ShowWindow;short Reserved2;ptr Reserved3;int StdInput;" & _
                        "int StdOutput;int StdError"
        Local $tagPROCESS_INFORMATION = "hwnd hProcess;hwnd hThread;int ProcessID;int ThreadID"
        Local $tagSECURITY_ATTRIBUTES = "int Length;ptr Descriptor;int InheritHandle"


        Local $startupinfo = DllStructCreate($tagSTARTUPINFO)
        Local $pinfo = DllStructCreate($tagPROCESS_INFORMATION)
        Local $sat = DllStructCreate($tagSECURITY_ATTRIBUTES)

        DllStructSetData($sat, 'Length', DllStructGetSize($sat))
        DllStructSetData($sat, 'InheritHandle', True)
        DllStructSetData($sat, 'Descriptor', Null)

        ;$IpBuffer = GUICtrlRead($Input1)

        If _NamedPipes_CreatePipe($hRead, $hWrite,DllStructGetPtr($sat)) <> True Then
                MsgBox(0, '', '创建匿名管道失败!')
        Else
                DllStructSetData($startupinfo, 'Size', DllStructGetSize($startupinfo))
                ;$startupinfo = _WinAPI_GetStartupInfo()
                DllStructGetData($startupinfo, 'StdOutput', $hWrite)
                DllStructSetData($startupinfo, 'StdError', $hWrite)
                DllStructSetData($startupinfo, 'Flags', BitOR($STARTF_USESHOWWINDOW,$STARTF_USESTDHANDLES))
                DllStructSetData($startupinfo, 'ShowWindow', @SW_HIDE)
                If _WinAPI_CreateProcess('', GUICtrlRead($Input1), Null, Null, True, 0, Null, Null, DllStructGetPtr($startupinfo), DllStructGetPtr($pinfo)) <> 1 Then
                        MsgBox(0, '', '创建子进程失败!')
                Else
                        _WinAPI_CloseHandle($hWrite)
                        While 1
                                _WinAPI_ZeroMemory(DllStructGetPtr($SzBuffer), DllStructGetSize($SzBuffer))
                                If _WinAPI_ReadFile($hRead, DllStructGetPtr($SzBuffer), DllStructGetSize($SzBuffer), $bytesRead) = False Then
                                        ConsoleWrite(StringFormat('ReadFile error:%d\r\nReadFile error msg:%s\r\n',_WinAPI_GetLastError(),_WinAPI_GetLastErrorMessage()))
                                        ExitLoop
                                Else
                                        _GUICtrlEdit_SetSel($Edit1, -1, 0)
                                        _GUICtrlEdit_ReplaceSel($Edit1, DllStructGetData($SzBuffer,1), False)
                                EndIf
                        WEnd
                EndIf
                _WinAPI_CloseHandle($hRead)
                _WinAPI_CloseHandle(DllStructGetData($startupinfo,'hProcess'))
                _WinAPI_CloseHandle(DllStructGetData($startupinfo,'hThread'))
        EndIf
EndFunc   ;==>CaptureConsole
 楼主| 发表于 2015-12-11 15:59:52 | 显示全部楼层
回复 2# ceoguang


   大哥,非常感谢,但为什么最后还是没有取不到值呢,XP测试
发表于 2015-12-11 16:46:42 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2015-12-11 16:58:36 | 显示全部楼层
回复 4# ceoguang


    我这里都是XP环境,我又换了台机子测试了一下,还是一样,取不到值,不知道哪里出问题了~
发表于 2015-12-11 18:19:34 | 显示全部楼层
回复 4# ceoguang


    测试了C版的代码,完美通过,版主热心,学习了
发表于 2015-12-11 19:41:57 | 显示全部楼层
测试了C版的代码
发表于 2015-12-12 13:50:30 | 显示全部楼层
这个好,支持一下,一直还想问呢,想想还是先学基础,今日有幸看到,收藏学习了。
 楼主| 发表于 2015-12-12 18:14:33 | 显示全部楼层
回复 4# ceoguang


    C大,今天刚好在网吧windows7 64位测试了一下,确实可以的,但XP下却不行,为什么呢
发表于 2015-12-13 12:57:35 | 显示全部楼层
回复 9# 繁星

没有XP环境,请在SITE中运行看看有没有输出,或者PM我提供联系方式
 楼主| 发表于 2015-12-14 09:31:22 | 显示全部楼层
回复 10# ceoguang



可以运行,无错误

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-14 19:30 , Processed in 0.082588 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表