Что нового

запуск скрипта вместе с ОС

Axel.m

Чайник
Сообщения
4
Репутация
1
Доброго времени суток.
Первым делом хочу сказать спасибо админу форума, который ответил на мой первый вопрос по autoit меньше чем за два часа как я его задал.
Так вот. Есть скрипт мой на перле, хотелось бы знать, как запускать вместе с загрузкой Windows скрипт autoit который просто делает ран батнику котый в свою очередь запускает .pl такие вот дела)) что то ушёл опять от темы...
Если обобщить, то, можно ли запускать .au3 или скомпелированный из него ехешник вместе с загрузкой операционной системы???
Зарание спасибо.

P/S/ Форум на та тему автозагрузка прошертил, толком нечего...
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
Код:
$path = @ScriptFullPath ; определяем путь к скрипту (полный)
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run','Название Скрипта',"REG_SZ",$path) ; добавляемся в атозагрузку!


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

или так
Код:
Global $path

$path = @ScriptFullPath ; определяем путь к скрипту (полный)
HotKeySet("+^!u", "_UnReg") ; Ctrl+Alt+Shift+U - убрать с автозагрузки
HotKeySet("+^!r", "_Reg") ; Ctrl+Alt+Shift+R - добавить в автозагрузку

Func _UnReg() ; Убрать с автозагрузки
	RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run','Название скрипта')
	MsgBox(64,"Иформация!","Удалено с Автозагрузки! :)",5)
EndFunc

Func _Reg() ; добавить в автозагрузку
   RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run','Название скрипта',"REG_SZ",$path)
   MsgBox(64,"Информация!","Добавлено в Автозагрузку!",5)
EndFunc


Где 'Название скрипта' соответственно название скрипта :smile:
 
Автор
A

Axel.m

Чайник
Сообщения
4
Репутация
1
Несовсем понятно по поваду определить путь к скрипту, нельзя ли показать на примере того что скрипт который нужно добавить в автопуск лежит C:\000.au3 ???
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Axel.m
не важно где лежит скрипт
макро @ScriptFullPath - определит этот путь автоматически
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
Axel.m сказал(а):
Несовсем понятно по поваду определить путь к скрипту, нельзя ли показать на примере того что скрипт который нужно добавить в автопуск лежит C:\000.au3 ???
Проще говоря, от куда запустишь скрипт от туда он и будет запускаться :smile:
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 159
Репутация
2 329
Guezt [?]
при запуске скрипта будет каждый раз перезаписывать себя в автозагрузку
А что мешает проверять значение в реестре?
 
Автор
A

Axel.m

Чайник
Сообщения
4
Репутация
1
итак, что мы получили.

RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',"REG_SZ")
Run("запускаем чтохотим")

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

где бы ещё почитать про $path = @ScriptFullPath ...
спасибо за помощь)


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

не сочтите за наглость... :smile: но может немножко разовьём тему)
итак мы получили run("") при загрузке ОС, а можем повторять его скажем каждые 20 минут?
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
CreatoR сказал(а):
Guezt [?]
при запуске скрипта будет каждый раз перезаписывать себя в автозагрузку
А что мешает проверять значение в реестре?
Ничего! :smile: Лень просто код полностью писать, ну а если и весь то лучше перенести в "сделайте все за меня" ;)
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
Код:
Global $path, $time

$sNameScript = "Мой скрипт" ; Название скрипта
$time = 1000*60*20 ; 20 минут 1000-это одна секунда 60 - это секунд в минуте и 20 - сколько минут :)

HotKeySet("+^!u", "_UnReg") ; Ctrl+Alt+Shift+U - убрать с автозагрузки
HotKeySet("+^!r", "_Reg") ; Ctrl+Alt+Shift+R - добавить в автозагрузку
HotKeySet("+^!q", "_Quit") ; Ctrl+Alt+Shift+Q - Завершение работы скрипта

$path = @ScriptFullPath ; определяем путь к скрипту (полный)
$check = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',$sNameScript) ; проверяем значение

If $path <> $check Then ; проверяем есть ли Скрипт в автозагрузке если нет то...
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',$sNameScript,"REG_SZ",$path) ; добавляемся в атозагрузку!
EndIf

While 1
    ; ВНИМАНИЕ ТУТ ТВОЯ RUN(" ")
    Sleep($time) ; пауза 20 минут
WEnd


Func _UnReg() ; Убрать с автозагрузки
    RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',$sNameScript)
    MsgBox(64,"Иформация!","Удалено с Автозагрузки! :)",5)
EndFunc

Func _Reg() ; добавить в автозагрузку
   RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',$sNameScript,"REG_SZ",$path)
   MsgBox(64,"Информация!","Добавлено в Автозагрузку!",5)
EndFunc

Func _Quit() ;выход
	MsgBox(64,"Информация!","Скрипт остановлен!",5)
	Exit 0
EndFunc


Axel.m Все сделано за вас, вставьте свою Run() в скрипте написано где и пользуйтесь ;) ...ушел спать.
 

Waik

Новичок
Сообщения
60
Репутация
16
ПРи запуске ос запуск не выйдет.т.к загружается сама ос .При входе в юзера можно
запустить скрипт.Записывай в реестр значение и все(как это делать уже показали).

Вот коммент из-заправки :

"@ScriptFullPath Полное название файла сценария. Тождественно равно @ScriptDir & "\" & @ScriptName "

"@ScriptDir Папка, содержащая текущий скрипт, без конечного обратного слэша. "
 

Orus

Чайник
Сообщения
41
Репутация
1
для себя я решил данную проблему с помощью anyserv.exe :smile:
 

SECTOR

Продвинутый
Сообщения
390
Репутация
57
А можно как нибудь сделать, чтоб скрипт запускался вместе с Logonui.exe (т.е. с программой выбора пользователей)
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
SECTOR
читай пост предшествующий твоему
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
SECTOR сказал(а):
Kaster сказал(а):
SECTOR
читай пост предшествующий твоему
Orus сказал(а):
для себя я решил данную проблему с помощью anyserv.exe :smile:
Где её взять и как пользоваться? :wacko:
http://support.nthost.ru/index.php?dload=%D0%A1%D0%BA%D0%B0%D1%87%D0%B0%D1%82%D1%8C&_m=downloads&_a=downloadfile&downloaditemid=8
Спросить у google :smile:
 

SECTOR

Продвинутый
Сообщения
390
Репутация
57
Блин, вот я дурень, спрашивал у рамблера! :rofl: ;)

СПС рульная вещь! :ok:
 
Верх