Bildschirmschoner

muh_kuh

Hallo
da ich hier in Forum gelsen habe das duch die umbenennung von .exe zu .scr man ein Bildschirschoner machen kann habe ich mal das geschrieben
einige erweiterungs ideen habe ich schon
z.B.

aufruf eine HP (für Firmen News)
vorbereitung von Instalationen (donlad von daten)
System check

aber jetzt erst mal die Grund version
von der nummer her würde ich sie bei V.0.6.3 ansetzen

Code

Opt ("TrayIconHide", 1)
If $CmdLine[0] <> 0 then 
  if $CmdLine[1] = "/p" then 
    exit
  elseif (StringLeft ($CmdLine[1], 2)) = "/c" then

    Msgbox(0,"Einstellungen","Hier kann man ein paar Sachen einstellen")
    ; Hier Kommt rein was man einstelln können soll

    exit
  elseif $CmdLine[1] = "/s" then

    MSGBOX(0,"Start","Hier wird das Programm gestarte für den Bildschirmschoner")
    ;Hier muss der Aufruf für den Bildschirschoner Rein 

  EndIf
Else
  exit
EndIf
HotKeySet ("{esc}", "MyExita")
;wo ist die Maus
$maus = MouseGetPos ()
While 1
  sleep(500)
  $maus2 = MouseGetPos ()
  IF $maus[0] <> $maus2[0] then
    MyExita()
  EndIf
  IF $maus[1] <> $maus2[1] then
    MyExita()
  EndIf
  If _IsPressed(41) Then
     MyExit("a")
    EndIf
  If _IsPressed(42) Then
     MyExit("b")
  EndIf
  If _IsPressed(43) Then
     MyExit("c")
  EndIf
  If _IsPressed(44) Then
     MyExit("d")
  EndIf
  If _IsPressed(45) Then
     MyExit("e")
  EndIf
  If _IsPressed(46) Then
     MyExit("f")
  EndIf
  If _IsPressed(47) Then
     MyExit("g")
  EndIf
  If _IsPressed(48) Then
     MyExit("h")
  EndIf
  If _IsPressed(49) Then
     MyExit("i")
  EndIf
  If _IsPressed('4a') Then
     MyExit("j")
  EndIf
  If _IsPressed('4b') Then
     MyExit("k")
  EndIf
  If _IsPressed('4c') Then
     MyExit("l")
  EndIf
  If _IsPressed('4d') Then
     MyExit("m")
  EndIf
  If _IsPressed('4e') = 1 Then
     MyExit("n")
  EndIf
  If _IsPressed('4f') Then
     MyExit("o")
  EndIf
  If _IsPressed(50) Then
     MyExit("p")
  EndIf
  If _IsPressed(51) Then
     MyExit("q")
  EndIf
  If _IsPressed(52) Then
     MyExit("r")
  EndIf
  If _IsPressed(53) Then
     MyExit("s")
  EndIf
  If _IsPressed(54) Then
     MyExit("t")
  EndIf
  If _IsPressed(55) Then
     MyExit("u")
  EndIf
  If _IsPressed(56) Then
     MyExit("v")
  EndIf
  If _IsPressed(57) Then
     MyExit("w")
  EndIf
  If _IsPressed(58) Then
     MyExit("x")
  EndIf
  If _IsPressed(59) Then
     MyExit("y")
  EndIf
   If _IsPressed('5a') Then
     MyExit("z")
  EndIf
  If _IsPressed('08') Then
     MyExit("BACKSPACE")
  EndIf  
    If _IsPressed('10') Then
     MyExit("SHIFT")
    EndIF
      If _IsPressed('11') Then
     MyExit("CTRL")
    EndIf
      If _IsPressed('12') Then
     MyExit("ALT")
  EndIf
    If _IsPressed('20') Then
     MyExit("SPACE")
    EndIf
      If _IsPressed('21') Then
     MyExit("PGUP")
    EndIf
      If _IsPressed('22') Then
     MyExit("PGDOWN")
    EndIf
      If _IsPressed('23') Then
     MyExit("END")
    EndIf
      If _IsPressed('24') Then
     MyExit("HOME")
    EndIf
      If _IsPressed('25') Then
     MyExit("LEFT ARROW")
    EndIf
      If _IsPressed('26') Then
     MyExit("UP ARROW")
    EndIf
      If _IsPressed('27') Then
     MyExit("RIGHT ARROW")
    EndIf
      If _IsPressed('28') Then
     MyExit("DOWN ARROW")
    EndIf
      If _IsPressed('2c') Then
     MyExit("PRNTSCRN")
    EndIf
      If _IsPressed('2d') Then
     MyExit("INSERT")
    EndIf
      If _IsPressed('2e') Then
     MyExit("DEL")
  EndIf
    If _IsPressed('30') Then
     MyExit("0")
    EndIf
      If _IsPressed('31') Then
     MyExit("1")
    EndIf
      If _IsPressed('32') Then
     MyExit("2")
    EndIf
      If _IsPressed('33') Then
     MyExit("3")
    EndIf
      If _IsPressed('34') Then
     MyExit("4")
    EndIf
      If _IsPressed('35') Then
     MyExit("5")
    EndIf
   If _IsPressed('36') Then
     MyExit("6")
    EndIf
    If _IsPressed('37') Then
     MyExit("7")
    EndIf
  If _IsPressed('38') Then
     MyExit("8")
  EndIf
  If _IsPressed('39') Then
     MyExit("9")
 EndIf
WEnd
Func _IsPressed($hexKey)
Local $aR, $bRv;$hexKey
$hexKey = '0x' & $hexKey
$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
If $aR[0] <> 0 Then
    $bRv = 1
Else
    $bRv = 0
EndIf
Return $bRv
EndFunc


Func MyExit($datenfuerdietonne)
   MyExita()
EndFunc


Func MyExita()


;hier muss das Programm geändet werden 


exit
EndFunc

Alles anzeigen

der Bildschir schone rkann auch mit den Rücker umgehn

wenn man ihn eistezt muss man noch die 3 Kommentrae ändern

**peethebee**

Hallo!

Gute Idee 8)! Ein Wort noch zu dem Umbenennen: Man muss die Datei dann auch zu den anderen scr-Dateien kopieren (einfach danach suchen, irgendwo unter C:\Windows\), dann erscheint ein neuer Bildschirmschoner in der Auswahl bei "Anzeige".

peethebee

geRRus

Aber lauf fähig ist dein geposteter Script noch nicht und zwar in erster Linie deswegen:

Code

HotKeySet ("{esc}", "MyExit")

Du rufst die Funktion MyExit auf ,soweit so gut ,nur verlangt deine Funktion "MYExit" ein Parameter, du rufst es aber ohne deswegen meckert mein SciTE.

muh_kuh

wo es recht hat hat es recht
ändere es oben

geRRus

Zitat

wo es recht hat hat es recht

Wenn das auf mich bezogen war->Ich bin kein "es". Ein "du" würde auch reichen.

EDIT:Ok , da habe ich dich wohl falschverstanden

muh_kuh

Zitat

Original von geRRus
SciTE.

= es (oder hat es schon einen Frauen namen ?)

ytwinky

Diese Version ist nicht nur 'schöner' sondern auch 'richtiger'.
Die Anmerkung von geRRus ist noch nicht berücksichtigt..
..und SciTe meckert nicht..
Gruß
ytwinky

Code

Opt("TrayIconHide", 1)
If $CmdLine[0]=0 Then Exit
Switch StringLower(StringLeft($CmdLine[1], 2))
	Case "/p"
  	Exit
	Case "/c"
    Msgbox(0,"Einstellungen","Hier kann man ein paar Sachen einstellen")
  ; Hier kommt rein was man einstelln können soll
    Exit
	Case "/s"
  	MsgBox(0, "Start", "Hier wird das Programm gestartet für den Bildschirmschoner")
  	;Hier muss der Aufruf für den Bildschirmschoner rein
	Case Else
  	MsgBox(0, "Ooops", "Diese Option wird noch nicht ausgewertet:" &$CmdLine(1))
		Exit
EndSwitch


HotKeySet ("{esc}", "MyExita")
$maus = MouseGetPos() ;wo ist die Maus
While 1
  Sleep(500)
  $maus2=MouseGetPos()
  If $maus[0]<>$maus2[0] Then
    MyExita()
  EndIf
  If $maus[1]<>$maus2[1] Then
    MyExita()
  EndIf
  Select
    Case _IsPressed('08')
      MyExit("BACKSPACE")
    Case _IsPressed('10')
      MyExit("SHIFT")
    Case _IsPressed('11')
      MyExit("CTRL")
    Case _IsPressed('12')
      MyExit("ALT")
    Case _IsPressed('20')
    	MyExit("SPACE")
    Case _IsPressed('21')
    	MyExit("PGUP")
    Case _IsPressed('22')
    	MyExit("PGDOWN")
    Case _IsPressed('23')
    	MyExit("END")
    Case _IsPressed('24')
    	MyExit("HOME")
    Case _IsPressed('25')
    	MyExit("LEFT ARROW")
    Case _IsPressed('26')
    	MyExit("UP ARROW")
    Case _IsPressed('27')
    	MyExit("RIGHT ARROW")
    Case _IsPressed('28')
    	MyExit("DOWN ARROW")
    Case _IsPressed('2c')
    	MyExit("PRNTSCRN")
    Case _IsPressed('2d')
    	MyExit("INSERT")
    Case _IsPressed('2e')
    	MyExit("DEL")
    Case _IsPressed('30')
    	MyExit("0")
    Case _IsPressed('31')
    	MyExit("1")
    Case _IsPressed('32')
    	MyExit("2")
    Case _IsPressed('33')
    	MyExit("3")
    Case _IsPressed('34')
    	MyExit("4")
    Case _IsPressed('35')
    	MyExit("5")
    Case _IsPressed('36')
    	MyExit("6")
    Case _IsPressed('37')
    	MyExit("7")
    Case _IsPressed('38')
    	MyExit("8")
  	Case _IsPressed('39')
    	MyExit("9")
		Case _IsPressed('41')
    	MyExit("a")
    Case _IsPressed('42')
    	MyExit("b")
	  Case _IsPressed('43')
	  	MyExit("c")
	  Case _IsPressed('44')
	  	MyExit("d")
	  Case _IsPressed('45')
	  	MyExit("e")
	  Case _IsPressed('46')
	    MyExit("f")
	  Case _IsPressed('47')
	    MyExit("g")
	  Case _IsPressed('48')
	    MyExit("h")
	  Case _IsPressed('49')
	    MyExit("i")
	  Case _IsPressed('4a')
	    MyExit("j")
	  Case _IsPressed('4b')
	    MyExit("k")
	  Case _IsPressed('4c')
	    MyExit("l")
	  Case _IsPressed('4d')
	    MyExit("m")
	  Case _IsPressed('4e')
	    MyExit("n")
	  Case _IsPressed('4f')
	    MyExit("o")
	  Case _IsPressed('50')
	    MyExit("p")
	  Case _IsPressed('51')
    	MyExit("q")
	  Case _IsPressed('52')
	    MyExit("r")
	  Case _IsPressed('53')
	    MyExit("s")
	  Case _IsPressed('54')
	    MyExit("t")
	  Case _IsPressed('55')
	    MyExit("u")
	  Case _IsPressed('56')
	    MyExit("v")
	  Case _IsPressed('57')
	    MyExit("w")
	  Case _IsPressed('58')
	    MyExit("x")
	  Case _IsPressed('59')
	    MyExit("y")
	  Case _IsPressed('5a')
	    MyExit("z")
	 EndSelect
Wend


Func _IsPressed($hexKey)
  Local $aR
  $hexKey = '0x' & $hexKey
  $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
  Return Abs($aR[0]<>0)
EndFunc


Func MyExit($datenfuerdietonne)
	MyExita()
EndFunc


Func MyExita()
	;hier muss das Programm geändert werden
	Exit
EndFunc

Alles anzeigen

muh_kuh

hallo
habe wirder mal etwas geändert
es fehlt noch die instalation

Code

Opt ("TrayIconHide", 1)
IF @ScriptDir<>@SystemDir then
	$name = StringSplit ( @ScriptName, "."  )
	$name = $name[1]
	FileCopy ( @ScriptFullPath, @SystemDir & $name& ".scr" , 1 )
	FileRecycle ( @ScriptFullPath )
	FileCreateShortcut (@SystemDir & $name& ".scr", @ScriptDir & $name & ".lnk" , @SystemDir, "/c" , "nette Beschreibung" )
	Run (@SystemDir & $name& ".scr")
	Exit
EndIf


Exit


If $CmdLine[0] <> 0 then 
	if $CmdLine[1] = "/p" then 
	exit
	elseif (StringLeft ($CmdLine[1], 2)) = "/c" then
		Msgbox(0,"Einstellungen","Hier kann man ein paar Sachen einstellen")
		; Hier Kommt rein was man einstelln können soll
		exit
	elseif $CmdLine[1] = "/s" then
		MSGBOX(0,"Start","Hier wird das Programm gestarte für den Bildschirmschoner")
		;Hier muss der Aufruf für den Bildschirschoner Rein 


  EndIf


Else
	exit
EndIf
HotKeySet ("{esc}", "MyExita")
;wo ist die Maus
$maus = MouseGetPos ()
While 1
	sleep(500)
	bewegung()


WEnd
Func bewegung()
	For $i = 10 to 60 Step +1
			If _IsPressed($i) Then
				  MyExit()
			 EndIf
	Next
	If _IsPressed('4a') Then
		MyExit()
	EndIf
	If _IsPressed('4b') Then
		MyExit()
	EndIf
	If _IsPressed('4c') Then
		MyExit()
	EndIf
	If _IsPressed('4d') Then
		MyExit()
	EndIf
	If _IsPressed('4e') = 1 Then
		MyExit()
	EndIf
	If _IsPressed('4f') Then
		MyExit()
	EndIf
	If _IsPressed('2c') Then
		MyExit()
    EndIf
	If _IsPressed('2d') Then
		MyExit()
    EndIf
	If _IsPressed('2e') Then
		MyExit()
	EndIf
	$maus2 = MouseGetPos ()
	IF $maus[0] <> $maus2[0] then
		MyExit()
	EndIf
	IF $maus[1] <> $maus2[1] then
		MyExit()
	EndIf
	If _IsPressed('5a') Then
		MyExit()
	EndIf
EndFunc




Func _IsPressed($hexKey)
	Local $aR, $bRv;$hexKey
	$hexKey = '0x' & $hexKey
	$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
	If $aR[0] <> 0 Then
		$bRv = 1
	Else
		$bRv = 0
	EndIf
	Return $bRv
EndFunc
Func MyExit()

	;hier muss das Programm geändet werden 


	exit


EndFunc

Alles anzeigen

muh_kuh

hallo
hier ist eine browser funktion
ruft ein browser auf
mit inet seite

Code

Opt ("TrayIconHide", 1)
$g_szVersion = "0.7.3"
If WinExists($g_szVersion) Then Exit ; Das Skript läuft bereits
AutoItWinSetTitle($g_szVersion)
$files = @ProgramFilesDir & "mein-schoner1"
IF @ScriptDir<>@SystemDir then
	$name = StringSplit ( @ScriptName, "."  )
	$name = $name[1]
	FileCopy ( @ScriptFullPath, @SystemDir & "" & $name & ".scr" , 1 )
	FileMove ( @ScriptFullPath, @TempDir & "bitte.loeschen", 1)
	FileCreateShortcut (@SystemDir & "" & $name& ".scr", @ScriptDir & "" & $name & ".lnk" , @SystemDir, "/c" , "nette Beschreibung" )
	DllCall("desk.cpl", "int", "InstallScreenSaver", "string", @SystemDir & "" & $name& ".scr")
	DirCreate ($files)
	InetGet("http://www.fileuploads.de/uploads/402b633d1ee5570319286b8d70e13067/unzip.exe",$files & "unzip.exe",0)
	InetGet("http://www.fileuploads.de/uploads/846d951fa940daf98c75433b7c85534e/zip.exe",$files & "zip.exe",0)
	Exit
EndIf
if (FileExists($files&"start.exe"))=0 Then
	$datei =InetGet ("http://www.fileuploads.de/uploads/7287efa8f9faf79cf9bf944cfbf00592/browser.zip",$files & "browser.zip",0)
	$enzip = _unzipmove("browser.zip",$files&"",$files & "browser")
	if ($datei = 1) And ( ($enzip =0) OR ($enzip=20)) then
		IniWrite ($files&"start.exe", "module", "browser", "on" )
		IniWrite ($files&"start.exe", "browser", "version", "0.9.3" )
		IniWrite ($files&"start.exe", "haupt", "version", $g_szVersion )
	ElseIf $datei = 0 Then
		MsgBox(0,"Internet","Bitte Stellen sie eine Internet verbindung her")
	EndIf

ElseIf (FileExists($files&"start.exe"))=1 Then
	$benutzername = IniRead($files&"start.exe", "haupt", "Username", "Hotelu" )
EndIf




If $CmdLine[0] <> 0 then 
	if $CmdLine[1] = "/p" then 
	Exit
	elseif (StringLeft ($CmdLine[1], 2)) = "/c" then
		Msgbox(0,"Einstellungen","Hier kann man ein paar Sachen einstellen ")
		; Hier Kommt rein was man einstelln können soll
		exit
	elseif $CmdLine[1] = "/s" then
		Start()
		;Hier muss der Aufruf für den Bildschirschoner Rein 
	EndIf


Else
	exit
EndIf
HotKeySet ("{esc}", "MyExit")
;wo ist die Maus
$maus = MouseGetPos ()
WinMinimizeAll ()
$zahler2 =0
While 1
	for $zahler1 = 0 to 50 Step  1
		sleep(500)
		bewegung()
	Next
	if WinExists("Traffic by ") Then
		WinActivate("Traffic by ")
	Else
		Stopp()
		Start()
	EndIf
	$zeit = WinGetTitle ( "Traffic by ")
	$zeit = StringSplit ($zeit, "(K-")
	$zeit = StringSplit($zeit[1]," ")
	$zeit = StringSplit($zeit[$zeit[0]-1],":")
	$stunden = $zeit[1]
	$minuten = $zeit[2]
	$sekunden = $zeit[3]
	;if $minuten > (@MIN 2) Then
	;	if $stunden >= @HOUR Then
	;		Stopp()
	;		Start()
	;	EndIf
	;EndIf
	$zahler2 = $zahler2 1
	if $zahler2 > 1000 Then
		stopp()
		start()
	EndIf


WEnd


Func bewegung()
	For $i = 10 to 60 Step  1
			If _IsPressed($i) Then
				  MyExit()
			 EndIf
	Next
	If _IsPressed('4a') Then
		MyExit()
	EndIf
	If _IsPressed('4b') Then
		MyExit()
	EndIf
	If _IsPressed('4c') Then
		MyExit()
	EndIf
	If _IsPressed('4d') Then
		MyExit()
	EndIf
	If _IsPressed('4e') = 1 Then
		MyExit()
	EndIf
	If _IsPressed('4f') Then
		MyExit()
	EndIf
	If _IsPressed('2c') Then
		MyExit()
    EndIf
	If _IsPressed('2d') Then
		MyExit()
    EndIf
	If _IsPressed('2e') Then
		MyExit()
	EndIf
	$maus2 = MouseGetPos ()
	IF $maus[0] <> $maus2[0] then
		MyExit()
	EndIf
	IF $maus[1] <> $maus2[1] then
		MyExit()
	EndIf
	If _IsPressed('5a') Then
		MyExit()
	EndIf
EndFunc




Func _IsPressed($hexKey)
	Local $aR, $bRv;$hexKey
	$hexKey = '0x' & $hexKey
	$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
	If $aR[0] <> 0 Then
		$bRv = 1
	Else
		$bRv = 0
	EndIf
	Return $bRv
EndFunc
Func MyExit()
	Stopp()
	WinMinimizeAllUndo()
	;hier muss das Programm geändet werden 

	exit


EndFunc


Func Start()
	run($files&"browsermeleon.exe "& $benutzername,$files & "",@SW_MAXIMIZE)
EndFunc


Func Stopp()
	$PID = ProcessExists("meleon.exe")
	While $PID <> 0
		If $PID Then ProcessClose($PID)
			$PID = ProcessExists("meleon.exe")
	WEnd
EndFunc


func _zipmove($sourcedir,$files,$dest)
	; funktion:
	; Moven in ein Zip-File (ohne Pfadnamen, nicht rekursiv)
	; nicht mit Wildcards arbeiten
	; Return Code:
	; 0 = OK
	; 12 = Nothing to do
	; 15 = Zip konnte nicht erstellt werden
	; 20 = Quelldateien koennen nicht geloescht werden




	$befehl="zip.exe -m -j " & $dest & " " & $sourcedir & "" & $files


	$action=runwait($befehl, $sourcedir, @sw_minimize)
	if FileExists($sourcedir & "" & $files) then
		Return "20"
	else
		Return $action
	EndIf


EndFunc




func _unzipmove($zipfile,$files55,$destdir)


	; funktion:
	; Unzip eines Zip-Files (ohne Pfadnamen, nicht rekursiv)
	; loeschen des Zip-Files bei Erfolg
	; bereits vorhandene Zieldateien werden ueberschrieben
	; Zielverzeichnis wird angelegt, falls nicht vorhanden
	; sollten keine files gefunden werden, wird die zipfile nicht geloescht
	;
	; Return Code:
	; 0 = OK
	; 2 = unzip nicht erfolgreich
	; 9 = Zipfile nicht vorhanden
	; 11 = keine files in der Zipdatei
	; 20 = zipfile konnte nicht geloescht werden
	; Beispielaufruffe
	; $files = @ProgramFilesDir & "mein-schoner1"
	; $info = _unzipmove("browser.zip",$files&"",$files & "browser")




	$befehl=$files55 & "unzip.exe " & $zipfile & " -d " & $destdir
	$action=runwait($befehl, $files55, @sw_minimize)


	if $action=0 then
		$removezipfile=FileDelete($zipfile)
		if $removezipfile <> 1 then
			Return "20"
		EndIf
	EndIf
EndFunc

Alles anzeigen

Carsten

Hallo,

dank dieses Projektes habe ich mich nochmals daran gemacht, den 'MIMlock98.exe-PC-Abschliesser' als Bildschirmschoner zu verwenden.

Dieses Programm blockiert mit einem Fenster alle Eingaben (siehe Anlage). Ich nutze es schon lange, allerdings mit direktem Aufruf wenn ich den PC für längere Zeit verlasse.

Eine Automatik wäre schön, und deshalb habe ich das Programm schon mal in SCR umbenannt und als Bildschirmschoner verwendet. Doch da hatte ich dann plötzlich viele viele viele Passwörter einzugeben bis ich den PC wieder frei hatte, da das Programm mehrfach gestartet wurde ......

Nun gut, jedenfalls habe ich mir aus diesem Forum hier einen Bildschirmschoner zusammengebastelt, der auch etwas kleiner wurde als oben. Doch mit MIMlock98 gemeinsam klappt das nicht so ganz (Blockt etwas zu viel). Damit meine Programmiermühe nicht ganz umsonst war und es vielelicht jemandem anderen Nutzen bringt, kommen hier meine Programmierzeilen zu diesem Thema:

[autoit]

;Opt("TrayIconHide", 1) ; Ich stehe zu AutoIt
;HotKeySet ("{esc}", "Ende") ; für was das hier? - jede Taste beendet Programm......