GUI内嵌cmd示例AU3源码

lynfr8的完美回显CMD例子

1. 
   
2. #include <GuiConstants.au3>
   
3. #include <WindowsConstants.au3>
   
4. #include <Constants.au3>
   
5. #include <EditConstants.au3>
   
6. #include <WindowsConstants.au3>
   
7. #include <GUIEdit.au3>
   
8. $Form1 = GUICreate("完美回显CMD修订版 by lynfr8", 634, 453, 193, 115)
   
9. HotKeySet("{ENTER}", "Testt")
   
10. $Edit1 = GUICtrlCreateEdit("", 0, 0, 633, 449)
    
11. GUICtrlSetData(-1,@SystemDir & ">")
    
12. ;GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console")
    
13. GUICtrlSetColor(-1, 0xFFFFFF)
    
14. GUICtrlSetBkColor(-1, 0x000000)
    
15. GUISetState(@SW_SHOW)
    
16. Global $array,$array2,$sLastLine = _GUICtrlEdit_GetTextLen($Edit1)
    
17. While 1
    
18.     Sleep(10)
    
19.     _GUICTrlEdit_SetSel($Edit1, _GUICtrlEdit_GetTextLen($Edit1)+1, _GUICtrlEdit_GetTextLen($Edit1)+1)
    
20.     $nMsg = GUIGetMsg()
    
21.     Switch $nMsg
    
22.         Case $GUI_EVENT_CLOSE
    
23.             Exit
    
24.     EndSwitch
    
25. WEnd
    
26. Func Testt ()
    
27.     Local $sCmd = StringMid(GUICtrlRead($Edit1), $sLastLine+1)
    
28.     _GUICtrlEdit_BeginUpdate($Edit1)
    
29.     recall_command($sCmd)
    
30.     _GUICtrlEdit_EndUpdate($Edit1)
    
31.     _GUICtrlEdit_AppendText($Edit1, @CRLF &@SystemDir & ">")
    
32.     Global $sLastLine = _GUICtrlEdit_GetTextLen($Edit1)-UBound($array)-UBound($array2)
    
33. EndFunc
    
34.    
    
35. Func recall_command($info)
    
36.     $cmdinfo = Run(@ComSpec & " /c " & $info,  @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD + $STDIN_CHILD)
    
37.     While 1
    
38.         $line = StdoutRead($cmdinfo)
    
39.         If @error Then Return
    
40.         If $line = "" Then ContinueLoop
    
41.   $array=StringRegExp(GUICtrlRead($Edit1),'[^\x00-\xff]',3)
    
42.   $array2=StringRegExp($line,'[^\x00-\xff]',3)
    
43.         GUICtrlSetData($Edit1, GUICtrlRead($Edit1)& @CRLF & $line);
    
44.     WEnd
    
45. EndFunc   ;==>recall_command
    

复制代码

谢谢分享！学习学习!!!!!

设用过研究一下

在代码那个位置内嵌cmd代码呢

这个比较有用，谢谢分享、