[DImaN!]

Сама программа - нет, скрипт по эмуляции работы человека - на AutoIT

[Maza Faka]

DImaN!
Непонятен смысл такого "логирования". Ведь все действия и так будут описаны в скрипте Смотри функции FileWrite(); FileWriteLine()

[Babullika]

Здраствуйте , уважаемые програмисты , подскажите как можно средствами AutoIT определить что программа зависла ? Нужно типо if <прога зависла> do ...

[266903582]

По вопросу записи действий пользователя могу подкинуть примерчик. Писал для личного пользования, упрощал создание автоустановщика программ.

Код:

#include <Misc.au3>
FileDelete("file.au3")
$dll = DllOpen("user32.dll")
$file = FileOpen("file.au3", 1)
$ffi=""
wr("run('')")
while not _IsPressed("11", $dll)		;ждем нажатия контрола
	sleep(10)
WEnd
TrayTip("","ЗАПИСЫВАЕМ",1)
While 1
	if _IsPressed("01", $dll) Then							;lmb	ctrltext & classn  
		$wtt=WinGetTitle("")
		$wgt=WinGetText("")
		$wgt=repl($wgt)             
		$cgf=ControlGetFocus("")
		if $cgf<>"" then wr("cl('"&$wtt&"','"&$wgt&"','"&$cgf&"')")  ;ControlGetText("","",ControlGetFocus(""))&@lf&
		ToolTip($wtt&@lf&$cgf)
	EndIf
	if _IsPressed("13",$dll) Then
		TrayTip("","ПАУЗА",1)
		sleep(300)
		while 1
			if _IsPressed("13",$dll) Then ExitLoop
			sleep(10)
		WEnd
		TrayTip("","ЗАПИСЫВАЕМ",1)
		sleep(300)
	EndIf
	if _IsPressed("1b", $dll) Then ExitLoop												;esc
	sleep(10)
WEnd
;дополнение :)
wr("Func wa($tx1, $tx2)")
wr("	While WinExists($tx1, $tx2)=0")
wr("		Sleep(1) ")
wr("	WEnd ")
wr("EndFunc")
wr("Func cl($tx1, $tx2,$classn)")
wr("	wa($tx1, $tx2)")
wr("	ControlClick($tx1, $tx2,$classn)")
wr("EndFunc")
DllClose($dll)
FileClose($file)
Func wr($ff)
	if $ffi<>$ff then 
		FileWrite($file,$ff&@LF)
		$ffi=$ff
	EndIf
EndFunc

Func wa($tx1, $tx2)
	While WinExists($tx1, $tx2)=0
		Sleep(1) 
	WEnd 
EndFunc
Func cl($tx1, $tx2,$classn)
	wa($tx1, $tx2)
	ControlClick($tx1, $tx2,$classn)
EndFunc
func repl($ffff)
$tempstr=$ffff
$tempstr=StringReplace($tempstr,@crlf,@lf)
$tempstr=StringReplace($tempstr,@cr,@lf)
$ffff=""
$buff=""
$counter=0

while StringLen($ffff)<200; or StringLen($tempstr)<>0
	$symb=StringLeft($tempstr,1)
	$tempstr=StringTrimLeft($tempstr,1)
	$buff=$buff&$symb
	if $symb=@lf Then
		if $counter<10 then $buff=""
		if $counter>=30 then 
			$ffff=$ffff&$buff;&@lf
			$counter=0
			$symb=""
		EndIf
	EndIf
	if $symb<>@lf Then $counter+=1
	if StringLen($tempstr)=0 then ExitLoop
WEnd
$ffff=StringReplace($ffff,"'","")
	return $ffff
EndFunc

После его работы файл необходимо подредактировать и все готово
Хотя скрипт до ума так и не доведен, но пользоваться можно.

[Solitude]

Подскажите, можно ли средставми AutoIt изменять резрешения к определенному разделу реестра ?

[Maza Faka]

Babullika

как можно средствами AutoIT определить что программа зависла ?

Код:

$hWnd = WinGetHandle("Документ1 - Microsoft Word")

$aRet = DllCall("user32.dll", "int", "IsHungAppWindow", "hwnd", $hWnd)

If $aRet[0] = 1 Then MsgBox(64, "Внимание", "Приложение не отвечает")

Проверил на MS Word-e, "вешаем" его вот этой строчкой: уточнение наличия запасов м.с.;, и хотя в официальном описании сказано, "Ghost windows always return TRUE", тем не менее функция работает правильно

[Babullika]

2 Maza Faka СПАСИБО огомное !
Щас появилась ещё одна проблемма , делаю ProcessClose на прогу у которой есть иконка в трее и иконка непропадает пока на неё не наведёшь мышкой , можно как-нибудь сделать чтоб она сразу пропадала ?

[Maza Faka]

Babullika
SystemTray_Refresh

[Positiv]

Подскажите пожалйста примерчик следующего скрипта: скрипт проверяет соединение с интернетом, если таковое отсутствует то подключает подключение по умолчанию. Буду премного благодарен!!!

[Wu-Tang]

Хочу поделиться закомпиленным скриптом, взятым в FAQ-е по автоустановке, подредактированного мной, для авторебута компьютера, после первого логона в систему: