Hi,
ein Kollege von mir hat mich heute gefragt, ob man den PC irgendwie per Knopfdruck sperren kann.
Er würde gerne ein Script / Tool starten und dann soll das Weiterarbeiten nur durch ein Passwort möglich sein.
Hauptgrund ist, das das Internet nicht mehr genutzt werden soll.
Hat da wer ne Idee 
Danke 
Hallo
Solange du es für nichts illegales benutzt... In Meiner Sig ist ein Programm das heißt "Admin Konsole" Womit du genau das machen kannst.
Mfg Spider
Danke
nene nicht für illegales 
wollte gerne was, wo man nicht installieren muss.
Hab mich eigentlich auch falsch ausgedrückt.
Das Internet kann weiterlaufen, nur dürfen keine Benutzereingaben, Link geklickt, url eingegeben, ... werden
Hallo
Meinst du sowas wie BlockInput() ?^^
Mfg Spider
Danke, habs mir mal durchgelesen
Das beste wäre, wenn ich alle Tasten außer Buchstaben und Zahlen sperren könnte
seinen eigenen PC???
wenn er ein Passwort hat einfach mit Win+L
Jup, ist sein eigener PC,
Passwort hat er keines, deshalb scheidet die Lösung wohl aus 
Habs mal so gemacht
#include<GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$gui_titel = "Sperren"
$gui = GUICreate($gui_titel, -1, -1, 0, 0, BitOr($WS_POPUP, $WS_MAXIMIZE))
$input = GUICtrlCreateInput("", 100, 100, -1, -1, $ES_PASSWORD)
GUISetState ()
$passwort = "x"
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
If Not WinActive($gui_titel) Then WinActivate($gui_titel)
If GUICtrlRead($input) = $passwort Then Exit
If WinExists("Windows Task-Manager") Then WinClose("Windows Task-Manager")
Wend
Wäre nicht schlecht, wenn auch noch die Sondertasten der Tastatur deaktiviert wären.
?? Einfach Passwort setzen ??
Hallo
Kastraf hat recht Man kann sein Passwort setzen, und Trozdem automatisch sich anmelden beim Windowsstart ohne das Password einzugeben (so ist es z.B. bei mir). Ich hab noch ein super Script was genau das macht was du willst, aber das hab ich für mich zurecht geschnitten (Mit G15 blocker usw..) Ich kanns dir Villeicht morgen mal etwas umschreiben..
Mfg Spider
Hallo.
Ich dachte mir, bei einer so guten ID sollte bischen Farbe ins Spiel kommen.
Hintergrund: Schwarz und darauf ein Foto oder Logo.
Das ist dabei rausgekommen und mein PC ist gerade frisch gestartet.
#include<GUIConstants.au3>
#include<Misc.au3>
;--------------------------------------------------------------------------------------------------------------------------------------------------
;Dieses Script:
; - startet eine Oberfläche mit dem aktuellen Desktopbild
; - dieses kann nur durch korrekte Eingabe des Passwortes verlassen werden
; - wird eine andere Tastenkombination, Win-Taste, Programm gestartet, usw. wird diese GUI automatisch wieder in den Vordergrund geholt
; - Es werden bestimmt Fenster automatisch geschlossen
;--------------------------------------------------------------------------------------------------------------------------------------------------
;************************
;******* Passwort *******
$passwort = "xxx"
;************************
Opt("WinTitleMatchMode", 2)
Opt("TrayIconHide", 1)
$gui_titel = "Sperren"
$gui = GUICreate($gui_titel, -1, -1, 0, 0, BitOr($WS_POPUP, $WS_MAXIMIZE))
GUISetBkColor(0x000000)
GUICtrlCreatePic("logo.jpg", -1, -1, 200, 200)
$input = GUICtrlCreateInput("", @DesktopWidth/2, @DesktopHeight/2, 50, -1, $ES_PASSWORD)
GUICtrlSetState($input, $GUI_HIDE)
$desktop_reg = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper")
GUICtrlCreatePic($desktop_reg, 0, 0, @DesktopWidth, @DesktopHeight)
GUISetState()
While 1
If Not WinActive($gui_titel) Then WinActivate($gui_titel)
If GUICtrlRead($input) = $passwort Then Exit
If WinExists("Windows Task-Manager") Then WinClose("Windows Task-Manager")
If WinExists("Internet Explorer") Then
WinClose("Internet Explorer")
If WinExists("Internet Explorer", "&Registerkarten schließen") Then ControlClick("Internet Explorer", "&Registerkarten schließen", 6)
EndIf
If WinExists("Outlook Express") Then WinClose("Outlook Express")
Wend
Die Idee dachte ich sei einfach zu löschen. Backcolor und Bild als GUI setzen und das war's. Aber Butterblume oder Pustekuchen. Dat wollte gar nicht.
LG Lina
Hi :D,
kann ich eigentlich den Mauszeiger sperren (einfrieren) und ausblenden
Hallo,
probier mal folgendes, ShowCursor funktioniert nicht immer, ist wahrscheinlich vom Maustreiber abhängig:
[autoit]$aMGP = MouseGetPos()
[/autoit][autoit][/autoit][autoit]ClipCursor($aMGP[0],$aMGP[1],$aMGP[0],$aMGP[1]) ; Maus einfrieren
ShowCursor(0) ; Maus ausschalten
sleep(5000)
ClipCursor() ; Maus freigeben
ShowCursor(1) ; Maus einschalten
Func ShowCursor($dwShow)
$retval = DllCall("user32.dll", "long", "ShowCursor", "long", $dwShow)
EndFunc
Func ClipCursor($dwLeft=-1, $dwTop=-1, $dwRight=-1, $dwBottom=-1)
Local $tRect = DllStructCreate("long Left;long Top; long Right;long Bottom")
Local $pRect, $retval
If $dwLeft = -1 And $dwTop = -1 And $dwRight = -1 And $dwBottom = -1 Then
$pRect = 0
Else
DllStructSetData($tRect, "Left" , $dwLeft )
DllStructSetData($tRect, "Top" , $dwTop )
DllStructSetData($tRect, "Right" , $dwRight )
DllStructSetData($tRect, "Bottom", $dwBottom)
$pRect = DllStructGetPtr($tRect)
EndIf
$retval = DllCall("user32.dll", "long", "ClipCursor", "ptr", $pRect)
EndFunc
Einfrieren an aktueller Position sollte so gehen (ungetestet):
[autoit]Func _MouseFreeze()
$pos = MouseGetPos()
_MouseTrap($pos[0], $pos[1], $pos[0], $pos[1])
EndFunc
achja, noch 'UnFreeze'
[autoit]_MouseTrap()
[/autoit]EDIT: Selbst am Sonntag Mittag ist irgendwer schneller...
Danke euch beiden für den Sonntagssupport
Habs nun so ähnlich wie die Variante von BugFix
Ich setze den Cursor rechts oben ins Eck (dann ist er nicht sichtbar)
dann wird er falls sich die Pos wieder ändert (Maus wird bewegt) wieder rechts oben ins Eck gesetzt.
#include<Misc.au3>
#include<GUIConstants.au3>
;--------------------------------------------------------------------------------------------------------------------------------------------------
;Dieses Script:
; - startet eine Oberfläche mit dem aktuellen Desktopbild
; - dieses kann nur durch korrekte Eingabe des Passwortes verlassen werden
; - wird eine andere Tastenkombination, Win-Taste, Programm gestartet, usw. wird diese GUI automatisch wieder in den Vordergrund geholt
; - Es werden bestimmte Fenster automatisch geschlossen
;--------------------------------------------------------------------------------------------------------------------------------------------------
;************************
;******* Passwort *******
$passwort = "xxx"
;************************
Opt("WinTitleMatchMode", 2)
Opt("TrayIconHide", 1)
$gui_titel = "Sperren"
$gui = GUICreate($gui_titel, -1, -1, 0, 0, BitOr($WS_POPUP, $WS_MAXIMIZE))
$input = GUICtrlCreateInput("", @DesktopWidth/2, @DesktopHeight/2, 50, -1, $ES_PASSWORD)
GUICtrlSetState($input, $GUI_HIDE)
$desktop_reg = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper")
GUICtrlCreatePic($desktop_reg, 0, 0, @DesktopWidth, @DesktopHeight)
_MouseTrap(@DesktopWidth-1, 0)
[/autoit] [autoit][/autoit] [autoit]GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$pos = MouseGetPos()
If $pos[0] <> @DesktopWidth-1 or $pos[1] <> 0 Then _MouseTrap(@DesktopWidth-1, 0)
sleep(10)
If Not WinActive($gui_titel) Then WinActivate($gui_titel)
If GUICtrlRead($input) = $passwort Then Exit
If WinExists("Windows Task-Manager") Then WinClose("Windows Task-Manager")
If WinExists("Internet Explorer") Then
WinClose("Internet Explorer")
If WinExists("Internet Explorer", "&Registerkarten schließen") Then ControlClick("Internet Explorer", "&Registerkarten schließen", 6)
EndIf
If WinExists("- Outlook Express") Then WinClose("- Outlook Express")
If WinExists("- Editor") Then WinClose("- Editor")
Wend
Wenn Du den Parameter für $i_right und $i_bottom auf die gleichen Werte setzt wie $i_left und $i_top, kann man die Maus nicht mehr bewegen bis _MausTrap() ohne Parameter aufgerufen wird.
[autoit]_MouseTrap(@DesktopWidth - 1, 0, @DesktopWidth - 1, 0)
[/autoit]Deine Zeile 40 solltest du etwas erweitern, sonst bleibt die Maus noch hängen
If GUICtrlRead($input) = $passwort Then
_MouseTrap()
Exit
EndIf
EDIT: Verrückter Tag heut - 2mal im selben Thread zeitgleich mit Bernd gepostet
