Compilierte exe als Dienst/Service laufen lassen.

platte

Danke Bernd670 werde das gleich mal ausprobieren.

Ciao Jens

platte

Super Bernd das hat alles astrein geklappt!!
Ich habe auch meine fehler gefunden.
Bei der Installation mit SRVANY hat er in der Reg noch einen zusätzlichen Schlüssel <Servicename>Parameters angelgt der gehört aber direkt in den Schlüssel <Servicename>

Danke nochmal!!!
Ciao Jens

P.S. würde trotzdem mehr über DllCall wissen, denn das Manual ist ein wenig dürftig.

**bernd670**

Hier mal ein kleines Beispiel (auslesen und setzen den Desktop-Hintergrundbildes) zur Verwendung von DllCall:

Spoiler anzeigen

Code

#NoTrayIcon
Global Const $SPIF_UPDATEINIFILE = 0x01
Global Const $SPIF_SENDWININICHANGE = 0x02
Global Const $SPI_SETSCREENSAVEACTIVE = 0x11
Global Const $SPI_SETDESKWALLPAPER = 0x14
Global Const $SPI_GETDESKWALLPAPER = 0x73


Func _SetDeskWallpaper($Filename)
	DllCall("user32.dll", "long", "SystemParametersInfo" _  ; Funktion SystemParameterInfo aus user32.dll
			, "long", $SPI_SETDESKWALLPAPER _               ; Desktop-Hintergrundbild soll gesetzt werden
			, "long", 0 _                                   ; Parameter wird für diese Funktion nicht benötigt
			, "str", $Filename _                            ; Pfad zur Bitmap für das Hintergrundbild
			, "long", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE) _ ; Einstellungen speichern
			)
EndFunc   ;==>_SetDeskWallpaper


Func _GetDeskWallpaper()
	Local $Filename = DllStructCreate("char[256]") ; Hier wird der Pfad zur Bitmap gespeichert


    DllCall("user32.dll", "long", "SystemParametersInfo" _  ; Funktion SystemParameterInfo aus user32.dll
			, "long", $SPI_GETDESKWALLPAPER _               ; Desktop-Hintergrundbild soll gelesen werden
			, "long", 255 _                                 ; Maximale Pfad
			, "ptr", DllStructGetPtr($Filename) _           ; Zeiger auf die Struktur die den Pfad speichert
			, "long", 0 _                                   ; Parameter wird für diese Funktion nicht benötigt
			) 

	Return DllStructGetData($Filename, 1)  ; Name der Bitmap zurückgeben
EndFunc   ;==>_GetDeskWallpaper

Alles anzeigen

Ansonsten findest du viele Beispiele in den Include-Dateien von AutoIt, einen guten ApieViewer und viele Informationen über Funktionen in den System-DLL's findest du hier http://www.activevb.de/rubriken/apivi…-apiviewer.html

platte

Besten Dank da habe ich ja wieder was zu stöbern.

Ciao Jens

MatthiasG.

Hallo alle zusammen!

Tut mir Leid, dass ich so spät hierauf noch antworte, aber ich wollte mir das mal anschauen. Was kommt in die beiden Edits jetzt genau rein?
bzw. was ist die SRV-Any.exe und wo muss die exe für den Dienst und die exe aus dem Forum hin (welches Verzeichniss)?

Fast2

Ich habs jetzt nur überflogen und von daher weiß ich nicht ob das schon gesagt wurde ( ) :
Es gibt auch noch andere Möglichkeiten als die Instserv und Srvany, um einen Prozess als Dienst laufen zu lassen.
Zum Beispiel: ~~http://www.suedwest-pc.de/alladien-Details-7432.html~~ (gerade rausgesucht)

In der Hoffnung, dass damit vllt. die Probleme gelöst werden
Fast2

Edit: Das obere hatte eine Einschränkung, aber das gibt es auch noch: http://www.pirmasoft.de/runassvc.php

MatthiasG.

Irgendwie klappt das aber nicht so ganz

(Erstmal danke für den Link! Ist ein super Programm -> Wie vielen Keyloggern ich auf die Spur gekommen bin )

Ich habe ihm nach dem Start in die "Test.htm" im Windows-Verzeichniss (wo auch das Programm liegt) mit #RequireAdmin (unter Vista) "Programm gestartet" reinschreiben lassen.

Warum funzt das denn nicht? Wenn ich das normal starte funktioniert das...

m-obi

@MatthiasG.

Was meinst du mit "Wie vielen Keyloggern ich auf die Spur gekommen bin"?

MatthiasG.

Ich habe die Dienste überprüft und habe dabei ein paar verdächtige Programme gefunden...

m-obi

welchen Link von Fast2 haste denn genommen?

MatthiasG.

http://www.pirmasoft.de/runassvc.php
Den hier...

m-obi

Und wie hast du dann nach den Diensten gesucht?

MatthiasG.

Startmenü > Dienste

m-obi

Achso ich dachte du hast irgendwie mit diesen Toll nach den Diensten gesucht, weil du geschrieben hast:

(Erstmal danke für den Link! Ist ein super Programm -> Wie vielen Keyloggern ich auf die Spur gekommen bin )

deswegen dachte ich das.

MatthiasG.

Nein, das nicht.

Aber warum schreibt der nicht in eine Datei rein?

m-obi

In welche Datei soll er denn was reinschreiben?

MatthiasG.

ich hatte sie test.htm genannt...

Der Code war ganz einfach:

[autoit]

#RequireAdmin
FileDelete(@ScriptDir & "\test.htm")
FileWrite(@ScriptDir & "\test.htm", "Funktioniert!")

[/autoit]

Oder kann die Datei gar nicht beschrieben werden? Der Dienst lief auf jedem Fall, und wenn ich ihn manuell beendet, gestartet und wieder beendet habe, hat es funktioniert...

m-obi

du musst vorher die Datei öffnen mit FileOpen.

Nimm doch MsgBoxens dann siehste sofort ob der Dienst läuft.