_Service_UDF v4 : Build your own service with autoit code

[spudw2k]

This is untested (by me, but tested in post below), but seems a good direction if you don't want to wait for the next version.

Const $SERVICE_CONFIG_DELAYED_AUTO_START_INFO = 3
Const $tagSERVICE_DELAYED_AUTO_START_INFO = "struct;bool fDelayedAutostart;endstruct"

Func _SERVICE_CONFIG_DELAYED_AUTO_START($hService, $bDelayedAutoStart = True)
    Local $tSERVICE_DELAYED_AUTO_START_INFO = DllStructCreate($tagSERVICE_DELAYED_AUTO_START_INFO)  ;Create DLLStruct from Const definition
    DllStructSetData($tSERVICE_DELAYED_AUTO_START_INFO, "fDelayedAutoStart", $bDelayedAutoStart)    ;Set Struct Bool value to $bDelayedAutoStart parameter value
    $iRtn = _ChangeServiceConfig2($hService, $SERVICE_CONFIG_DELAYED_AUTO_START_INFO, DllStructGetPtr($tSERVICE_DELAYED_AUTO_START_INFO))   ;Call Advapi32 ChangeServiceConfig2 function
    $tSERVICE_DELAYED_AUTO_START_INFO = 0   ;Free struct resources
    Return $iRtn[0] ;Return _ChangeServiceConfig2 function result
EndFunc

Func _ChangeServiceConfig2($hService, $dwInfoLevel, $lpInfo)
    Return DllCall("Advapi32.dll", "int", "ChangeServiceConfig2", "HANDLE", $hService, "DWORD", $dwInfoLevel, "LONG_PTR", $lpInfo)  
EndFunc

 

Edited September 3, 2018 by spudw2k

[kschwarz]

Thanks!

Edited September 4, 2018 by kschwarz

[kschwarz]

@spudw2k

I was testing your function but I am getting an Error return from IsHWnd($hService) in the following line:

 If Not IsHWnd($hService) Then Return SetError(1,0,0)    ;Check if $hService is a real Handle

 My main procedure (a CUI executable is created) is something like:

#include <Services.au3>
#include <ServicesConstants.au3>

Const $SERVICE_CONFIG_DELAYED_AUTO_START_INFO = 3
Const $tagSERVICE_DELAYED_AUTO_START_INFO = "struct;bool fDelayedAutostart;endstruct"

Local $hSC, $hService
$hSC = OpenSCManager("", $SC_MANAGER_CONNECT)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hSC = ' & $hSC & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
$hService = OpenService($hSC, "Servicename", $SERVICE_INTERROGATE)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hService = ' & $hService & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

$iRC = _SERVICE_CONFIG_DELAYED_AUTO_START($hService, True)

The Debug ConsoleWrite shows that both $hSC and $hService are set to pointers (hexadecinal number returns). The pointer $hService is passed ok to the Function (I have put another Debug write inside).

What am I missing?
 

 

Edited September 4, 2018 by kschwarz

[spudw2k]

Looks like I inappropriately used that function.  It appears to be meant for Window handles and not handles in general which I assumed.  

I wanted to add some error checking, I could not find an immediate replacement for the function.  I guess try removing or commenting out the line.  Hopefully it gets further along/works after that.  Considering the example code you posted, I would think your $hService variable obtains a valid handle for the DLL call in the _SERVICE_CONFIG_DELAYED_AUTO_START function I made.

Let me know how it works.

[kschwarz]

@spudw2k

I have removed the "If Not IsHWnd($hService) Then Return SetError(1,0,0)    ;Check if $hService is a real Handle" line and compiled my program again and it worked correctly. See:

"SC qc" before running my program:

[SC] QueryServiceConfig SUCCESS

SERVICE_NAME: MyService
        TYPE               : 10  WIN32_OWN_PROCESS
        START_TYPE         : 4   DISABLED
        ERROR_CONTROL      : 1   NORMAL
        BINARY_PATH_NAME   : C:\temp\MyService.exe
        LOAD_ORDER_GROUP   : Default
        TAG                : 0
        DISPLAY_NAME       : MyService
        DEPENDENCIES       : NETMAN
        SERVICE_START_NAME : LocalSystem

"SC qc" after my program execution:

[SC] QueryServiceConfig SUCCESS

SERVICE_NAME: MyService
        TYPE               : 10  WIN32_OWN_PROCESS
        START_TYPE         : 2   AUTO_START  (DELAYED)
        ERROR_CONTROL      : 1   NORMAL
        BINARY_PATH_NAME   : C:\temp\MyService.exe
        LOAD_ORDER_GROUP   : Default
        TAG                : 0
        DISPLAY_NAME       : MyService
        DEPENDENCIES       : NETMAN
        SERVICE_START_NAME : LocalSystem

When you find a replacement for that line, please let me know. 

Thanks!

Edited September 4, 2018 by kschwarz

[spudw2k]

@kschwarz Glad to see it worked for you.  I ended up simply removing the line and don't plan on finding a replacement for it.  I think it makes most sense to perform the error checking on the OpenService function return and not continue with the script if it has an error.

 

Edited September 12, 2018 by spudw2k

[DonChunior]

Is there any reason why this UDF has not yet been added to the "User Defined Functions" wiki page?
Are the other UDFs regarding to services better than this one?

[NickGrava]

Hi, everyone! Please help me with this error in services.au3. 

 

 

Services.bmp

[kschwarz]

I found that the logprint() is a function in the include file Log.Au3 that is part of the SessionChange Service.zip (See the first page of this _Service_UDF v4 topic page).

So, you should adapt it to your own context.

[DonChunior]

  On 9/11/2018 at 6:34 PM, DonChunior said:

Is there any reason why this UDF has not yet been added to the "User Defined Functions" wiki page?
Are the other UDFs regarding to services better than this one?

Expand  

I have to reprimand myself: This UDF is listed in the wiki anyway!
But under "Automation" and not under "Windows", which is probably why I missed it.

Edited September 26, 2018 by DonChunior

[mLipok]

@water I think @DonChunior have right, are you agree ?

[mLipok]

@water did the trick  Could you @DonChunior check it again .

 

[DonChunior]

  On 9/26/2018 at 2:40 PM, mLipok said:

@water did the trick  Could you @DonChunior check it again .

 

Expand  

Great, thanks a lot!
Now the UDF is listed under the section "Windows", which makes more sense in my opinion.

[tatane]

Hi everybody !

I'm coding a client/server with client starting as service with this great udf but I've got some problem.

I'm using this version from syn5555 (v4 reworked) :

My client works just fine if I don't close windows session. But when I log in or log out, I've got crashes/hang randomly.

I checked all dllcall (threadsafe), put some logprint() to find where it bugs and I can't find where the problem comes from. Windows event viewer just tell me that the .exe crashed and it will be restart.

I can add the client/server code if you need.

[argumentum]

  On 11/21/2018 at 3:18 PM, tatane said:

I'm coding a client/server with client starting as service with this great udf but I've got some problem.

Expand  

https://www.autoitscript.com/forum/topic/80201-_service_udf-v4-build-your-own-service-with-autoit-code/?do=findComment&comment=1374529

[tatane]

I'm already using the latest version of AutoIt with Windows 7.

EDIT : When it stops working and the process still exists, its size in memory goes from 11000K to 1400K.

See attachment for the code of client and server. The client is running as service not the server.

Change the IP address of the server in the _TechTools_Client() function.

clientserver_service.7z

Edited November 23, 2018 by tatane

[tatane]

It seems my problem comes from the ThreadSafe thing. I reworked some of native autoit functions and it seems better.

Should I recode functions like AdlibeRegister() or TimerInit() too ? What kind of functions are concerned ?

[argumentum]

  On 11/27/2018 at 10:17 AM, tatane said:

Should I recode functions like AdlibeRegister() or TimerInit() too ? What kind of functions are concerned ?

Expand  

I have no clue, but, I think that you can write all as user level executable and if that works, use a service as a watchdog. When you run the service as a watchdog, the "user level" executable, runs with the same permissions as the service. 

[quantum900]

Arcker - Great Job on this!!! It took me a bit to figure out how to get my needs met, but it works great, with one exception. 

 

What my script does:

Creates a UDP socket on a specific port to listen for commands from a client, it then interacts with hyper-v via powershell to manipulate virtual machines.

It works great, until I need to stop the service. The listening code uses a do until loop.

I.E.:

Do
<Insert code here>
Until $my_var <> ""

(once data is recived, the $my_var is no longer empty and the loop exists, performs the powershell commands, then calls the do function again to listen again)

How are the commands to restart or stop the service called? I think if I change my script to :

Do
<insert code here>
Until $my_var <> "" OR <stop command> OR <restart command>

 

Any suggestions?

 

Thanks in advance!

Edited December 18, 2018 by quantum900

[Blois]

Hi Guys,

    I need help.
    I created a service in Windows to start every time I reboot the machine.
    At startup the service is returning error: 1053 The service did not respond to the start or control request in a timely manner.
    I want to know if the problem is in the .EXE that I generated or in the service created via AutoIT?

 

include <Services_1.au3>

    If @OSArch = "X64" Then
        $path = "c:\Program Files (x86)\teste"
        DirCreate($path)
    Else
        $path = "c:\Program Files\teste"
        DirCreate($path)
    EndIf


Global $retorno = _Service_Create("Agente.Teste", _
        "Agente - Teste", _
        $SERVICE_WIN32_OWN_PROCESS, _
        $SERVICE_AUTO_START, _
        $SERVICE_ERROR_IGNORE, _
        $path & "\Agente.Teste.exe")
        
MsgBox(0, "$retorno",  $retorno)
MsgBox(0, "@error", @error)

Tks.

Blois

Edited April 16, 2019 by Blois