toetsenbord en muis aan\uit

[casper112]

hallo,

ik wil een script maken dat niemand iets kan doen als mijn comp bezig is.
ik ben al aardig opweg maar ik krijg mijn muis en toetsenbord niet meer aan.
ik moet alleen nog een code hebben die ze weer aan zet
kan iemand mij helpen?

Set shl = CreateObject("Wscript.shell")

Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable
WScript.Sleep 1000

 

[R15]

Werkt dit niet?:

Set shl = CreateObject("Wscript.shell")

Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Enable"
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Enable
WScript.Sleep 1000

(Disable naar Enable)

 

[casper112]

hij werkt niet maar nu ik eraan denk is het makkelijker als 1 toets het wel doet.
dan kan ik bijvoorbeeld op de f drukken als ik wil dat hij weer aan gaat

 

[That Guy]

Ja, zo werkt het register-dm/dk dus niet. Je disabled OF alles, OF niets.

 

[casper112]

mmm...
dat is balen

 

[casper112]

maar hoe zet ik hem dan uit en dan weer aan als ik wil?

 

[voorde]

uitvoering

Hoe voer je zo'n script uit?


Set shl = CreateObject("Wscript.shell")

Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Enable"
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Enable
WScript.Sleep 1000