Monitor Func. einbauen

Hi

ich probiere seit längerem diese function

[autoit]

; toggle monitor On/Off
; Author greenmachine

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

MonitorToggle(1)
Sleep (20000)
MonitorToggle(0)

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

Func MonitorToggle($Off = 1)
$opt = Opt("WinTitleMatchMode", 4)

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

$WM_SYSCommand = 274
$SC_MonitorPower = 61808
$Power_Off = 2
$Power_On = -1

$HWND = WinGetHandle("classname=Progman")
If $Off Then
DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND, "int", $WM_SYSCommand, _
"int", $SC_MonitorPower, "int", $Power_Off)
Else
DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND, "int", $WM_SYSCommand, _
"int", $SC_MonitorPower, "int", $Power_On)
EndIf
Opt ("WinTitleMatchMode", $opt)
EndFunc

[/autoit]

in dieses

[autoit]

WinMinimizeAll ( )
$1= inputbox ("Laufwerk des Sticks?", "Verschieben nach?")
$2= inputbox ("Heutiges Datum?", "Form: YYYY-MM-TT")
If inputbox ("Ihre Firefox Version?","Haben sie Firefox 2 oder 3? ")= 2 then
blockinput(1)
run("mozbackup.exe")
WinWaitActive("MozBackup 1.4.8 Setup")
send( "!Next")
WinWaitActive("MozBackup 1.4.8 Setup")
send( "{ENTER}")
WinWaitActive("MozBackup 1.4.8 Setup")
send( "{ENTER}")
WinWaitActive("MozBackup 1.4.8 Setup")
send( "{ENTER}")
run("C:\Programme\MozBackup\MozBackup.exe")
winwaitactive("MozBackup 1.4.8 - Welcome")
send( "{ENTER}")
controlclick("MozBackup 1.4.8 - Operation Type","Mozilla Firefox 2.0.0.14 (de)","","left",2)
send( "{ENTER}")
mousemove(600,419)
mouseclick("left")
send( "{ENTER}")
mousemove(676,562)
mouseclick("left")
send( "{ENTER}")
sleep(5000)
send( "{ENTER}")
run("C:\Programme\MozBackup\Uninstall.exe")
WinWaitActive("MozBackup 1.4.8 Uninstall")
send( "{ENTER}")
sleep(2500)
send( "{ENTER}")
FileMove("C:\Dokumente und Einstellungen\" & @UserName & "\Eigene Dateien\Firefox 2.0.0.14 (de) - " & $2 & ".pcv", $1 & ":\")

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

ElseIf inputbox ("Ihre Firefox Version?","Haben sie Firefox 2 oder 3? ")= 3 then
blockinput(1)
run("mozbackup.exe")
WinWaitActive("MozBackup 1.4.8 Setup")
send( "!Next")
WinWaitActive("MozBackup 1.4.8 Setup")
send( "{ENTER}")
WinWaitActive("MozBackup 1.4.8 Setup")
send( "{ENTER}")
WinWaitActive("MozBackup 1.4.8 Setup")
send( "{ENTER}")
run("C:\Programme\MozBackup\MozBackup.exe")
winwaitactive("MozBackup 1.4.8 - Welcome")
send( "{ENTER}")
controlclick("MozBackup 1.4.8 - Operation Type","Mozilla Firefox 3.0 (de)","","left",2)
send( "{ENTER}")
mousemove(600,419)
mouseclick("left")
send( "{ENTER}")
mousemove(676,562)
mouseclick("left")
send( "{ENTER}")
sleep(5000)
send( "{ENTER}")
run("C:\Programme\MozBackup\Uninstall.exe")
WinWaitActive("MozBackup 1.4.8 Uninstall")
send( "{ENTER}")
sleep(2500)
send( "{ENTER}")
FileMove("C:\Dokumente und Einstellungen\" & @UserName & "\Eigene Dateien\Firefox 3.0 (de) - " & $2 & ".pcv", $1 & ":\")
endif
BlockInput(0)

[/autoit]

script einzubauen. Das Zeil ist das der Monitor nach den msg boxen ausgeht und nach abschluss des scripüts wieder angeht..ich verzweifle

1) Nimm doch die .zip-Version und entpacke mit 7zip
2) Verwende commandline-parameter: http://mozbackup.jasnapaka.com/command-line-backup.php

Dann passiert alles im Hintergrnd, und der nutzer kann weiterarbeiten.

was bringt mir denn die .zip version...ich habe vorgaben, ich muss nurnoch den monitor toggle einbauen plz help

Entpacken ohen Installation :). Musst nur 7-Zip mit ins Paket nehmen. ( 7zip-Tutorial )
Das Problem beim Monitortoggle ist, dass es sich durch Send unter benutzereingaben wieder ausschaltet.

//Edit: Aber auf XP kann man es mit einer schwarzen, durchklickbaren GUI machen:

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
Func _CreateBlack($deckkraft = 255)
$GUI = GUICreate("hi",@DesktopWidth,@DesktopWidth,0,0,$WS_POPUP,$WS_EX_TRANSPARENT+$WS_EX_LAYERED+$WS_EX_TOPMOST)
GUISetBkColor(0)
GUISetState()
If $deckkraft > 254 Then $deckkraft = 254
WinSetTrans($GUI,"",$deckkraft)
WinSetOnTop($GUI,"",1)
Return $GUI
EndFunc
Func _DeleteBlack($GUI)
GUIDelete($GUI)
EndFunc

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

$GUI = _CreateBlack()
Sleep(5000)
_DeleteBlack($GUI)

[/autoit]