#NoTrayIcon
#include <file.au3>
#include<Constants.au3>
#include<GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include <MMBLib.au3>
#include <WinAPI.au3>
; Change into the WinTitleMatchMode that supports classnames and handles
AutoItSetOption("WinTitleMatchMode", 4)
AutoItSetOption("WinSearchChildren", 1)
; get the string from commandline
$cmd = $CmdLine[1]
#$cmd = '"C:\Program Files (x86)\RipBot264\tools\avs2yuv\pipebuf.exe" "C:\Program Files (x86)\RipBot264\tools\avs2yuv\avs2yuv.exe" "D:\temp\RipBot264temp\job1\job1.avs" - : "C:\Program Files (x86)\RipBot264\tools\x264\x264_x64.exe" --pass 1 --bitrate 852 --stats "D:\temp\RipBot264temp\job1\job1.stats" --fps 50 --force-cfr --min-keyint 50 --keyint 500 --frames 2000 --sar 1:1 --level 4.0 --aud --nal-hrd vbr --vbv-bufsize 25000 --vbv-maxrate 25000 --filter 0,0 --ref 3 --bframes 3 --b-adapt 2 --b-pyramid none --subme 7 --aq-mode 1 --trellis 2 --partitions all --me umh --stdin y4m --output "D:\temp\RipBot264temp\video.264" - : 2'
; Atribute the MMB Title
#$MMBTitle = 'MMBTitle'
$ConsoleWindowClassTmpParam = "Title$='Go...'"
SendScriptMMB($MMBTitle, $ConsoleWindowClassTmpParam)
$PID = Run(@ComSpec, "", @SW_SHOW)
Sleep(1000)
; Get the handle of a cmd.exe window (from its classname)
$ConsoleWindowClass = WinGetTitle("classname=ConsoleWindowClass", "")
$ConsoleWindowClass = stringreplace($ConsoleWindowClass,@LF,"")
Opt("SendKeyDownDelay", 1)
Opt("SendKeyDelay", 1)
$cmd = $cmd & @CR & 'pause' & "{ENTER}"
ControlSend("[CLASS:ConsoleWindowClass]", "", "", $cmd)
While 1
; Get the handle of a cmd.exe window (from its classname)
$ConsoleWindowClassTmp = WinGetTitle("classname=ConsoleWindowClass", "")
$ConsoleWindowClassTmp = stringreplace($ConsoleWindowClassTmp,@LF,"")
; get the length of obtained $ConsoleWindowClassTmp
$Len=StringLen($ConsoleWindowClassTmp)
If @error Then ExitLoop
If $ConsoleWindowClassTmp = $ConsoleWindowClass & ' - pause' Then
$ConsoleWindowClassTmpParam = "Title$='Done...'"
SendScriptMMB($MMBTitle, $ConsoleWindowClassTmpParam)
$cmd = "{ENTER}" & 'exit' & "{ENTER}"
ControlSend("[CLASS:ConsoleWindowClass]", "", "", $cmd & "{ENTER}")
exit
EndIf
If $ConsoleWindowClassTmp = '0' Then
$ConsoleWindowClassTmpParam = "Title$='Error...'"
SendScriptMMB($MMBTitle, $ConsoleWindowClassTmpParam)
exit
EndIf
If $Len < '80' Then
$ConsoleWindowClassTmpParam = "Title$='" & $ConsoleWindowClassTmp & "'"
SendScriptMMB($MMBTitle, $ConsoleWindowClassTmpParam)
Else
$ConsoleWindowClassTmpParam = "Title$='Script Runing...'"
SendScriptMMB($MMBTitle, $ConsoleWindowClassTmpParam)
EndIf
Sleep(50)
WEnd
Modifié en dernier par Anthony le ven. 18 févr. 2011 20:23, modifié 1 fois.
Je suis diagnostiqué pour trouble de la concentration, soyez indulgent
Merci à tous pour votre aide.
UDF: GuiStatusBarEx --- 2025/03/17 --- Une StatusBar complète, rapide et simple
Code: Code-Texte fusion --- Une GUI pour fusionner des GCodes pour CNC 3018
Cool: Base64 Compression Tool --- des fichiers dans vos scripts
Je suis diagnostiqué pour trouble de la concentration, soyez indulgent
Merci à tous pour votre aide.
UDF: GuiStatusBarEx --- 2025/03/17 --- Une StatusBar complète, rapide et simple
Code: Code-Texte fusion --- Une GUI pour fusionner des GCodes pour CNC 3018
Cool: Base64 Compression Tool --- des fichiers dans vos scripts