Версия: AutoIt v3
Описание: В скрипте нужно скрыть все активные окна, после завершения скрипта нужно их заного активировать.
Проверил
работает нормально.
Вот сам скрипт, в нём не работает, подскажите по какой причине?
P.S. Первый раз делаю что то связанное с GUI, если я не правельно пользуюсь Case прозьба не обсмеивать :-[ а указать как можно, для кнопки указать функцию...
P.S.S. в скрипте много коментариев, их я делал для себя, так как было мало времени, что бы сделать весь скрипт сразу, я делал в разное время
Описание: В скрипте нужно скрыть все активные окна, после завершения скрипта нужно их заного активировать.
Проверил
Код:
WinMinimizeAll()
Sleep(3000)
WinMinimizeAllUndo()работает нормально.
Вот сам скрипт, в нём не работает, подскажите по какой причине?
Код:
HotKeySet("{ESC}","_Exit")
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\mama\desktop\form.kxf
$Form = GUICreate("Программа", 385, 530, 200, 127)
$Pic1 = GUICtrlCreatePic("C:\Users\Mama\Desktop\МОЯ\другое\33.jpg", 0, 0, 391, 558)
GUICtrlSetState(-1, $GUI_DISABLE)
$chtozaapustitb = GUICtrlCreateLabel("Что сделать?", 25, 8, 136, 17, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 2, "Courier New")
$Button1 = GUICtrlCreateButton("Скачать лицензию Аваст", 8, 96, 201, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, "Gill Sans Ultra Bold")
$Button2 = GUICtrlCreateButton("Установить лицензию Аваст", 8, 140, 201, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, "Gill Sans Ultra Bold")
$Button3 = GUICtrlCreateButton("Выйти", 180, 500, 201, 25, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, "Gill Sans Ultra Bold")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
WinMinimizeAll()
Sleep(1000)
WinSetState($Form, "", @SW_MINIMIZE); после нажатия на кнопку скрыть приложение
sleep(1000) ;СКАЧАТЬ ЛИЦЕНЗИЮ
WinMinimizeAll()
sleep(3000)
Run("C:\Program Files (x86)\Mozilla Firefox\firefox.exe") ; open firefox
Sleep(8000)
WinActivate("Яндекс - Mozilla Firefox")
sleep(500)
WinSetState("Яндекс - Mozilla Firefox","",@SW_MAXIMIZE)
sleep(1000)
MouseClick("left",163, 43,1,15); adress stroka
Sleep(500)
Send("http://www.avkeys.org/list_avast.htm") ; adress
Sleep(200)
Send("{ENTER}")
Sleep(7000)
MouseClick("left",663, 332,1,15);скачать офф версию на месяц
Sleep(3000)
MouseClick("left",700, 482,1,14) ; выбор продукта = сразу жмёт скчать
Sleep(2000)
MouseClick("left",677, 349,1,10) ;нажимает на ссылку скачивания
Sleep(8000)
MouseClick("left",442,384,1,10); download ass
Sleep(2000)
MouseClick("left",697,478,1,10) ;OK
Sleep(3000)
MouseClick("left",1336, 9,1,10); закрыть mazilla
Sleep(2000)
MsgBox(0,"Information","Готово")
WinSetState("Программа","",@SW_RESTORE)
WinMinimizeAllUndo()
Case $Button2 ;ЛИЦЕНЗИЯ. ПОКАЗАТЬ СКРЫТЫЕ ПАПКИ
WinSetState($Form, "", @SW_MINIMIZE); после нажатия на кнопку скрыть приложение
Sleep(1000)
WinMinimizeAll()
Sleep(1000)
ShellExecute("C:\")
Sleep(1000)
WinSetState("WINDOWS (C:)","",@SW_MAXIMIZE)
Sleep(1000)
MouseClick("left",179, 70,1,10) ;service
Sleep(500)
Send("{DOWN}{Down}{down}{down}{ENTER}");parametri papok
Sleep(2000)
MouseClick("left",97, 124,1,10);vid
Sleep(1000)
MouseClickDrag( "left" ,370,301,367, 451 ,10 );
Sleep(1000)
MouseClick("left",79, 343,1,5); ckrivat zachihhenie papk
Sleep(2000)
Send("{left}{enter}")
Sleep(500)
MouseClick("left",222, 533,1,5) ;vichli iz svoistvo papki СДЕЛАНО
Sleep(2000)
WinClose("WINDOWS (C:)")
; C disk ОТКРЫТЬ ПАПКУ АВАСТ
ShellExecute("C:\ProgramData\AVAST Software\Avast")
Sleep(2000)
WinActivate("Avast")
Sleep(500)
WinMove("Avast", "", @DesktopWidth/2+190,@DesktopHeight/2-389, 500, 700) ; окно в правую сторону ОТКРЫЛИ
Sleep(2000)
;papka с лицензией ОТКРЫТЬ ПАПКУ СО СКАЧЕНОЙ ЛИЦЕНЗИЕЙ
ShellExecute("C:\Users\Mama\Downloads")
Sleep(2000)
WinActivate("Загрузки")
Sleep(1000)
WinMove("Загрузки", "", 0,0, 500, 700)
sleep(2000)
Send("l")
$Coord = PixelSearch(180, 144,330,620,0xC9E0FC)
if Not @error Then
MouseClickDrag("left",$Coord[0],$Coord[1],1272, 594,20)
EndIf
MouseClick("left",651, 293,1,10) ;zamenili license
Sleep(2000)
WinClose("Avast")
Sleep(1000)
MouseClick("left",186, 76,1,5)
Sleep(2000)
Send("{down}{down}{down}{down}{enter}")
Sleep(2000)
MouseClick("left",104, 132,1,5);vkladka vid
Sleep(2000)
MouseClickDrag( "left" ,370,301,367, 451 ,10 )
Sleep(1000)
MouseClick("left",87,353,1,10)
sleep(2000)
MouseClick("left",222,541,1,9);ok
Sleep(3000)
WinClose("Загрузки")
Sleep(1000)
MsgBox(0,"Information","Готово")
WinSetState("Программа","",@SW_RESTORE)
Sleep(2000)
WinMinimizeAllUndo()
Case $Button3
Exit
EndSwitch
WEnd
Func _Exit()
Exit
EndFuncP.S. Первый раз делаю что то связанное с GUI, если я не правельно пользуюсь Case прозьба не обсмеивать :-[ а указать как можно, для кнопки указать функцию...
P.S.S. в скрипте много коментариев, их я делал для себя, так как было мало времени, что бы сделать весь скрипт сразу, я делал в разное время
....Но, как скрипт CreatoR'a подставить в мой, если его просто "воткнуть", то выдаёт кучу ошибок о потери
