vladIMIRDAO
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот такое чудо.))
Необходимо что бы после закрытия блокнота можно было несколько раз вызывать из этой формы блокнот.
В общем то не только после функции Terminate.
#include <file.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Const $title = "Test "
Global $buttonOK, $inputChoseDir,$buttonChose, $inputCicle, $inputNumberSystem, $updown, $inputNPictures,$msg,$iValue,$numberSystem,$NPictures
If WinExists(@ScriptName) then Exit;предотвращение множественного запуска скрипта
AutoItWinSetTitle(@ScriptName)
Opt('MustDeclareVars', 1)
Opt("TrayIconDebug",1);ОТОБРАЖАЕТ В ТРЕЕ номер строки при зависании скрипта
;Функция Terminate закрывает все программа с которыми работает скрипт в любой момент выполнения скрипта.
HotKeySet("!q","Terminate")
GUIlist()
Func GUIlist()
Local $inputChoseDir1="C:\WINDOWS\system32\notepad.exe"
GUICreate($title, -1, -1, -1, -1 ,$WS_SIZEBOX)
$inputCicle = GUICtrlCreateInput("1", 80, 10, 50, 20)
GUICtrlSetLimit(1,5)
$updown = GUICtrlCreateUpdown($inputCicle)
; Attempt to resize input control
GUICtrlSetPos($inputCicle, 80, 10, 50, 20)
$inputNumberSystem = GUICtrlCreateInput("1", 80, 50, 50, 20)
GUICtrlSetLimit(1,5)
$updown = GUICtrlCreateUpdown($inputNumberSystem)
; Attempt to resize input control
GUICtrlSetPos($inputNumberSystem, 80, 50, 50, 20)
$inputNPictures=GUICtrlCreateInput("1", 270, 10, 50, 20)
GUICtrlSetLimit(1,5)
$updown = GUICtrlCreateUpdown($inputNPictures)
; Attempt to resize input control
GUICtrlSetPos($inputNPictures, 270, 10, 50, 20)
$inputChoseDir = GUICtrlCreateInput("C:\WINDOWS\system32\notepad.exe", 10, 120, 320, 20)
$buttonChose = GUICtrlCreateButton("Chose Dir", 330, 120,60, 20)
$buttonOK = GUICtrlCreateButton("OK", 330, 170,60, 20)
GUISetState()
While 1
$msg = GUIGetMsg()
if $msg = $buttonChose then $inputChoseDir1=openfile($inputChoseDir)
if $msg = $buttonOK then
run($inputChoseDir1)
$iValue = GUICtrlRead($inputCicle,1)
$numberSystem= GUICtrlRead($inputNumberSystem,1)
$NPictures= GUICtrlRead($inputNPictures,1)
main($ivalue)
return $ivalue
EndIf
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
EndFunc ;-->EndFunc GUIlist()
Func openfile($inputChoseDir)
Local $inputChoseDir1
Local Const $message = "Hold down Ctrl or Shift to choose multiple files."
$inputChoseDir1 = FileOpenDialog($message, "C:\WINDOWS\system32" , "(*.exe)", 1 + 4 )
If @error Then
MsgBox(4096,"","No File(s) chosen")
Else
;$inputChoseDir = StringReplace($inputChoseDir, "|", @CRLF)
GUICtrlSetData($inputChoseDir,$inputChoseDir1,"")
;$inputChoseDir1 znachenie for Run($inputChoseDir1)
EndIf
Return $inputChoseDir1
EndFunc
Func Terminate()
WinKill("Безымянный - Блокнот","")
Send("{LEFT}")
Send("{enter}")
MsgBox(0,"Test Complete","Sript is Complete ",1)
ToolTip("")
EndFunc
func main($ivalue)
Local $koltest
Local $lastname
Local $firstname
Local $ID
while( $iValue > 0 )
$lastname = Chr(Random(Asc("A"), Asc("Z"), 1))
$firstname = "firstname"&Chr(Random(Asc("Aaa"), Asc("Zzz"), 1))
$ID = Random(1000000,9000000,1)
$koltest = $koltest + 1
ToolTip("Cycle : "& $koltest,1,0)
WinWait("Безымянный - Блокнот","")
Send($firstname)
Send("{Enter}")
Sleep(5000)
Send($ID)
Send("{Enter}")
Sleep(5000)
Send($lastname)
Send("{Enter}")
Sleep(5000)
Send($firstname)
$iValue = $iValue-1
ToolTip("")
WEnd
EndFunc
|
Всего записей: 7 | Зарегистр. 28-01-2009 | Отправлено: 10:39 31-07-2009 | Исправлено: vladIMIRDAO, 10:42 31-07-2009 |
|
