[adima]

Opt("TrayIconDebug", 1 »

Интересует прогресс откомпилированного скрипта (.exe)?
Хотелось бы типа TrayTip

[266903582]

adima, предлагаю такой вариант (на скорую руку) Попробуй этим обработать исходник своей программы и, откомпилировав ее, будут traytips на каждом шагу

Код:

$fl=FileOpenDialog("","","")
$fr=FileOpen("result.au3",2)
$fl=FileOpen($fl,0)
$fl=FileRead($fl)
$tempstr=""
$final=""
While $fl<>""
	if StringLeft($fl,1)<>@CR And StringLeft($fl,1)<>@LF And StringLeft($fl,1)<>@CRLF Then 
		$tempstr&=StringLeft($fl,1)
		$fl=StringTrimLeft($fl,1)
	Else
		$final&="TrayTip("","&$tempstr&",1)"&@CRLF&$tempstr&@CRLF
		$fl=StringTrimLeft($fl,1)
		$tempstr=""
	EndIf
WEnd
FileWrite($fr,$final)

Результат ляжет в файл result.au3

[Maza Faka]

предлагаю такой вариант (на скорую руку) »

Пример не работает. Что-то подобное видел на ru-board.com. Довольно таки гиморное дело, ведь нужно будет учитывать пернос строк, операторы Switch; Select; Case, в общем вот мой вариант:

Код:

$sFile = FileOpenDialog("Выберите файл скрипта", "", "AutoIt files (*.au3)")
If @error Then Exit

$hResultFile = FileOpen("Result.au3", 2)

$sRead = FileRead($sFile)
$aStrings = StringSplit($sRead, @CRLF, 1)

$sResult = ""

For $i = 1 To $aStrings[0]
    If (StringRight($aStrings[$i], 1) <> "_") And (StringRight($aStrings[$i - 1], 1) <> "_") And _
        (StringInStr($aStrings[$i], "Switch") = 0) And (StringInStr($aStrings[$i], "Select") = 0) And _
        (StringInStr($aStrings[$i], "Case") = 0) And (StringLeft($aStrings[$i], 1) <> ";") Then

        $sResult &= 'TrayTip("", "' & StringReplace($aStrings[$i] & @TAB & _
        Int($i / $aStrings[0] * 100) & '%', '"', '') & '", 1)' & @CRLF & $aStrings[$i] & @CRLF
    Else
        $sResult &= $aStrings[$i] & @CRLF
    EndIf
Next

FileWrite($hResultFile, StringReplace($sResult, "#NoTrayIcon", ";#NoTrayIcon"))
FileClose($hResultFile)

+ Показывает процент выполнения

[Creat0R]

Что-то подобное видел на ru-board.com »

Тут вроде, но я переделал этот отладчик.

[FlatX007]

Подскажите как отключит в компе сетевую карту ???

[Maza Faka]

как отключит в компе сетевую карту ? »

Простой способ - воспользоваться утилитой devcon:
devcon.exe
DevCon Examples
Использование программы с интерфейсом командной строки DevCon

[FlatX007]

Простой способ - воспользоваться утилитой devcon: devcon.exe DevCon Examples Использование программы с интерфейсом командной строки DevCon »

Я эту утилиту я находил ... но как ей пользоватся до меня недопёрло ...

Но меня именно интересует как можно отключть именно через AutoIt ... если никто незнает скажите хоть в каком направлении копать ?

[alexey_a]

Подскажите плиз!
у меня внутри тестируемого проги определен объект:
Dundas.Charting.WinControl.Series series1
Соответсвенно я запускаю прогу. а потом хочу натравить на него автоитовский скрипт и внутри него использовать методы объекта series1.
пробую использовать ObjGet ():

Код:

$obj = ObjGet("Analyzer.exe", "Dundas.Charting.WinControl.Series")
if @error then 
  Msgbox (0,"Error","Error code: " & hex(@error,8))
  exit
endif

выдает ошибку.

[semiono]

Помогите написать, я уже прежде спрашивал, но засуетился и времени не было, но охота всётаки довести это до ума... Сам не могу, так как очень сложно... Прошу полный листинг, хотябы как часть примера...

Нужно запустить taskmgr.exe и выбрать в нём Shutdown > Restart Computer > "Yes/OK"
Версия желательно WinXP Eng. Кнопки в диспетчере насколько я помню не видны, в чём и проблемма?

Напишите полный автоит?

[Creat0R]

пробую использовать ObjGet () »

Там вроде полный путь к файлу нужен (в первом параметре).
А что если создавать объект, типа:

Код:

$oObj = ObjCreate("Dundas.Charting.WinControl.Series")

Нужно запустить taskmgr.exe и выбрать в нём Shutdown > Restart Computer > "Yes/OK" »

А почему именно через taskmgr? А если вызвать свой дилаог перезапуска, типа такого (с таймером)?

Код:

#NoTrayIcon

_ShutDown_Dialog( _
    "Windows: Принудительное завершение работы", _  ;Заголовок
    "Завершение работы системы...", _               ;Главный текст
    "Система будет перезапущена через %i сек.\r\nЗакройте все приложения и сохраните данные.", _ ;Под-текст (отображение прогресса)
    16, _   ;Метод отображения диалога (см. в справке описание для ProgressOn)
    2+4, _  ;Метод завершения работы системы
    60)     ;Интервал ожидания в секундах

Func _ShutDown_Dialog($sTitle, $sMainText, $sSubText, $iDialogFlags=-1, $iShutDownFlags=2, $iWait_Seconds=60)
    ProgressOn($sTitle, $sMainText, StringFormat($sSubText, $iWait_Seconds), Default, Default, $iDialogFlags)

    For $i = 1 To 99 Step 100 / $iWait_Seconds
        ProgressSet($i, StringFormat($sSubText, $iWait_Seconds))

        $iWait_Seconds -= 1
        Sleep(1000)
    Next

    Local $iTimer = TimerInit(), $sDots = ""

;~  Shutdown($iShutDownFlags)

    While TimerDiff($iTimer) < 10000
        $sDots &= "."
        If $sDots = "...." Then $sDots = ""

        ProgressSet(100, "", $sMainText & $sDots)
        Sleep(500)
    WEnd
EndFunc

Для перезапуска нужно раскомментировать строчку с Shutdown().

А также есть ещё такой диалог для завершения работы (обычно выводится разными программами для перезапуска системы):

Код:

_RestartDialog('Установка программы успешно завершена!')

Func _RestartDialog($sText='',$iAct=0,$hWnd = 0)
    Local $iLen = 256
    Local $sCharType = "char"
    If @OSType = "WIN32_NT" Then $sCharType = "wchar"

    Local $usText = DLLStructCreate($sCharType & "[" & $iLen & "]")
    DLLStructSetData($usText, 1, $sText & @CRLF & @CRLF)

    Local $aiCall = DLLCall("Shell32.dll","int","RestartDialog","hwnd",$hWnd,"wstr",DllStructGetData($usText,1),"dword",$iAct)
    Return $aiCall[0]
EndFunc