the problem mit der Cmd

LumpY89

guten Morgen

hier mal eine ausschnitt aus meinem Skript... (der nicht funktioniert)

Code

If BitAND(GUICtrlRead($energy), $GUI_CHECKED) then
		Run("cmd.exe")
		WinWaitActive("C:\WINDOWS\system32\cmd.exe") 
		Send("powercfg /hibernate on") 
		Send("{Enter}")
		WinWaitActive("C:\WINDOWS\system32\cmd.exe")
		Send("powercfg /setactive 0 /numerical")
		Send("{Enter}")
		WinWaitActive("C:\WINDOWS\system32\cmd.exe")
		Send("powercfg /change 0 /numerical /hibernate-timeout-ac 60")
		Send("{Enter}")
		WinWaitActive("C:\WINDOWS\system32\cmd.exe")
		WinClose("C:\WINDOWS\system32\cmd.exe")
		EndIf

Alles anzeigen

Er ruft die Console auf und gibt "powercfg /hibernate on" ein dann sollt eine schlichtes ENTER folgen xDD was folgt ist aber ein ENTER,powercfg /hibernate on, ENTER,powercfg /hibernate on, ENTER,powercfg /hibernate on, ENTER,powercfg /hibernate on... also quasi eine schleife die nicht endet...WHY? =)

LG

Prajoss

Moin,

poste doch bitte den gesamten Code

Und nimm lieber ControlSetText oder ControlSend anstatt Send

Gruß

Prajoss

LumpY89

ok

Warnung: an vielen stellen noch nicht fertig, nichts ausgelagert =)

Code

#include <GUIConstants.au3>


Opt("GUIOnEventMode",1)


GUICreate("Installationguide 0.1a", 600, 600) 
GUISetOnEvent($GUI_EVENT_CLOSE, "_Close") ;schliessen


; Auswahl der Software
; 1. Office-Versionen:


GUICtrlCreateLabel("Bitte wählen Sie zwischen folgender Software aus:", 10, 10)
GUICtrlCreateLabel("Bitte wählen Sie Ihre gewünschte Office-Version aus:", 10, 30)


$o2000 = GUICtrlCreateCheckbox("Office2000", 10, 50) ;unfertig
GUICtrlSetOnEvent(-1, '_o2000clicked')
$oxp =   GUICtrlCreateCheckbox("OfficeXP", 10, 70) ;unfertig
GUICtrlSetOnEvent(-1, '_oxpclicked')
$o2003 = GUICtrlCreateCheckbox("Office2003", 10, 90) ;unfertig
GUICtrlSetOnEvent(-1, '_o2003clicked')
$o2007 = GUICtrlCreateCheckbox("Office2007", 10, 110) ;unfertig
GUICtrlSetOnEvent(-1, '_o2007clicked')


; Sonstige software


GUICtrlCreateLabel("Sonstige Software:", 10, 150)
$reader = GUICtrlCreateCheckbox("Adobe Reader 9.0", 10, 170) ;fertig
GUICtrlSetOnEvent(-1, '_reader')
$erp = GUICtrlCreateCheckbox("ProAlpha", 10, 190) ;fertig
GUICtrlSetOnEvent(-1, '_erp')
$pointsec = GUICtrlCreateCheckbox("Pointsec 4.91", 10, 210) ;fertig
GUICtrlSetOnEvent(-1, '_pointsec')
$kasws = GUICtrlCreateCheckbox("Kaspersky Workstartion", 10, 230) ;unfertig
GUICtrlSetOnEvent(-1, '_kasws')
$kasnb = GUICtrlCreateCheckbox("Kaserpsky Notebook", 10, 250) ;unfertig
GUICtrlSetOnEvent(-1, '_kasnb')
$freepdf = GUICtrlCreateCheckbox("Ghostscript und FreePDF XP", 10, 270) ;fertig
GUICtrlSetOnEvent(-1, '_freepdf')
$image = GUICtrlCreateCheckbox("Microsoft Powertools Imageresizer", 10, 290) ;fertig
GUICtrlSetOnEvent(-1, '_image')
$pdfx = GUICtrlCreateCheckbox("PDF XChange Viewer", 10, 310) ;fertig
GUICtrlSetOnEvent(-1, '_pdfx')


; Sonstiges


GUICtrlCreateLabel("Sonstiges:", 10, 350)
$message = GUICtrlCreateCheckbox("Nachrichtendienst einschalten", 10, 370) ;fertig
GUICtrlSetOnEvent(-1, '_message')
$bginfo = GUICtrlCreateCheckbox("Bginfo installieren", 10, 390) ;fertig - bitte ausfürlich testen!
GUICtrlSetOnEvent(-1, '_bginfo')
$energy = GUICtrlCreateCheckbox("Dauerbetrieb & Ruhezustand aktivieren", 10, 410) ;fertig
GUICtrlSetOnEvent(-1, '_energy')






; Ok & Cancel


$okbutton = GUICtrlCreateButton ("OK",10,500,70,20)
GUICtrlSetState(-1,$GUI_FOCUS)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1,"_Checkbox")
$cancelbutton = GUICtrlCreateButton ("Cancel",180,500,70,20)
GUICtrlSetOnEvent(-1,"_Close")
$serial = ""


GUISetState ()
While 1
    Sleep(100)
WEnd


Func _Close()
    GUIDelete()
    Exit
EndFunc


Func _o2000clicked()
    If BitAND(GUICtrlRead($o2000), $GUI_CHECKED) Then 
        GUICtrlSetState($okbutton, $GUI_ENABLE)
		GUICtrlSetState($oxp, $GUI_DISABLE)
		GUICtrlSetState($o2003, $GUI_DISABLE)
		GUICtrlSetState($o2007, $GUI_DISABLE)
		$serial = InputBox("Seriennummer eingeben", "Bitte geben Sie die Seriennummer Ihres Produktes ein!", "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX")
    Else
        GUICtrlSetState($o2000, $GUI_ENABLE)
		GUICtrlSetState($oxp, $GUI_ENABLE)
		GUICtrlSetState($o2003, $GUI_ENABLE)
		GUICtrlSetState($o2007, $GUI_ENABLE)
        If BitAND(GUICtrlRead($o2000), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
    EndIf
EndFunc


Func _oxpclicked()
    If BitAND(GUICtrlRead($oxp), $GUI_CHECKED) Then 
        GUICtrlSetState($okbutton, $GUI_ENABLE)
		GUICtrlSetState($o2000, $GUI_DISABLE)
		GUICtrlSetState($o2003, $GUI_DISABLE)
		GUICtrlSetState($o2007, $GUI_DISABLE)
		$serial = InputBox("Seriennummer eingeben", "Bitte geben Sie die Seriennummer Ihres Produktes ein!", "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX")
    Else
        GUICtrlSetState($oxp, $GUI_ENABLE)
		GUICtrlSetState($o2000, $GUI_ENABLE)
		GUICtrlSetState($o2003, $GUI_ENABLE)
		GUICtrlSetState($o2007, $GUI_ENABLE)
        If BitAND(GUICtrlRead($oxp), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
    EndIf
EndFunc


Func _o2003clicked()
    If BitAND(GUICtrlRead($o2003), $GUI_CHECKED) Then 
        GUICtrlSetState($okbutton, $GUI_ENABLE)
		GUICtrlSetState($o2000, $GUI_DISABLE)
		GUICtrlSetState($oxp, $GUI_DISABLE)
		GUICtrlSetState($o2007, $GUI_DISABLE)
		$serial = InputBox("Seriennummer eingeben", "Bitte geben Sie die Seriennummer Ihres Produktes ein!", "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX")
    Else
        GUICtrlSetState($oxp, $GUI_ENABLE)
		GUICtrlSetState($o2000, $GUI_ENABLE)
		GUICtrlSetState($o2003, $GUI_ENABLE)
		GUICtrlSetState($o2007, $GUI_ENABLE)
        If BitAND(GUICtrlRead($o2003), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
    EndIf
EndFunc


Func _o2007clicked()
    If BitAND(GUICtrlRead($o2007), $GUI_CHECKED) Then 
        GUICtrlSetState($okbutton, $GUI_ENABLE)
		GUICtrlSetState($oxp, $GUI_DISABLE)
		GUICtrlSetState($o2003, $GUI_DISABLE)
		GUICtrlSetState($o2000, $GUI_DISABLE)
		$serial = InputBox("Seriennummer eingeben", "Bitte geben Sie die Seriennummer Ihres Produktes ein!", "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX")
    Else
        GUICtrlSetState($oxp, $GUI_ENABLE)
		GUICtrlSetState($o2000, $GUI_ENABLE)
		GUICtrlSetState($o2003, $GUI_ENABLE)
		GUICtrlSetState($o2007, $GUI_ENABLE)
        If BitAND(GUICtrlRead($o2007), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
    EndIf
EndFunc


Func _reader()
	If BitAND(GUICtrlRead($reader), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($reader, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($reader), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
		EndIf
EndFunc

Func _message()
	If BitAND(GUICtrlRead($message), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)

	Else
		GUICtrlSetState($message, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($message), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
		EndIf
EndFunc


Func _erp()
	If BitAND(GUICtrlRead($erp), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($erp, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($erp), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
	EndIf
EndFunc

Func _pointsec()
	If BitAND(GUICtrlRead($pointsec), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($pointsec, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($pointsec), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
	EndIf
EndFunc


Func _kasws()
	If BitAND(GUICtrlRead($kasws), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($kasws, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($kasws), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
	EndIf
EndFunc


Func _kasnb()
	If BitAND(GUICtrlRead($kasnb), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($kasnb, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($kasnb), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
	EndIf
EndFunc


Func _freepdf()
	If BitAND(GUICtrlRead($freepdf), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($freepdf, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($freepdf), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
	EndIf
EndFunc


Func _image()
	If BitAND(GUICtrlRead($image), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($image, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($image), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
	EndIf
EndFunc


Func _pdfx()
	If BitAND(GUICtrlRead($pdfx), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($pdfx, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($pdfx), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
	EndIf
EndFunc


Func _bginfo()
	If BitAND(GUICtrlRead($bginfo), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($bginfo, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($bginfo), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
		EndIf
	EndFunc

Func _energy()
	If BitAND(GUICtrlRead($energy), $GUI_CHECKED) Then
		GUICtrlSetState($okbutton, $GUI_ENABLE)
	Else
		GUICtrlSetState($energy, $GUI_ENABLE)
		If BitAnd(GUICtrlRead($energy), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
		EndIf
EndFunc




Func _Checkbox();

		If BitAND(GUICtrlRead($kasws), $GUI_CHECKED) then
;~ 		RunWait("C:\KAVWKS6 6.0.3.837\setup.exe")
		Run("C:\NetAgent 6.0.1591\setup.exe")
		WinWaitActive("Installationsassistent - Administrationsagent")
		Send("!W")
		WinWaitActive("Installationsassistent - Administrationsagent", "&Ja")
		Send("!J")
		WinWaitActive("Installationsassistent - Administrationsagent")
		ControlSetText("Installationsassistent - Administrationsagent", "", "[CLASS:Edit; Instance:3]", "slps42")
		Send("!W")
		WinWaitActive("Installationsassistent - Administrationsagent")
		Send("!W")
		WinWaitActive("Installationsassistent - Administrationsagent")
		Send("!W")
		WinWaitActive("Installationsassistent - Administrationsagent")
		Send("!W")
		WinWaitActive("Installationsassistent - Administrationsagent", "Fertig stellen")
		ControlClick("Installationsassistent - Administrationsagent", "Fertig stellen", "[CLASS:Button; Instance:4]")
		EndIf

		If BitAND(GUICtrlRead($reader), $GUI_CHECKED) then
			RunWait("D:\AdbeRdr90_de_DE.exe /sAll") 
		EndIf
		If BitAND(GUICtrlRead($message), $GUI_CHECKED) then
			RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Messenger", "Start", "REG_DWORD", "2") 
		EndIf
		If BitAND(GUICtrlRead($bginfo), $GUI_CHECKED) then
		$name = InputBox("Username", "Bitte teilen Sie mir den zukünftigen Usernamen mit, dieser muss exakt gleich mit dem Anmeldenamen sein!")
		Dircopy("C:\bginfo", "C:\test", 1)
		Filecopy("C:\bginfo\bginfo.bat", "C:\Dokumente und Einstellungen\"& $name &"\Startmenü\Programme\Autostart\", 8)
	    EndIf

		If BitAND(GUICtrlRead($energy), $GUI_CHECKED) then
		Run("cmd.exe")
		WinWaitActive("C:\WINDOWS\system32\cmd.exe") 
		Send("powercfg /hibernate on") 
		Send("{Enter}")
		WinWaitActive("C:\WINDOWS\system32\cmd.exe")
		Send("powercfg /setactive 0 /numerical")
		Send("{Enter}")
		WinWaitActive("C:\WINDOWS\system32\cmd.exe")
		Send("powercfg /change 0 /numerical /hibernate-timeout-ac 60")
		Send("{Enter}")
		WinWaitActive("C:\WINDOWS\system32\cmd.exe")
		WinClose("C:\WINDOWS\system32\cmd.exe")
		EndIf

		If BitAND(GUICtrlRead($image), $GUI_CHECKED) then
			Run("D:\image.exe") 
			WinWaitActive("Image Resizer Powertoy for Windows XP", "&Next")
		    Send("!N")
			WinWaitActive("Image Resizer Powertoy for Windows XP")
			Send("!a")
			WinWaitActive("Image Resizer Powertoy for Windows XP")
			Send("!N")
			WinWaitActive("Image Resizer Powertoy for Windows XP")
			Send("!U")
			Send("Username")
			Send("!O")
			Send("Organisation")
			Send("!N")
			WinWaitActive("Image Resizer Powertoy for Windows XP")
			Send("!C")
			Send("!N")
			WinWaitActive("Image Resizer Powertoy for Windows XP", "&Install")
			Send("!I")
			WinWaitActive("Image Resizer Powertoy for Windows XP", "Finish")
			Send("!F")	
		EndIf
		If BitAND(GUICtrlRead($o2000), $GUI_CHECKED) then
		IniWrite("D:\settings.ini", "Options", "PIDKEY", $serial)
		RunWait("D:\Office2000\Office2000\SETUP.EXE /qb /settings D:\settings.ini")
    	EndIf

		If BitAnd(GUICtrlRead($erp), $GUI_CHECKED) Then
			RunWait("msiexec.exe /i D:\nEW\NEW.msi") 
			Run("msiexec.exe /i D:\ProAlpha\pAClient.msi") 
			WinWaitActive("Installer Information", "&Wiederholen")
			ControlClick ("Installer Information", "&Ignorieren", "[CLASS:Button; Instance:3]")
			WinWaitActive("Logik", "OK")
			ControlClick ("Logik", "OK", "[CLASS:Button; Instance:1]")
			WinWaitActive("TAPI-Verwaltungssetup", "OK")
			ControlClick ("TAPI-Verwaltungssetup", "OK", "[CLASS:Button; Instance:1]")
			WinWaitActive("proALPHA Client Setup", "&Fertigstellen")
			ControlClick ("proALPHA Client Setup", "&Fertigstellen", "[CLASS:Button; Instance:1]")
		EndIf

		If BitAND(GUICtrlRead($pointsec), $GUI_CHECKED) Then
			Run("D:\4.91\Pointsec_Protector_4.91_HFA2_Client\setup.exe")
			WinWaitActive("InstallShield Wizard", "&Next")
			Send("!N")
			WinWaitActive("InstallShield Wizard")
			Send("!a")
			WinWaitActive("InstallShield Wizard")
			Send("!N")
			WinWaitActive("InstallShield Wizard")
			Send("!C")
			Send("!N")
			WinWaitActive("InstallShield Wizard")
			ControlSend("InstallShield Wizard", "", "[CLASS:Edit; Instance:1]", "slps42")
			Send("!S")
			Send("!A")
			WinActivate("InstallShield Wizard", "&Next")
			ControlClick ("InstallShield Wizard", "&Next", "[CLASS:Button; Instance:9]")
			WinWaitActive("InstallShield Wizard", "&Next")
			ControlClick ("InstallShield Wizard", "&Next", "[CLASS:Button; Instance:1]")
			WinWaitActive("InstallShield Wizard", "Finish")
			ControlClick ("InstallShield Wizard", "Finish", "[CLASS:Button; Instance:2]")
			ControlClick ("InstallShield Wizard", "Finish", "[CLASS:Button; Instance:4]")

		EndIf


		If BitAND(GUICtrlRead($freepdf), $GUI_CHECKED) Then
			Run("D:\FreepdfXP\gs853w32.exe")
			WinWaitActive("WinZip Self-Extractor - gs853w32.exe", "&Setup")
			ControlClick ("WinZip Self-Extractor - gs853w32.exe", "&Setup", "[CLASS:Button; Instance:1]")
			WinWaitActive("AFPL Ghostscript Setup")
			ControlClick ("AFPL Ghostscript Setup", "All Users", "[CLASS:Button; Instance:3]")
			ControlClick ("AFPL Ghostscript Setup", "Install", "[CLASS:Button; Instance:1]")
			WinWaitActive("Ghostscript")
			WinClose("Ghostscript")
			Run("D:\FreepdfXP\FreePDFXP3.24.EXE") 
			WinWaitActive("FreePDF XP 3.24", "&Setup")
			Send("!S")
			WinWaitActive("FreePDF XP 3.24", "&End")
			Send("!E")


		EndIf

		If BitAND(GUICtrlRead($pdfx), $GUI_CHECKED) then
		Run("D:\PDFXVwer.exe")
		WinWaitActive("Setup-Sprache auswählen", "OK")
		ControlClick ("Setup-Sprache auswählen", "OK", "[CLASS:TNewButton; Instance:1]")
		WinWaitActive("Setup - PDF-XChange PDF Viewer", "&Weiter")
		Send("!W")
		WinWaitActive("Setup - PDF-XChange PDF Viewer")
		ControlClick ("Setup - PDF-XChange PDF Viewer", "Ich &akzeptiere die Vereinbarung", "[CLASS:TNewRadioButton; Instance:1]")
		Send("!W")
		WinWaitActive("Setup - PDF-XChange PDF Viewer")
		Send("!W")
		WinWaitActive("Setup - PDF-XChange PDF Viewer")
		Send("!W")
		WinWaitActive("Setup - PDF-XChange PDF Viewer")
		Send("!W")
		WinWaitActive("Setup - PDF-XChange PDF Viewer")
		Send("!W")
		WinWaitActive("Setup - PDF-XChange PDF Viewer")
		Send("!W")
		WinWaitActive("Setup - PDF-XChange PDF Viewer")
		Send("!I")
		WinWaitActive("Setup - PDF-XChange PDF Viewer", "&Fertigstellen")
		Send("{SPACE}")
		Send("!F")
		EndIf



EndFunc

Alles anzeigen

XTC99

Bitte Autoit Quell-Code benutzen beim Forenschreiben, sonst tut man sich so schwer beim lesen

So könntest du es auch lösen:

[autoit]

Run (@ComSpec & " /c powercfg /hibernate on", @ScriptDir, @SW_HIDE)

[/autoit]

LumpY89

das funktioniert nicht =(

XTC99

Komisch habs grad mit Administratorrechten unter WinXP gestestet und der Ruhezustand war eingeschaltet.

Probiers mal so

[autoit]

#RequireAdmin

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

Run (@ComSpec & " /c powercfg /hibernate on", @ScriptDir, @SW_HIDE)

[/autoit]

LumpY89

hmm, gerade mal gesehen, wenn ich die datei vom dessi ausführt, also compiled, dann macht er kein ende,
kopiere ich die datei nach C: oder D: dann lüppt das...

Jmd. ne Idee? will mir sicher gehen wenn ich das ding nacher starte, soll eine installationshilfe werden, das das auch klappt..

Jam00

Mach doch einfach so:

Spoiler anzeigen

[autoit]

$BAT = @TempDir & "\Temp1234.bat"
FileWrite ($BAT,"powercfg /hibernate on" & @CRLF & "powercfg /setactive 0 /numerical" & @CRLF & "powercfg /change 0 /numerical /hibernate-timeout-ac 60")
Run($BAT,Default,@SW_HIDE)

[/autoit]

L3viathan

Übrigens: Das musst du nicht aus der CMD starten. Es genügt also ein einfaches:

[autoit]

Run("powercfg /hibernate on",Default,@SW_HIDE)
Run("powercfg /setactive 0 /numerical",Default,@SW_HIDE)
Run("powercfg /change 0 /numerical /hibernate-timeout-ac 60",Default,@SW_HIDE)

[/autoit]