#include <GUIConstants.au3>
#include <Constants.au3>
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
Global $WS_POPUP, $WS_BORDER
$mainWindow = GUICreate("Embed Cmd", 500, 500, 10, 10)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUISetState (@SW_SHOW)
GUIRegisterMsg(0xF, "WM_PAINT")
; create a borderless window that is a child to the main window
$embedWindow = GUICREATE("", 477, 165, 15, 320, $WS_POPUP, -1, $mainWindow)
DllCall("user32.dll", "hwnd", "SetParent", "hwnd", $embedWindow, "hwnd", $mainWindow)
; launch the command prompt (black on white, without the operating system message)
$pid = run("cmd.exe /T:F0 /k")
ProcessWait ($pid)
; get the handle of the cmd window as i cannot be certain that there will be only one instance of the cmd running with the same window title or class
$cmdHandle = _ProcessGetHWnd($pid, 2)
$hWndChild = $cmdHandle[1][1]
; make the command prompt window a child to the earlier created borderless child window
DllCall("user32.dll", "hwnd", "SetParent", "hwnd", $hWndChild, "hwnd", $embedWindow)
; resize the command prompt window so that its bolder and title bar are outside the borderless child window
; giving the appearance of a borderless command prompt
WinMove($hWndChild, '', -4, -30, 485, 206)
WinSetState($hWndChild, '', @SW_SHOW)
WinSetState($embedWindow, '', @SW_SHOW)
; inifinite event loop
While 1
; sleep for 100 milliseconds (to not hog the cpu)
sleep(100)
; end of event loop
WEnd
Func CLOSEClicked()
; take care of things to do when exiting
Winkill($hWndChild)
Exit
EndFunc
Func WM_PAINT($hWnd, $Msg, $wParam, $lParam)
Sleep(100)
DllCall("user32.dll", "int", "InvalidateRect", "hwnd", $hWnd, "ptr", 0, "int", 0)
EndFunc ;==>WM_PAINT
;===============================================================================
;
; Function Name: _ProcessGetHWnd
; Description: Returns the HWND(s) owned by the specified process (PID only !).
;
; Parameter(s): $iPid - the owner-PID.
; $iOption - Optional : return/search methods :
; 0 - returns the HWND for the first non-titleless window.
; 1 - returns the HWND for the first found window (default).
; 2 - returns all HWNDs for all matches.
;
; $sTitle - Optional : the title to match (see notes).
; $iTimeout - Optional : timeout in msec (see notes)
;
; Return Value(s): On Success - returns the HWND (see below for method 2).
; $array[0][0] - number of HWNDs
; $array[x][0] - title
; $array[x][1] - HWND
;
; On Failure - returns 0 and sets @error to 1.
;
; Note(s): When a title is specified it will then only return the HWND to the titles
; matching that specific string. If no title is specified it will return as
; described by the option used.
;
; When using a timeout it's possible to use WinWaitDelay (Opt) to specify how
; often it should wait before attempting another time to get the HWND.
;
;
; Author(s): Helge
;
;===============================================================================
Func _ProcessGetHWnd($iPid, $iOption = 1, $sTitle = "", $iTimeout = 2000)
Local $aReturn[1][1] = [[0]], $aWin, $hTimer = TimerInit()
While 1
; Get list of windows
$aWin = WinList($sTitle)
; Searches thru all windows
For $i = 1 To $aWin[0][0]
; Found a window owned by the given PID
If $iPid = WinGetProcess($aWin[$i][1]) Then
; Option 0 or 1 used
If $iOption = 1 OR ($iOption = 0 And $aWin[$i][0] <> "") Then
Return $aWin[$i][1]
; Option 2 is used
ElseIf $iOption = 2 Then
ReDim $aReturn[UBound($aReturn) + 1][2]
$aReturn[0][0] += 1
$aReturn[$aReturn[0][0]][0] = $aWin[$i][0]
$aReturn[$aReturn[0][0]][1] = $aWin[$i][1]
EndIf
EndIf
Next
; If option 2 is used and there was matches then the list is returned
If $iOption = 2 And $aReturn[0][0] > 0 Then Return $aReturn
; If timed out then give up
If TimerDiff($hTimer) > $iTimeout Then ExitLoop
; Waits before new attempt
Sleep(Opt("WinWaitDelay"))
WEnd
; No matches
SetError(1)
Return 0
EndFunc ;==>_ProcessGetHWnd
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-8-14 17:26:32
.gif)
发表于 2009-8-14 22:01:30
.gif)
.gif)