Генератор Autoit script

266903582 · Отправлено: **00:06, 09-07-2009** | #8

Может кому понадобится... Для собственных нужд писал, так что придирки к "культурности кода" не принимаются. Ничего сложного, прога собирает заголовки и (выбираемый пользователем из выводимого в листбоксе набора строк) уникальный текст окна для идентификации, а также идентификаторы контролов, может брать текст из edit боксов, вставлять его (для работы с кейгенами), распознает текст и переменные (если перед словом поставить $), закрывать окна, запускать файлы, кликать по координатам (не дорабатывал эту фичу за ненадобностью). После окончания работы установщика жмем Esc, получаем готовый скрипт автоустановщика, в редких случаях его приходится дорабатывать ручками. Нужного окна дождется автоматом, нажмет где надо... мне такого функционала хватает, а там смотрите сами.

Код:

#include <Misc.au3>
#include <GUIConstants.au3>
Opt("TrayIconDebug",1) 
;Opt("MouseCoordMode",0)
HotKeySet("{ESC}","texit")
$dll = DllOpen("user32.dll")
$file = FileOpen("file.au3", 2)
$written_to_file_text=""
$progstatus=0
$filepath=""
$write_on_exit_text=""
$_texttopaste=""
$haos=0
$FilenameOnExitChange=""
$input_variable_got=""
$current_mpos=0
$as_is=0
;fop()
;wr(";run('')")
TrayTip("","ctrl - начало записи"&@lf&"pause - пауза/возобновление записи"&@lf&"shift - диалог открытия файла"&@lf&"esc - завершение записи",1)
while not _IsPressed("11", $dll)
	sleep(10)
WEnd
TrayTip("","ЗАПИСЫВАЕМ",1)
;---------------------------------------------------------------------------------------------------------------------
While 1
	if _IsPressed("01", $dll) Then							;01-lmb 02-rmb	ctrltext & classn   11-ctrl 10-shift
		$current_mpos=MouseGetPos()
		$wtt=WinGetTitle("")
		$wgt=WinGetText("")
		$cgf=ControlGetFocus("")
		sleep(200)
		$wgt=repl($wgt)             ;выбор уникального текста с параметрами пользователем
		Select
		case $progstatus=0 ;кликнуть
			if $cgf<>"" then wr("cl('"&$wtt&"','"&$wgt&"','"&$cgf&"')")
		case $progstatus=2 ;ждать
				wr("wa('"&$wtt&"','"&$wgt&"')")
		case $progstatus=3 ;взять
			if $cgf<>"" then wr("wa('"&$wtt&"','"&$wgt&"')"&@lf&$input_variable_got&"=ControlGetText('"&$wtt&"','"&$wgt&"','"&$cgf&"')")
		case $progstatus=4 ;вставить
			if $cgf<>"" And StringLeft($_texttopaste,1)= "$" then wr("wa('"&$wtt&"','"&$wgt&"')"&@lf&"ControlSetText('"&$wtt&"','"&$wgt&"','"&$cgf&"',"&$_texttopaste&")"&";ВСТАВИТЬ ТЕКСТ СЮДА")
			if $cgf<>"" And StringLeft($_texttopaste,1)<>"$" then wr("wa('"&$wtt&"','"&$wgt&"')"&@lf&"ControlSetText('"&$wtt&"','"&$wgt&"','"&$cgf&"','"&$_texttopaste&"')"&";ВСТАВИТЬ ТЕКСТ СЮДА")
		case $progstatus=10 ;окно возможно
			if $cgf<>"" then $write_on_exit_text&=@tab&@tab&"if WinExists('"&$wtt&"','"&$wgt&"') then ControlClick('"&$wtt&"','"&$wgt&"','"&$cgf&"')"&@lf
		case $progstatus=12 ;закрыть окно
			wr("wa('"&$wtt&"','"&$wgt&"')"&@lf&"WinClose('"&$wtt&"','"&$wgt&"')")
			WinClose($wtt,$wgt)
		case $progstatus=15;Отмена блока
			Sleep(1);ExitLoop 
		case $progstatus=20;Кликаем по координатам мыши  (при возможном появлении окна не сработает. отладить в будущем совместную работу опций)
				wr("wa('"&$wtt&"','"&$wgt&"')"&@lf&"MouseClick('left',"&$current_mpos[0]&","&$current_mpos[1]&",1,0)")
		EndSelect
		;TrayTip($wtt,$cgf,1)
		$progstatus=0
		$as_is=0
	EndIf
	if _IsPressed("10",$dll) Then fop()
	if _IsPressed("13",$dll) Then pause()
	if _IsPressed("1b", $dll) Then texit();ExitLoop		;esc
	sleep(10)
WEnd
;---------------------------------------------------------------------------------------------------------------------
func texit()	;завершение
	wr("Func wa($tx1, $tx2)")
	wr("	While Not WinExists($tx1, $tx2)")
	wr($write_on_exit_text&"		;if WinExists("","") then WinClose("","")")
	wr("		Sleep(1) ")
	wr("	WEnd ")
	wr("	;WinActivate($tx1, $tx2)")
	wr("EndFunc")
	wr("Func cl($tx1, $tx2,$classn)")
	wr("	wa($tx1, $tx2)")
	wr("	ControlClick($tx1, $tx2,$classn)")
	wr("EndFunc") 
	DllClose($dll)
	FileClose($file)
	if $FilenameOnExitChange<>"" Then
		if MsgBox(4,"","Переименовать файл скрипта?")=6 Then
			$FilenameOnExitChange=StringTrimRight($FilenameOnExitChange,4)
			FileMove("file.au3",$FilenameOnExitChange&"_au3.au3",1)
		EndIf
		if MsgBox(4,"","Компилировать скрипт?")=6 Then
			TrayTip("","Compiling in process",1)
			RunWait(@ProgramFilesDir&'\AutoIt3\Aut2Exe\Aut2exe.exe /in '&@ScriptDir&'\'&$FilenameOnExitChange&'_au3.au3')
		EndIf
	EndIf
	exit
EndFunc
Func fop()
	$filepath=FileOpenDialog("",@WorkingDir,"Программы (*.exe)")
	if  Not @error And StringLeft($filepath,9)<>"c:\Progra" then
		$filepath=fred($filepath)
		wr("run('"&$filepath&"')")
		run($filepath)
	Else
		wr("run('"&$filepath&"')")
		run($filepath)
	EndIf
	if $FilenameOnExitChange="" Then $FilenameOnExitChange=$filepath
	$filepath=""
EndFunc
Func fred($ppp)
	$ppp_=""
	while StringRight($ppp,1)<>"\"
		$ppp_=StringRight($ppp,1)&$ppp_
		$ppp=StringTrimRight($ppp,1)
	WEnd
	Return $ppp_
EndFunc
Func pause()
	TrayTip("","ПАУЗА",1)
	sleep(300)
	while 1
		if _IsPressed("13",$dll) OR $filepath<>"" Then ExitLoop
		sleep(10)
	WEnd
	TrayTip("","ЗАПИСЫВАЕМ",1)
	sleep(300)
EndFunc
Func wr($text_to_write)
	if $written_to_file_text<>$text_to_write then 
		FileWrite($file,$text_to_write&@LF)
		$written_to_file_text=$text_to_write
	EndIf
EndFunc
Func wa($tx1, $tx2)
	While Not WinExists($tx1, $tx2)
		Sleep(1) 
	WEnd 
EndFunc
Func cl($tx1, $tx2,$classn)
	wa($tx1, $tx2)
	ControlClick($tx1, $tx2,$classn)
EndFunc
;------------------------------------------------------------------------------------------------------GUI start
func repl($whole_window_text)
	$tempstr=$whole_window_text
	$tempstr=StringReplace($tempstr,@crlf,"|")
	$tempstr=StringReplace($tempstr,@cr,"|")
	$tempstr=StringReplace($tempstr,@lf,"|")
	GUICreate("Выбери параметры и уникальный текст окна",310,350,-1,-1,-1,$WS_EX_TOPMOST)
	$ctrl=GUICtrlCreateLabel($cgf,0,5)
	$butt_cancel_block=GUICtrlCreateButton("Отмена блока",220,0,90)
	$butt_cancel_radio=GUICtrlCreateButton("Очистка опций",220,25,90)
	$radio_wa=GUICtrlCreateRadio("Просто ждать появления этого окна",0,25)
	$radio_get=GUICtrlCreateRadio("Читать отсюда текст",0,50)
	$input_variable_gui_get=GUICtrlCreateInput("",150,50)
	$radio_set=GUICtrlCreateRadio("Вставить сюда текст",0,75)
	$texttopaste=GUICtrlCreateInput("",150,75)
	$radio_possible=GUICtrlCreateRadio("Появление окна возможно, но необязательно",0,100)
	$radio_close=GUICtrlCreateRadio("Закрыть окно",0,125)
	$checkb_haos=GUICtrlCreateCheckbox("Произвольный порядок",120,125)
	$checkb_mpos=GUICtrlCreateCheckbox("Mpos",263,125)
	$butt_ok=GUICtrlCreateButton("Как есть",165,0)
	$listb=GUICtrlCreateList("",0,150,300,300,$LBS_USETABSTOPS)
	GUICtrlSetState($texttopaste,$GUI_HIDE)
	GUICtrlSetState($input_variable_gui_get,$GUI_HIDE)
   GUISetState(@SW_SHOW)
	GUICtrlSetData($listb,$tempstr)
	if $haos=1  then GUICtrlSetState ($checkb_haos,$GUI_CHECKED)
	if $haos<>1 then GUICtrlSetState ($checkb_haos,$GUI_UNCHECKED)
	$msg=0
	While $msg <> $GUI_EVENT_CLOSE
		$msg = GUIGetMsg()
		Select
		case $msg=$listb
			;MsgBox(0,"",GUICtrlRead($listb))
			$whole_window_text=GUICtrlRead($listb)
			ExitLoop
		case $msg=$butt_cancel_block
			$progstatus=15
			ExitLoop
		case $msg=$butt_cancel_radio
			GUICtrlSetState ($radio_wa,$GUI_UNCHECKED)
			GUICtrlSetState ($radio_get,$GUI_UNCHECKED)
			GUICtrlSetState ($radio_set,$GUI_UNCHECKED)
			GUICtrlSetState ($radio_possible,$GUI_UNCHECKED)
			GUICtrlSetState ($radio_close,$GUI_UNCHECKED)		
			GUICtrlSetState ($checkb_haos,$GUI_UNCHECKED)
			GUICtrlSetState ($checkb_mpos,$GUI_UNCHECKED)
		case $msg=$radio_set
			GUICtrlSetState($texttopaste,$GUI_SHOW)
		case $msg=$radio_get
			GUICtrlSetState($input_variable_gui_get,$GUI_SHOW)
		case $msg=$butt_ok
			$as_is=1
			ExitLoop
		EndSelect
	WEnd
	if $progstatus<>15 Then
		if GUICtrlRead($radio_wa)=1 then $progstatus=2
		if GUICtrlRead($radio_get)=1 then $progstatus=3
		if GUICtrlRead($radio_get)=1 then $input_variable_got=GUICtrlRead($input_variable_gui_get)
		if GUICtrlRead($radio_set)=1 then $progstatus=4
		if GUICtrlRead($radio_set)=1 then $_texttopaste=GUICtrlRead($texttopaste)
		if GUICtrlRead($radio_possible)=1 then $progstatus=10	
		if GUICtrlRead($radio_close)=1 then $progstatus=12
		if GUICtrlRead($checkb_haos)=1 then $haos=1
		if GUICtrlRead($checkb_haos)<>1 then $haos=0
		if GUICtrlRead($checkb_mpos)=1 then $progstatus=20
		if $haos=1 Then $progstatus=10
	EndIf
	GUIDelete()
	$tempstr=""
	While StringLeft($whole_window_text,1)<>"" And StringLeft($whole_window_text,1)<>"'" And StringLeft($whole_window_text,1)<>'"'  ;чистим уникальный текст от недопустимых символов
		$tempstr&=StringLeft($whole_window_text,1)
		$whole_window_text=StringTrimLeft($whole_window_text,1)
	WEnd
	$whole_window_text=$tempstr
	if $as_is=1 Then $whole_window_text=""
	return $whole_window_text
EndFunc
;----------------------------------------------------------------------------------------------------------------------GUI end

Ctrl - начало слежения за установкой (если нажатие не нужно записывать - жми кнопку "отмена блока")
Shift - открытие файла инстальника, кейгена и т.п. необходимого в процессе установки.
Для создания автоустанавливающихся комплектов я использую отдельную виртуальную машину, чтобы не отвлекаться в процессе создания автоустановщика, чего и вам советую...