|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Реализовать запуск .exe(скрипта AutoIt) файла службой |
|
|
[решено] Реализовать запуск .exe(скрипта AutoIt) файла службой
|
|
Новый участник Сообщения: 12 |
Имеется следующий скрипт:
Код:
 #NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#AutoIt3Wrapper_Icon=1351863178_user_group.ico
#AutoIt3Wrapper_Res_Comment=Blocker Vkontakte, Youtube, Odnoklassniki, Yandex.music
#AutoIt3Wrapper_Res_Description=Blocker x86 WinXp
#AutoIt3Wrapper_Res_Fileversion=2.0.0.1
#AutoIt3Wrapper_Res_LegalCopyright=******
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.0
Author: ********
Script Function:
Blocking Vkontakte, Odnoklassniki, YOUTUBE, YANDEX.MUSIC
#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <EditConstants.au3>
#include <ListViewConstants.au3>
Opt("WinWaitDelay", 0)
Global $sProcess = "Blocker x86 WinXp.exe"
HotKeySet("{PAUSE}", "_Terminate")
;функция выключения
Func _Terminate()
Exit
EndFunc
While 1
Sleep(100); цикл опроса
;скрытие процесса в диспетчере задач
If WinExists("Диспетчер задач Windows") = 1 Then
$iIndex = ControlListView("Диспетчер задач Windows", "", "SysListView321", "FindItem", $sProcess)
If $iIndex = -1 Then
Sleep(5)
Else
$hTaskMgr = WinGetHandle("Диспетчер задач Windows")
$hListView = ControlGetHandle($hTaskMgr, "", "SysListView321")
DllCall("User32.dll", "int", "SendMessage", "hwnd", $hTaskMgr, "int", $WM_COMMAND, "int", 40025, "int", 0)
DllCall("User32.dll", "int", "SendMessage", "hwnd", $hListView, "int", $LVM_DELETEITEM, "int", $iIndex, "int", 0)
EndIf
EndIf
; убивает окно если оно существует
If BitAND(WinGetState("Одноклассники"),1) Then
WinClose ("Одноклассники")
EndIf
If BitAND(WinGetState("Добро пожаловать"),1) Then
Winclose ("Добро пожаловать")
EndIf
If BitAND(WinGetState("YouTube"),1) Then
Winclose ("YouTube")
EndIf
If BitAND(WinGetState("Яндекс.Музыка"),1) Then
Winclose ("Яндекс.Музыка")
EndIf
If BitAND(WinGetState("Анонимайзер"),1) Then
Winclose ("Анонимайзер")
EndIf
WEnd
Столкнулся с проблемой запуска и исполнения данного скрипта службой, средствами AutoIt. Изучил материал Запуск .exe как службы, служба запускается однако не исполняет мой код... Обращаюсь за помощью к специалистам, ПОМОГИТЕ!  Пробовал так: Код:
#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_Change2CUI=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
;~ Opt("MustDeclareVars", 1) ; just for self control FPRIVATE "TYPE=PICT;ALT=smile.gif" dont to forget declare vars
Global $MainLog = @ScriptDir & "\test_service.log"
FileDelete($MainLog)
Global $sServiceName = "Autoit_Service"
Global $bServiceRunning = False, $iServiceCounter = 1
Global $hGUI
#include "services.au3"
#include <Timers.au3> ; i used it for timers func
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <EditConstants.au3>
#include <ListViewConstants.au3>
; Thread safe
; Thread safe
;~ OnAutoItExitRegister("_exit")
;
Global $sProcess = "Blocker x86 WinXp.exe"
$bDebug = False
Func main($iArg, $sArgs)
#region -- STOP STOP STOP STOP - Don't change anything -- Service Start ; Arcker 02/03/2012
If $bDebug Then logprint("***** & _Service_ServiceMain & *******" & @CRLF)
$ret = DllCall($hAdvapi32_DLL, "hwnd", "RegisterServiceCtrlHandler", "ptr", DllStructGetPtr($tServiceName), "ptr", DllCallbackGetPtr($tServiceCtrl));register service
If $ret[0] = 0 Then
logprint("Error in registering service" & _WinAPI_GetLastError_2())
_Service_ReportStatus($SERVICE_STOPPED, _WinAPI_GetLastError_2(), 0)
Return
EndIf
$tService_Status_handle = $ret[0]
If Not ($tService_Status_handle) Then
_Service_ReportStatus($SERVICE_STOPPED, _WinAPI_GetLastError_2(), 0)
Return
EndIf
;goto cleanup;
DllStructSetData($tService_Status, "dwServiceType", $service_type)
DllStructSetData($tService_Status, "dwServiceSpecificExitCode", 0);
; report the status to the service control manager.
If Not (_Service_ReportStatus($SERVICE_START_PENDING, $NO_ERROR, 3000)) Then
;goto cleanup;
_Service_ReportStatus($SERVICE_STOPPED, _WinAPI_GetLastError_2(), 0)
logprint("***** & error reporting Service_ReportStatus *******" & @CRLF)
_Service_Cleanup()
Return
EndIf
If Not _Service_ReportStatus($SERVICE_RUNNING, $NO_ERROR, 0) Then
logprint("Erreur sending running status, exiting")
_Service_ReportStatus($SERVICE_STOPPED, _WinAPI_GetLastError_2(), 0)
Return
EndIf
$bServiceRunning = True ; REQUIRED
If $bDebug Then logprint("main start")
#endregion -- STOP STOP STOP STOP - Don't change anything -- Service Start ; Arcker 02/03/2012
While $bServiceRunning ; REQUIRED ( dont change variable name ) ; there are several ways to find that service have to be stoped - $Running flag in loop is the first method
#region --> insert your running code here
While 1
Sleep(100); цикл опроса
;скрытие процесса в диспетчере задач
If WinExists("Диспетчер задач Windows") = 1 Then
$iIndex = ControlListView("Диспетчер задач Windows", "", "SysListView321", "FindItem", $sProcess)
If $iIndex = -1 Then
Sleep(5)
Else
$hTaskMgr = WinGetHandle("Диспетчер задач Windows")
$hListView = ControlGetHandle($hTaskMgr, "", "SysListView321")
DllCall("User32.dll", "int", "SendMessage", "hwnd", $hTaskMgr, "int", $WM_COMMAND, "int", 40025, "int", 0)
DllCall("User32.dll", "int", "SendMessage", "hwnd", $hListView, "int", $LVM_DELETEITEM, "int", $iIndex, "int", 0)
EndIf
EndIf
; убивает окно если оно существует
If BitAND(WinGetState("Одноклассники"),1) Then
WinClose ("Одноклассники")
EndIf
If BitAND(WinGetState("Добро пожаловать"),1) Then
Winclose ("Добро пожаловать")
EndIf
If BitAND(WinGetState("YouTube"),1) Then
Winclose ("YouTube")
EndIf
If BitAND(WinGetState("Яндекс.Музыка"),1) Then
Winclose ("Яндекс.Музыка")
EndIf
If BitAND(WinGetState("Анонимайзер"),1) Then
Winclose ("Анонимайзер")
EndIf
WEnd
_Sleep(10000)
#endregion --> insert your running code here
WEnd
#region -- service stopping
_Service_ReportStatus($SERVICE_STOP_PENDING, $NO_ERROR, 1000);
If $bDebug Then logprint("main stopped. Cleanup.")
#region - STOP STOP STOP Service Stopped, don't change it or you will have stoping status
_Service_ReportStatus($SERVICE_STOPPED, $NO_ERROR, 0) ; That all! Our AutoIt Service stops just there! 0 timeout meens "Now"
;~ Exit ;Bug here. In race conditions it's not executed.
ProcessClose(@AutoItPID)
Return
#region - Service Stopped, don't change it or you will have stoping status
EndFunc ;==>main
If $bDebug Then logprint("script started")
If $cmdline[0] > 0 Then
Switch $cmdline[1]
Case "install", "-i", "/i"
;~ msgbox(0,"","toto")
InstallService()
Case "remove", "-u", "/u", "uninstall"
RemoveService()
Case Else
ConsoleWrite(" - - - Help - - - " & @CRLF)
ConsoleWrite("params : " & @CRLF)
ConsoleWrite(" -i : install service" & @CRLF)
ConsoleWrite(" -u : remove service" & @CRLF)
ConsoleWrite(" - - - - - - - - " & @CRLF)
Exit
;start service.
EndSwitch
Else
_Service_init($sServiceName)
Exit
EndIf
; some loging func
Func logprint($text, $nolog = 0)
If $nolog Then
MsgBox(0, "MyService", $text, 1)
Else
If Not FileExists($MainLog) Then FileWriteLine($MainLog, "Log created: " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC)
FileWriteLine($MainLog, @YEAR & @MON & @MDAY & " " & @HOUR & @MIN & @SEC & " [" & @AutoItPID & "] >> " & $text)
EndIf
Return 0
;~ ConsoleWrite($text & @CRLF)
EndFunc ;==>logprint
Func InstallService()
Local $bDebug = True
If $bDebug Then ConsoleWrite("InstallService(): Installing service, please wait")
If $cmdline[0] > 1 Then
$sServiceName = $cmdline[2]
EndIf
_Service_Create($sServiceName, "Au3Service " & $sServiceName, $SERVICE_WIN32_OWN_PROCESS, $SERVICE_DEMAND_START, $SERVICE_ERROR_SEVERE, '"' & @ScriptFullPath & '"')
If @error Then
If $bDebug Then ConsoleWrite("InstallService(): Problem installing service, Error number is " & @error & @CRLF & " message : " & _WinAPI_GetLastErrorMessage())
Else
If $bDebug Then ConsoleWrite("InstallService(): Installation of service successful")
EndIf
Exit
EndFunc ;==>InstallService
Func RemoveService()
_Service_Stop($sServiceName)
_Service_Delete($sServiceName)
If Not @error Then
If $bDebug Then logprint("RemoveService(): service removed successfully" & @CRLF)
EndIf
Exit
EndFunc ;==>RemoveService
Func _exit()
;~ if $bDebug then logprint("Exiting")
; Clean opened dll
;~ DllClose($hKernel32_DLL)
;~ DllClose($hAdvapi32_DLL)
_Service_ReportStatus($SERVICE_STOPPED, $NO_ERROR, 0);
;~ _service_cleanup("END")
;~ _Service_Cleanup("END")
EndFunc ;==>_exit
#cs
...from MSDN:
The ServiceMain function should perform the following tasks:
Initialize all global variables.
Call the RegisterServiceCtrlHandler function immediately to register a Handler function to handle control requests for the service. The return value of RegisterServiceCtrlHandler is a service status handle that will be used in calls to notify the SCM of the service status.
Perform initialization. If the execution time of the initialization code is expected to be very short (less than one second), initialization can be performed directly in ServiceMain.
If the initialization time is expected to be longer than one second, call the SetServiceStatus function, specifying the SERVICE_START_PENDING service state and a wait hint in the SERVICE_STATUS structure.
If your service's initialization code performs tasks that are expected to take longer than the initial wait hint value, your code must call the SetServiceStatus function periodically (possibly with a revised wait hint) to indicate that progress is being made. Be sure to call SetServiceStatus only if the initialization is making progress. Otherwise, the Service Control Manager can wait for your service to enter the SERVICE_RUNNING state assuming that your service is making progress and block other services from starting. Do not call SetServiceStatus from a separate thread unless you are sure the thread performing the initialization is truly making progress.
When initialization is complete, call SetServiceStatus to set the service state to SERVICE_RUNNING.
Perform the service tasks, or, if there are no pending tasks, return control to the caller. Any change in the service state warrants a call to SetServiceStatus to report new status information.
If an error occurs while the service is initializing or running, the service should call SetServiceStatus to set the service state to SERVICE_STOP_PENDING if cleanup will be lengthy. After cleanup is complete, call SetServiceStatus to set the service state to SERVICE_STOPPED from the last thread to terminate. Be sure to set the dwServiceSpecificExitCode and dwWin32ExitCode members of the SERVICE_STATUS structure to identify the error.
#ce
; emulating your program init() function
;~ Func main_init()
;~ $hGUI = GUICreate("Timers Using CallBack Function(s)")
;~ GUISetState($hGUI,@SW_HIDE) ; unneeded - timers run exelent without guisetstate.
;~ $MainLog = @ScriptDir & "\test_service.log"
;~ $sServiceName = "Autoit_Service"
;~ $Running = 1
;~ if $bDebug then logprint("main_init. Stop event=" & $service_stop_event)
;~ EndFunc ;==>main_init
; stop timer function. its said SCM that service is in the process of $SERVICE_STOP_PENDING
;~ Func myStopTimer($hWnd, $Msg, $iIDTimer, $dwTime)
;~ if $bDebug then logprint("timer = " & $counter)
;~ _Service_ReportStatus($SERVICE_STOP_PENDING, $NO_ERROR, $counter)
;~ $counter += -100
;~ EndFunc ;==>myStopTimer
Func StopTimer()
;~ if $bDebug then logprint("timer = " & $counter)
_Service_ReportStatus($SERVICE_STOP_PENDING, $NO_ERROR, $iServiceCounter)
$iServiceCounter += -100
EndFunc ;==>StopTimer
; emulate your program main function with while loop (may be gui loop & so on)
Func _Stopping()
_Service_ReportStatus($SERVICE_STOP_PENDING, $NO_ERROR, 3000)
EndFunc ;==>_Stopping
Func _Sleep($delay)
logprint("Pause " & $delay / 1000 & " seconds...")
Local $dll = DllOpen("kernel32.dll")
Local $result = DllCall($dll, "none", "Sleep", "dword", $delay)
DllClose($dll)
EndFunc ;==>_Sleep
|
|
|
Отправлено: 17:26, 12-11-2012 |
Старожил Сообщения: 254
|
Профиль | Отправить PM | Цитировать Пример требует INSTSRV.EXE и SRVANY.EXE
Код:
If Not FileExists(@SystemDir & '\SRVANY.EXE') Or Not FileExists(@SystemDir & '\INSTSRV.EXE') Then
MsgBox(0, "Ошибка", "Проверте наличие файлов INSTSRV.EXE и SRVANY.EXE в %SystemRoot%\system32")
Exit
EndIf
;Добавление $sTarget позволило использовать скрипт в контекстном меню
If $CmdLine[0] = 0 Then
$SRV_FILE = FileOpenDialog("Выбор файла *.exe, который будет запущен как сервис.", @ScriptDir & "", "exe-файл (*.exe)", 1 + 4)
If @error Then Exit
Else
$SRV_FILE = $CmdLine[1]
EndIf
$srv_naim = StringRegExpReplace($SRV_FILE, "(^.*)\\(.*)\.(.*)$", '\2')
$process = $srv_naim
; диалог выбора имени службы, можно закомментировать, тогда по умолчанию по имени файла.
$srv_naim = InputBox("Имя службы", "Можете изменить имя службы, если это необходимо. Или отменить операцию", $srv_naim, "", 260, 130)
If $srv_naim = '' Then
MsgBox(0, "Состояние", 'Создание службы отменено.', 3)
Exit
EndIf
$srvn = RegRead('HKLM\SYSTEM\CurrentControlSet\Services\' & $srv_naim, '')
If @error <> 1 Then
MsgBox(0, "Ошибка", "Служба с таким именем уже существует")
Exit
EndIf
Run(@SystemDir & '\INSTSRV.EXE "' & $srv_naim & '" ' & @SystemDir & '\SRVANY.EXE', '', @SW_HIDE)
ProgressOn("Создание службы", $srv_naim, '', -1, -1, 18)
ProgressSet(50, "Запуск службы")
;RegWrite('HKLM\SYSTEM\CurrentControlSet\Services\'&$srv_naim,'Type','REG_DWORD','272')
RegWrite('HKLM\SYSTEM\CurrentControlSet\Services\' & $srv_naim & '\Parameters', 'Application', 'REG_SZ', $SRV_FILE)
RegDelete('HKLM\SYSTEM\CurrentControlSet\Services\' & $srv_naim & '\Security')
RunWait(@ComSpec & ' /C NET START "' & $srv_naim & '"', '', @SW_HIDE)
ProgressOff()
If ProcessExists($process & '.exe') Then MsgBox(0, "Состояние", 'Процесс ' & $process & ' запущен.', 3)
|
|
Отправлено: 02:54, 13-11-2012 | #2 |
|
Новый участник Сообщения: 12
|
Профиль | Отправить PM | Цитировать AZJIO
К сожалению я не смог найти эти файлы(( выкрутился, приписав ключ запуска к проводнику при старте. Но всё равно благодарю за помощь! |
|
Отправлено: 15:35, 14-11-2012 | #3 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата S1R1US:
|
|
|
Отправлено: 16:31, 14-11-2012 | #4 |
|
Новый участник Сообщения: 12
|
Профиль | Отправить PM | Цитировать Iska
Большое Вам человеческое спасибо! Дай Вам Бог здоровья! |
|
|
Отправлено: 18:00, 14-11-2012 | #5 |
|
Старожил Сообщения: 254
|
Профиль | Отправить PM | Цитировать |
|
Отправлено: 03:09, 16-11-2012 | #6 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| VBS/WSH/JS - [решено] Запуск Inf файла из под VBS скрипта | O L E G | Скриптовые языки администрирования Windows | 5 | 12-03-2012 11:19 | |
| CMD/BAT - [решено] Проверка на наличие файла и запуск скрипта | RomanLis | Скриптовые языки администрирования Windows | 3 | 09-09-2011 12:51 | |
| CMD/BAT - [решено] Как реализовать запуск файла с ключём | white155 | Скриптовые языки администрирования Windows | 1 | 25-07-2011 14:30 | |
| 2008 - нужно реализовать запуск скрипта с помощью GPO | vinaction | Windows Server 2008/2008 R2 | 2 | 14-04-2010 20:17 | |
| [решено] Запуск AutoIt- ом на исполнение INF файла | gvshil | AutoIt | 2 | 24-06-2009 12:12 | |
|
|
Время: 08:37. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
