 |
AutoHotkey Community
Wir helfen uns gegenseitig aus der Patsche
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Gapa
Anmeldedatum: 20.05.2007
Beiträge: 283
Wohnort: Nagold
|
 Verfasst am: Sa Sep 15, 2007 1:33 pm Titel: Wächter |
 |
|
Für alle, die kleine Geschwister haben:
| Code: | #Persistent
#SingleInstance Ingore
#NoTrayIcon
INI := A_WinDir . "\Exist.ini"
suspend, on
IfNotExist, %INI%
{
Gui, +AlwaysOnTop +ToolWindow
Gui, Add, Text, x10 y10, Geben sie den Entsperrungscode ein:
Gui, Add, Edit, x10 y30 vcode1 +Limit3
Gui, Add, Button, x160 y30 w90 h30 gSave1, Speichern
Gui, show, , Kennwort
return
}
IniRead, code1, %INI%, Main, Code
Goto Save2
Save1:
Gui, Submit, NoHide
IniWrite, %code1%, %INI%, Main, Code
Gui, Destroy
MsgBox, 262192, Wichtig, Sie haben nun noch genau 3 Tastenschläge zur Verfügung!`n`nNutzen sie diese später, um den Entsperrcode einzugeben.`n`n`nWichtig:Verschwenden sie keinen Tastenschlag, sonst haben sie keine Möglichkeit mehr, den Entsperrcode komplett einzugeben, und ein Absturz des Pcs ist unvermeidbar!!
Save2:
suspend, off
Loop
{
Input, code2, C L3 V
If ErrorLevel = Max
{
If code2 = %code1%
ExitApp
MsgBox, 16, ERROR, SelfDestruction started!, 2
Break
}
}
Gui, 2:+AlwaysOnTop +ToolWindow -Caption
Gui, 2:Color, White
Gui, 2:Add, Text, x10 y10, SelfDestruction in:
Gui, 2:Font, s14
Gui, 2:Add, Text, x20 y30 w120 cred vCount, 5
Gui, 2:Font, norm
Gui, 2:Show, , SelfDestruction
SoundBeep
Sleep, 1000
Loop, 5
{
Countdown := (5 - A_Index)
If Countdown = 0
{
Gui, 2:Font, s16 cblue
GuiControl, 2:Font, Count
GuiControl, 2:, Count, Overload!!!
Sleep, 3000
ShutDown, 5
sleep, 5000
}
GuiControl, 2:, Count, %CountDown%
SoundBeep
sleep, 1000
}
Up::a
Down::a
Left::a
Right::a
LWin::a
RWin::a
LButton::a
RButton::a |
Nun könnt ihr euren Pc auch mal 5 Minuten unbeaufsichtigt verlassen. 
Greetings
Gapa
_________________
Gestern war heute noch morgen! |
|
| Nach oben |
|
 |
IsNull
Anmeldedatum: 20.12.2006
Beiträge: 1072
Wohnort: CH
|
|
| Nach oben |
|
|
Gapa
Anmeldedatum: 20.05.2007
Beiträge: 283
Wohnort: Nagold
|
| Verfasst am: So Sep 16, 2007 3:22 pm Titel: Win+L |
|
|
Und dann? 
_________________
Gestern war heute noch morgen! |
|
| Nach oben |
|
|
msgbox
Anmeldedatum: 05.05.2007
Beiträge: 754
Wohnort: C:\
|
| Verfasst am: So Sep 16, 2007 3:50 pm Titel: |
|
|
| Mit Win + L kannst du zum Anmeldebildschirm wo man sein Account wechseln kann. Könnte man eventuell auch ändern... |
|
| Nach oben |
|
|
Gapa
Anmeldedatum: 20.05.2007
Beiträge: 283
Wohnort: Nagold
|
| Verfasst am: So Sep 16, 2007 4:31 pm Titel: WinL |
|
|
| Zitat: | | Mit Win + L kannst du zum Anmeldebildschirm wo man sein Account wechseln kann. Könnte man eventuell auch ändern... |
Ist mir bekannt
Aber hast du diesen Shortcut ausprobiert während das Script lief?
Denn bei mir ist dieser dann ebenfalls gesperrt.
Grüße
Gapa |
|
| Nach oben |
|
|
msgbox
Anmeldedatum: 05.05.2007
Beiträge: 754
Wohnort: C:\
|
| Verfasst am: So Sep 16, 2007 5:05 pm Titel: |
|
|
Man kann mit Notepad eine Batch schreiben  |
|
| Nach oben |
|
|
Gapa
Anmeldedatum: 20.05.2007
Beiträge: 283
Wohnort: Nagold
|
| Verfasst am: So Sep 16, 2007 5:09 pm Titel: ?? |
|
|
Kannst du mir den Satz erklären?
_________________
Gestern war heute noch morgen! |
|
| Nach oben |
|
|
IsNull
Anmeldedatum: 20.12.2006
Beiträge: 1072
Wohnort: CH
|
| Verfasst am: So Sep 16, 2007 7:17 pm Titel: |
|
|
sry für meine Unausführliche Antwort, damit meinte ich bloss, warum nicht einfach Win + L drücken, wenn man kurz vom PC weg geht? Ist mindestens so "sicher" wie deine Variante
_________________
http://securityvision.ch
www.forum.securityvision.ch |
|
| Nach oben |
|
|
Gapa
Anmeldedatum: 20.05.2007
Beiträge: 283
Wohnort: Nagold
|
| Verfasst am: So Sep 16, 2007 7:28 pm Titel: WinL |
|
|
Achso
Ich dachte du meinst das andere...
Ja stimmt. Aber wo wäre dann der Spaß
Grüße
Gapa
_________________
Gestern war heute noch morgen! |
|
| Nach oben |
|
|
IsNull
Anmeldedatum: 20.12.2006
Beiträge: 1072
Wohnort: CH
|
| Verfasst am: So Sep 16, 2007 9:09 pm Titel: |
|
|
| Zitat: | | Ja stimmt. Aber wo wäre dann der Spaß Question Wink |
Man kann so viel machen und hat so wenig Zeit, deshalb bin ich halt der Meinung dem OS auch noch ein paar Sachen zumuten zu können  Ich habe zwar das Rad auch schon mehrere Male neu erfunden, aber was solls. Man lernt immer was dabei
_________________
http://securityvision.ch
www.forum.securityvision.ch
Zuletzt bearbeitet von IsNull am Mo Sep 17, 2007 9:23 am, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
Gapa
Anmeldedatum: 20.05.2007
Beiträge: 283
Wohnort: Nagold
|
| Verfasst am: So Sep 16, 2007 9:42 pm Titel: wächter |
|
|
| Zitat: | | Man kann so viel machen und hat so wenig Zeit |
Ja leider 
| Zitat: | | deshalb bin ich halt der Meinung dem OS auch noch ein paar Sachen zumuten zu können |
Ja klar, aber Abwechslung muss sein. Das OS bietet dann eben doch keinen hübschen Countdown...das Feeling fehlt einfach.
| Zitat: | | Man lernt immer was dabei |
Eben. Wäre ja schlimm wenn ein AHK-neuling nichts proggen dürfte, was das OS schon bereitstellt.
Denn gerade aus diesen Kleinigkeiten lernt man ja
Grüße
Gapa |
|
| Nach oben |
|
|
Gapa
Anmeldedatum: 20.05.2007
Beiträge: 283
Wohnort: Nagold
|
| Verfasst am: Mo Sep 17, 2007 1:47 pm Titel: Wächter |
|
|
Noch was hübsches hinzugefügt:
| Code: | #NoTrayIcon
#Persistent
#SingleInstance Ignore
INI := A_WinDir . "\Exist.ini"
suspend, on
IfNotExist, %INI%
{
Gui, +AlwaysOnTop +ToolWindow
Gui, Add, Text, x10 y10, Geben sie den Entsperrungscode ein:
Gui, Add, Edit, x10 y30 vcode1 +Limit3
code1_TT := "Geben sie den (dreistelligen) Entsperrcode ein"
Gui, Add, Button, x160 y30 w90 h30 gSave1, Speichern
Gui, show, , Kennwort
OnMessage(0x200, "MessageTT")
return
GuiClose:
GuiEscape:
GuiCancel:
ExitApp
}
IniRead, code1, %INI%, Main, Code
Goto Save2
Save1:
Gui, Submit, NoHide
IniWrite, %code1%, %INI%, Main, Code
Gui, Destroy
MsgBox, 262192, Wichtig, Sie haben nun noch genau 3 Tastenschläge zur Verfügung!`n`nNutzen sie diese später, um den Entsperrcode einzugeben.`n`n`nWichtig:Verschwenden sie keinen Tastenschlag, sonst haben sie keine Möglichkeit mehr, den Entsperrcode komplett einzugeben, und ein Absturz des Pcs ist unvermeidbar!!
Goto Save2
Save3:
suspend, off
Loop
{
Input, code2, C L3 V
If ErrorLevel = Max
{
If code2 = %code1%
Goto Save4
MsgBox, 16, ERROR, SelfDestruction started!, 2
Break
}
}
Gui, 2:+AlwaysOnTop +ToolWindow -Caption
Gui, 2:Color, White
Gui, 2:Add, Text, x10 y10, SelfDestruction in:
Gui, 2:Font, s14
Gui, 2:Add, Text, x20 y30 w120 cred vCount, 5
Gui, 2:Font, norm
Gui, 2:Show, , SelfDestruction
SoundBeep
Sleep, 1000
Loop, 5
{
Countdown := (5 - A_Index)
If Countdown = 0
{
Gui, 2:Font, s16 cblue
GuiControl, 2:Font, Count
GuiControl, 2:, Count, Overload!!!
Sleep, 3000
ShutDown, 5
sleep, 5000
}
GuiControl, 2:, Count, %CountDown%
SoundBeep
sleep, 1000
}
OnExit, Save4
return
Save4:
SystemCursor("On")
ExitApp
Save2:
SystemCursor("Toggle")
Goto Save3
SystemCursor(OnOff=1)
{
static AndMask, XorMask, $, h_cursor
,c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,c12,c13
, b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13
, h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13
if (OnOff = "Init" or OnOff = "I" or $ = "")
{
$ = h
VarSetCapacity( h_cursor,4444, 1 )
VarSetCapacity( AndMask, 32*4, 0xFF )
VarSetCapacity( XorMask, 32*4, 0 )
system_cursors = 32512,32513,32514,32515,32516,32642,32643,32644,32645,32646,32648,32649,32650
StringSplit c, system_cursors, `,
Loop %c0%
{
h_cursor := DllCall( "LoadCursor", "uint",0, "uint",c%A_Index% )
h%A_Index% := DllCall( "CopyImage", "uint",h_cursor, "uint",2, "int",0, "int",0, "uint",0 )
b%A_Index% := DllCall("CreateCursor","uint",0, "int",0, "int",0
, "int",32, "int",32, "uint",&AndMask, "uint",&XorMask )
}
}
if (OnOff = 0 or OnOff = "Off" or $ = "h" and (OnOff < 0 or OnOff = "Toggle" or OnOff = "T"))
$ = b
else
$ = h
Loop %c0%
{
h_cursor := DllCall( "CopyImage", "uint",%$%%A_Index%, "uint",2, "int",0, "int",0, "uint",0 )
DllCall( "SetSystemCursor", "uint",h_cursor, "uint",c%A_Index% )
}
}
MessageTT()
{
static CurrControl, PrevControl
CurrControl := A_GuiControl
If (CurrControl != PrevControl)
{
ToolTip
SetTimer, DisplayToolTip, 1000
PrevControl := CurrControl
}
return
DisplayToolTip:
SetTimer, DisplayToolTip, Off
ToolTip % %CurrControl%_TT
SetTimer, RemoveToolTip, 3000
return
RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
return
}
Up::a
Down::a
Left::a
Right::a
LWin::a
RWin::a
LButton::a
RButton::a |
Greetings
Gapa
_________________
Gestern war heute noch morgen! |
|
| Nach oben |
|
|
oskopia
Anmeldedatum: 24.04.2008
Beiträge: 2
|
| Verfasst am: Do Apr 24, 2008 5:19 pm Titel: Dazu sind Geschwister also auch gut |
|
|
Ich hatte mich zuerst verlesen, "Für alle, die keine Geschwister haben" - habe das Script natürlich gestartet - habe mir auch gemerkt, was ich als Code geklickt hatte (33) - nur, dann sagte das Programm ich hätte 3 Tastaturkürzel - ich habe aber nur zwei geklicked.
Nachdem mir mein Rechner nur 3 mal runtergefahren ist, frage ich doch wohl besser - was die dritte Eingabe ist, wenn man "33" als Code hat.
Wem die Frage für zu einfach vorkommt: Ich will gerade lernen, mit AutoHotKey umzugehen und ich lerne leichter vom Beispiel als vom Lehrbuch. Drum klicke ich mich durch die Beispiele, die interessant klingen - und schaue mir den Code an. Ist aber doch recht kompliziert - ich bin jetzt bei der Hilfe Datei gelandet. Nur würde ich vorher halt gerne wissen, wie ich den Rechner bei diesem Script wieder entsperren kann. |
|
| Nach oben |
|
|
IsNull(n-l-i)
Gast
|
| Verfasst am: Do Apr 24, 2008 8:00 pm Titel: |
|
|
Das Skript speichert den "Code" unverschlüsselt in die "Exist.ini"- Einfach öffnen, und mal schauen was da für ein Wert dem Code-Key zugeordnet wurde...
Grüsse
der inaktive  |
|
| Nach oben |
|
|
oskopia
Anmeldedatum: 24.04.2008
Beiträge: 2
|
| Verfasst am: Fr Apr 25, 2008 9:43 am Titel: |
|
|
Jaja, ich weiß - da steht 33 drin.
Nur - ich soll drei Tastenschläge eingeben.
Was ist der dritte? |
|
| Nach oben |
|
|
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
|
Powered by phpBB © 2001, 2005 phpBB Group
Deutsche Übersetzung von phpBB.de |
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
