Что нового

управление окном windows "предупреждение системы безопасности" в autoit

taks

Новичок
Сообщения
4
Репутация
0
всем привет,
fFzxR3MK0f0.jpg
как его обойти? дело в том что не на всех версиях win вылазит.Попробывал вот так,не реагирует.. как быть?
Код:
Run("filezila.exe")
$WinTitle1 = "Открыть файл - предупреждение системы безопасности"
if  WinWait($WinTitle1, "&Запустить")
then
WinActivate($WinTitle1, "&Запустить")
Send("{TAB}")
Send("{TAB}")
Send("{ENTER}")

$WinTitle = "FileZilla Client 3.6.0.2 Setup"
WinWaitActive($WinTitle, "License Agreement")
WinActivate($WinTitle, "License Agreement")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Installation Options")
WinActivate($WinTitle, "Choose Installation Options")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Components")
WinActivate($WinTitle, "Choose Components")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Install Location")
WinActivate($WinTitle, "Choose Install Location")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Start Menu Folder")
WinActivate($WinTitle, "Choose Start Menu Folder")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "FileZilla Client 3.6.0.2 has been installed on your computer.Click Finish to close Setup.")
WinActivate($WinTitle, "FileZilla Client 3.6.0.2 has been installed on your computer.Click Finish to close Setup.")
ControlClick($WinTitle, "", "Button2")
Exit
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: "не удается проверить издателя.Вы действительно хотите запустить эту программу?"

Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Глобальный модератор.
 
Автор
T

taks

Новичок
Сообщения
4
Репутация
0
Re: "не удается проверить издателя.Вы действительно хотите запустить эту программу?"

Имею ввиду вот это окошко,
fFzxR3MK0f0.jpg
как его обойти? дело в том что не на всех версиях win вылазит.Попробывал вот так,не реагирует.. как быть?
Код:
Run("filezila.exe")
$WinTitle1 = "Открыть файл - предупреждение системы безопасности"
if  WinWait($WinTitle1, "&Запустить")
then
WinActivate($WinTitle1, "&Запустить")
Send("{TAB}")
Send("{TAB}")
Send("{ENTER}")
 

agikon

Знающий
Сообщения
789
Репутация
17
Чтобы не выскакивало это предупредительное окошко нужно занести сетевой пк в зону безопасности Internet Explorer "Местная интрасеть"
как на скрине
http://postimage.org/image/blsdgrhkn/
 
Автор
T

taks

Новичок
Сообщения
4
Репутация
0
спасибо,попробую,но все же интересно,можно ли этим окном управлять?
 

agikon

Знающий
Сообщения
789
Репутация
17
всмысле управлять?
делать проверку на наличие этого окна?
ну можно вот так. у меня работает.
теперь его наличие или отсутствие не влияет на выполнение дальнейшего скрипта.

Код:
Run("filezila.exe")
sleep(500)
$WinTitle1 = "Открыть файл - предупреждение системы безопасности"

;----- проверка на наличие окна
WinActivate("Открыть файл - предупреждение системы безопасности")
$hWnd = WinWait("Открыть файл - предупреждение системы безопасности", "", 2) ; ждёт 2 секуды
WinActivate("Открыть файл - предупреждение системы безопасности")
If Not $hWnd Then
else
		WinActivate($WinTitle1, "&Запустить")
		sleep(200)
		Send("{TAB}")
		Send("{TAB}")
		Send("{ENTER}")	
EndIf
;-----------

$WinTitle = "FileZilla Client 3.6.0.2 Setup"
WinWaitActive($WinTitle, "License Agreement")
WinActivate($WinTitle, "License Agreement")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Installation Options")
WinActivate($WinTitle, "Choose Installation Options")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Components")
WinActivate($WinTitle, "Choose Components")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Install Location")
WinActivate($WinTitle, "Choose Install Location")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Start Menu Folder")
WinActivate($WinTitle, "Choose Start Menu Folder")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "FileZilla Client 3.6.0.2 has been installed on your computer.Click Finish to close Setup.")
WinActivate($WinTitle, "FileZilla Client 3.6.0.2 has been installed on your computer.Click Finish to close Setup.")
ControlClick($WinTitle, "", "Button2")
Exit
 

erlik

Продвинутый
Сообщения
317
Репутация
84
А еще можно просто отключить появление этого окна твиком:
Код:
; не проверять цифровую подпись загружаемых программ 
RegWrite("HKCU\SOFTWARE\Microsoft\Internet Explorer\Download", 'CheckExeSignatures', 'REG_SZ', 'no')
; Запускать программы с непроверенной цифровой подписью 
RegWrite("HKCU\SOFTWARE\Microsoft\Internet Explorer\Download", 'RunInvalidSignatures', 'REG_DWORD', 1)

Точно не помню - но вроде именно второй твик "рулит" появлением этого окна.
А потом - если надо - обратно вернуть настройку:
Код:
RegWrite("HKCU\SOFTWARE\Microsoft\Internet Explorer\Download", 'CheckExeSignatures', 'REG_SZ', 'yes')
RegWrite("HKCU\SOFTWARE\Microsoft\Internet Explorer\Download", 'RunInvalidSignatures', 'REG_DWORD', 0)

Еще могут помочь такие твики:
Код:
;не помечать вложенные файлы с учетом сведений о зоне
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Attachments", "SaveZoneInformation", "REG_DWORD",1)
;список типов файлов для которых предупреждение безопасности не будет включаться
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Associations", 'LowRiskFileTypes', 'REG_SZ', ".zip;.rar;.nfo;.txt;.exe;.bat;.com;.cmd;.reg;.msi;.htm;.html;.gif;.bmp;.jpg;.avi;.mpg;.mpeg;.mov;.mp3;.m3u;.wav;.mdb;")
 
Автор
T

taks

Новичок
Сообщения
4
Репутация
0
Re: управление окном windows \\\\\\\"предупреждение системы безопасности\\\\\\\" в autoit

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


Добавлено:
Сообщение автоматически объединено:

пробывал и так,
Код:
Run("filezila.exe")
sleep(500)
$WinTitle1 = "Открыть файл - предупреждение системы безопасности"

;----- проверка на наличие окна
WinActivate($WinTitle1,"Не удается проверить издателя.  Вы действительно хотите запустить эту программу?")
$hWnd = WinWait($WinTitle1, "", 2) ; ждёт 2 секуды
WinActivate($WinTitle1,"Не удается проверить издателя.  Вы действительно хотите запустить эту программу?")
If Not $hWnd Then 
else
        WinActivate($WinTitle1, "&Запустить")
        sleep(1000)
Send("{TAB}")
Send("{TAB}")
Send("{ENTER}")
EndIf
;-----------

$WinTitle = "FileZilla Client 3.6.0.2 Setup"
WinWaitActive($WinTitle, "License Agreement")
WinActivate($WinTitle, "License Agreement")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Installation Options")
WinActivate($WinTitle, "Choose Installation Options")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Components")
WinActivate($WinTitle, "Choose Components")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Install Location")
WinActivate($WinTitle, "Choose Install Location")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "Choose Start Menu Folder")
WinActivate($WinTitle, "Choose Start Menu Folder")
ControlClick($WinTitle, "", "Button2")
WinWaitActive($WinTitle, "FileZilla Client 3.6.0.2 has been installed on your computer")
WinActivate($WinTitle, "FileZilla Client 3.6.0.2 has been installed on your computer")
sleep(1000)
ControlClick($WinTitle, "", "Button4")
ControlClick($WinTitle, "", "Button2")
Exit
и так,
Код:
Run("filezila.exe")
sleep(500)
$WinTitle1 = "Открыть файл - предупреждение системы безопасности"

;----- проверка на наличие окна
WinActivate($WinTitle1,"Не удается проверить издателя.  Вы действительно хотите запустить эту программу?")
$hWnd = WinWait($WinTitle1, "", 2) ; ждёт 2 секуды
WinActivate($WinTitle1,"Не удается проверить издателя.  Вы действительно хотите запустить эту программу?")
If Not $hWnd Then 
else
        WinActivate($WinTitle1, "&Запустить")
        sleep(1000)
ControlClick($WinTitle1, "", "Button1")
EndIf
;-----------
и так пробывал,
Код:
Run("filezila.exe")
sleep(500)
$WinTitle1 = "Открыть файл - предупреждение системы безопасности"

;----- проверка на наличие окна
WinActivate($WinTitle1,"Не удается проверить издателя.  Вы действительно хотите запустить эту программу?")
$hWnd = WinWait($WinTitle1, "", 2) ; ждёт 2 секуды
WinActivate($WinTitle1,"Не удается проверить издателя.  Вы действительно хотите запустить эту программу?")
If Not $hWnd Then 
else
        WinActivate($WinTitle1, "&Запустить")
        sleep(1000)
ControlClick("[CLASS:Button; INSTANCE:1]","")
EndIf
;-----------
окно неисчезает.. а так же пробывал вывести сообщение если окно не найдено
Код:
;----- проверка на наличие окна
WinActivate($WinTitle1,"Не удается проверить издателя.  Вы действительно хотите запустить эту программу?")
$hWnd = WinWait($WinTitle1, "", 2) ; ждёт 2 секуды
WinActivate($WinTitle1,"Не удается проверить издателя.  Вы действительно хотите запустить эту программу?")
If Not $hWnd Then    
MsgBox(4096, 'Сообщение', 'Окно не найдено, завершаем работу скрипта')
    Exit
else
        WinActivate($WinTitle1, "&Запустить")
        sleep(1000)
ControlClick("[CLASS:Button; INSTANCE:1]","")
EndIf
сообщение не выводилось.


Добавлено:
Сообщение автоматически объединено:

есть у когонить мысли? незнаю уже чего только неперепробывал.. кстате еще заметил что иногда файл поразному весит.. от чего это зависит? разница причем не в 2-5кб,а в 400 :shok: после компиляции екзешник весит 296кб а иногда 630кб..


Добавлено:
Сообщение автоматически объединено:

дааа спустя 10 часов раздумий меня вдруг осенило.. что эту проверку никак непройти,потомучто сам скрипт то незапускается ;D в любом случае придется нажать Запустить.. а я голову ломал и все зазря емае :smile:) всем спасибо))
 
Верх