*VAULTER* - PC LOCKOUT

[Valuater]

WIN+TAB... your dust

besides you dont register intruders

see my new version

FEB 23, 2006 Ver 1.0.2

8)

[VoSs2o0o]

I have the solution to break your script:

Win+e, and you have the Explorer

press the Win-Key twice, then you have the control over the Mouse.

create a Shortcut for "taskmgr" and maximized

Kill the Process.....

[Valuater]

had to work pretty hard huh???

you are right!!

so... how do you think we could cover that part??

8)

Edited February 24, 2006 by Valuater

[VoSs2o0o]

so my script works now.....

V 0.3

-*fixed* prevent Win+Tab

-*added* new routine to find the Task Manager

-*added* find the Sysinternals Process Explorer also

Opt("WinTitleMatchMode",4)
Global $hdlTaskmgr

HotKeySet("^!{F9}", "unlock")

Func unlock()
  WinSetState ( $hdlTaskmgr, "", @SW_RESTORE)
  WinClose($hdlTaskmgr)
  WinSetState ( "classname=Progman", "",@SW_ENABLE)
  WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW)
  WinMinimizeAllUndo ( )
  Send("{ALTUP}")
  Send("{CTRLUP}")
  exit
endfunc

Func WinKey()
endfunc

run("Taskmgr.exe /t")
WinWait("regexp=(?i)([Task][Manager])|([Process][Explorer])")
$hdlTaskmgr = WinGetHandle ("last")
WinSetState ( $hdlTaskmgr, "", @SW_HIDE )
WinSetState ( "classname=Progman", "",@SW_DISABLE)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE)
WinMinimizeAll ( )

While 1
  Send("{ALTUP}")
  Send("{CTRLUP}")
  Send("{CTRLDOWN}")
  Send("{ALTDOWN}")
  sleep(100)
Wend

There are two ways to prevent Win+xyz Hotkeys:

-Write a Hook (impossible in AutoIt, because you cannot define a Callback)

-my Autoit solution: leave the modifiers pressed, there exist only ALT+CTRL+DEL that works

but I think about to lock the "Windows Security" Window to prevent a logoff......

(you must switch the current desktop for that)

[Valuater]

I have the solution to break your script:

Win+e, and you have the Explorer

press the Win-Key twice, then you have the control over the Mouse.

create a Shortcut for "taskmgr" and maximized

Kill the Process.....

Fixed

ver 1.0.3

8)

[Somniis]

Hmm.. when I attempt to run this, I get an error:

Line 65 in misc.au3

Local $p = DllStructCreate ($struct)

Unknown function name.

Any ideas how to fix this?

[SmOke_N]

Hmm.. when I attempt to run this, I get an error:

Line 65 in misc.au3

Local $p = DllStructCreate ($struct)

Unknown function name.

Any ideas how to fix this?

Your not using beta... Alt+F5 in SciTe to run it.

[Valuater]

You need beta to run it

8)

SmOke_N... SmOked me...lol

Edited March 6, 2006 by Valuater

[Somniis]

I don't use SciTe.

Anyhow, I ran it manually from the start-menu (AutoIT->Run-script(beta) and it worked, but messed up. Now the task bar is only showing, and the desktop is locked. F9 does not unlock it. Hehehe, restarting comp, brb.

[Valuater]

I don't use SciTe.

Anyhow, I ran it manually from the start-menu (AutoIT->Run-script(beta) and it worked, but messed up. Now the task bar is only showing, and the desktop is locked. F9 does not unlock it. Hehehe, restarting comp, brb.

it was built on Windows Xp ( works on mine )

8)

[Somniis]

it was built on Windows Xp ( works on mine )

8)

I'm on XP as well. Going to try it again.

Edit: I don't know if you know this, but if no password is entered at the beginning of the script, it messes up and doesn't lock anything. The desktop disappears and only the taskbar is shown.

(Yes, it worked when I entered a password at the start.)

Edited March 6, 2006 by Somniis

[Valuater]

I'm on XP as well. Going to try it again.

Edit: I don't know if you know this, but if no password is entered at the beginning of the script, it messes up and doesn't lock anything. The desktop disappears and only the taskbar is shown.

(Yes, it worked when I entered a password at the start.)

FIXED

ver 1.0.4

March 06, 2006

8)

[Mosquitos]

Is it possible if i use this script on my pc at work to send the dat file to my emailadres when the filesize is more then 50kb?

[SmOke_N]

Is it possible if i use this script on my pc at work to send the dat file to my emailadres when the filesize is more then 50kb?

Making your own script to monitor the size of the file

If FileGetSize($FileDat) / 1024 >= 50 Then

You could use Jdebs smtp mail script: http://www.autoitscript.com/forum/index.php?showtopic=23860

Those 2 combined should be an easy enough task?

[RazerM]

this is very good i like it!

[Valuater]

this is very good i like it!

thanks

( and thanks for the support SmOke )

8)

Edited April 4, 2006 by Valuater

[SmOke_N]

thanks

( and thanks for the support SmOke )

8)

No worries...

Edit:

Edited my edit

Edited April 4, 2006 by SmOke_N

[Mosquitos]

Making your own script to monitor the size of the file

If FileGetSize($FileDat) / 1024 >= 50 Then

You could use Jdebs smtp mail script: http://www.autoitscript.com/forum/index.php?showtopic=23860

Those 2 combined should be an easy enough task?

Thanks

[Mosquitos]

Another question...

I don't find anything in the helpfile to hide the datfile.

Is it possible to use _FileWriteLog to a hidden file?

Sorry for the stupid question :">

FileSetAttrib(@ScriptDir & "\VAULT.Dat", "+H")

Oeps sorry... :">

Edited April 5, 2006 by Mosquitos

[Valuater]

Another question...

I don't find anything in the helpfile to hide the datfile.

Is it possible to use _FileWriteLog to a hidden file?

Sorry for the stupid question :">

FileSetAttrib("Vaulter.Dat", "+H")

did you try that???

8)