Beiträge von XP-User

sieh dir das mal an.
http://www.usbsafeguard.com/howitworks.html

Hi , wollte schon lange mal ein Programm als Dienst starten, aber ohne Extra Tools wie z.B. runas, Invoker usw...

Mit dem hier klappt es einfach nicht, der Dienst wird einfach nicht gestartet.

Deshalb hab ich mir das hier einfallen lassen, ist zwar ziemlich einfach, aber klappt bestens.

Es wurde getestet auf Xp Pro, Win7 Starter, Win7 Ultimate 32 & 64 Bit.

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

#include <file.au3>
Global $szDrive, $szDir, $szFName, $szExt
$path = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)
$sName = $path[3]

[/autoit] [autoit][/autoit] [autoit]

If $CMDLINE[0] And $CMDLINE[1] = "-s" Then
_service()
Else
MsgBox(0, "", "Kein Service")
EndIf

[/autoit] [autoit][/autoit] [autoit]

Func _service()
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\" & $sName, "DisplayName", "REG_SZ", $sName)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\" & $sName, "ObjectName", "REG_SZ", "LocalSystem")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\" & $sName, "ErrorControl", "REG_DWORD", "1")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\" & $sName, "Start", "REG_DWORD", "2")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\" & $sName, "Type", "REG_DWORD", "16")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\" & $sName, "ImagePath", "REG_EXPAND_SZ", $path[0])
MsgBox(0, $path[0], "Service Installiert!")
EndFunc ;==>_service

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Ab hier kommt der Rest vom Script

[/autoit]

Vieleicht kann es wer gebrauchen.

so was hier ?

[autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

#include <GUIConstantsEx.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

#include <file.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Global $file, $btn1, $msg

[/autoit][autoit][/autoit][autoit]

Opt('MustDeclareVars', 1)

[/autoit][autoit][/autoit][autoit]

GUICreate("x_Beliebige Datei hier rein ziehen", 320, 120, 2, 4, -1, 0x00000018)
GUISetBkColor(0xC0DCC0)
$file = GUICtrlCreateInput("", 10, 5, 300, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$btn1 = GUICtrlCreateButton("Ok", 40, 75, 60, 20)
GUISetState(@SW_SHOW)
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $btn1
ExitLoop
EndSelect
WEnd

[/autoit][autoit][/autoit][autoit][/autoit]

_Edit
das ist nur ein Teil vom Script

Dank für die Antwort

habe es hiermit gemacht, das hatte gefehlt.

$counter += 1

Hi hab da mal ne blöde Frage an euch, wie kann ich es machen das der Schlüsseleintrag bei jedem Aufruf um eins weitergezählt wird.

IniWrite("Datei.ini",
"sektion2",
"Schlüssel",
"Wert")

[sektion2]
1=Wert
2=Wert

3=Wert usw..

Bekomme das einfach nicht hin

Meins heisst E-CAM von Asus, damit geht es ohne Probleme, eben nur nicht mit AutoIt.

Seltsamerweise!

danke für die Antwort, habe das Script von Bugfix ausprobiert aber ohne Erfolg. Zugriff auf Webcam nur einmal danach muss Pc Neugestartet werden, vieleicht liegt's an Win7 Starter.

Guten Morgen,
Hier gibt es ja ne ganze Menge an Webcam Script's, habe schon einige ausprobiert und unter XP klappt alles bestens.
Vor ein paar Wochen habe ich mir ein EeePc zugelegt mit Win7 Starter, wen ich nun die Webcam per Script starte, und beende muss ich erst neustarten um die Cam ans laufen zu bringen.

Weiss da einer von euch Rat.

ich hab es ganz einfach so gemacht.

habe mir das Script mal angesehen, aber bei mir wird kein Benutzername geschrieben.

Das PW wird in Md5 geschrieben aber das wars auch schon, weiss einer wo da der Fehler liegt.

probiere es mal hiermit.

stimmt hast recht, habe es mit 2 versch. Kartenlesern getestet, einmal intern und dann extern, werde mich mal mit der Sache auseinandersetzen.

Hallo, hiermit kannste alle angeschlossennen Usb Geräte Informationen bekommen.

http://www.nirsoft.net/utils/usb_devices_view.html

habe mir mal ein Script geschrieben wo z.B. Usb Stick's in der Registry ausgelesen werden, mal sehen wo ich das habe.

Hier findest du schonmal eindeutige Geräte Id

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\usbstor\Enum

[autoit]

$ini = IniRead("key.ini","key","K1","")

[/autoit][autoit][/autoit][autoit]

HotKeySet($ini, "start")
;HotKeySet("{F4}", "start")

[/autoit][autoit][/autoit][autoit]

while 1
Sleep(100)
WEnd

[/autoit][autoit][/autoit][autoit]

Func start()
MsgBox(0,"","Hallo")
Exit
EndFunc

[/autoit]

Hab den Fehler gefunden, in die ini muss rein

K1="!{F4}"

dann gehts mit Alt & F4

Packen,
kannste einfach hiermit

[autoit][/autoit][autoit][/autoit][autoit]

$files = 'C:\test\*.*')
RunWait (@ProgramFilesDir & '\WinRAR\WinRAR.exe a -r -hpautoIt c:\autopack.rar ' & $files)

[/autoit][autoit][/autoit][autoit][/autoit]

Entpacken kannste nur mit dem Pw AutoIt

Hallo, wie kann ich ein HotKeySet aus der Registry oder Ini auslesen und im Anschluß anwenden.

Wenn ich z.B.
HKEY_CURRENT_USER\Software\Microsoft\BEISPIEL den Key F8 stehen habe, so wird nur F ausgelesen und angewendet, möchte aber die F8 Taste belegen.

Hintergrund der Tastenkombination ist es, für bestimmtes Programm eine bestimmte Tastenkombination zu erstellen, ohne das Script zu öffnen.

hi, hätte da gleichmal 2 Fragen.

Punkt_1
habe mir vor ca. 1 1/2 Jahen ein Script geschrieben, für ein ContainerFile von TrueCrypt einzubinden, klappt auch bestens bis jetzt, alles kein Problem.
aber wie kann ich \Device\Harddisk1\Partition1 auslesen, um eine Partition einzubinden z.B. vom kompleten Usb_Stick.

Punkt_2
z.B. habe 2 Partitionen und klemme dann eine 2.Hd an mit 2. Partionen (K:\) & (L:\), wie kann ich vo der 2.Partion das Drive C:\Winroot auslesen.

ja Danke klappt prima

hi, wie kann ich leere Ordner + unterordner kopieren ohe Inhalt.
Habe es mit
_RecursiveFileSearch.au3
von Bugfix probiert, entweder passiert garnichts, oder es werden alle Dateien kopiert. Brauche aber nur die Ordnerstruktur.

Zitat von McGangster

OnAutoItExitRegister("EndPicDelete")

[autoit]

ShellExecuteWait("Gen.bat","",@ScriptDir,"",@SW_HIDE)

[/autoit]

so z.B. ?