VBATools

Zorientowałem się że blokada nałożona przez administratorów na komputery na jakim prowadzone są prace jest zbyt intensywna. Niestety nie poszło to w stronę sprawdzenia przez kamerę czy osoba fizycznie siedzi “bezczynnie” przed laptopem (np czytając treść pisma), tylko przymusza go do bezustannego klikania lub ruszania myszą. Oczywiście to zaszłości filozofii komputerów stacjonarnych i braku implementacji kamer w monitorach… ale zostawmy to. Jak poradzić sobie z tym, nie posiadając uprawnień do zmiany ustawień, a chcemy mieć kontrolę, kiedy przestanie ekran się blokować, a kiedy blokadę przywrócić.

Możesz zatem wkleić poniższy kod w notatnik, zapisać jako plik tekstowy, a następnie zamienić rozszerzenie na .vbs i odpalić.

Jak wyłączyć blokadę: ->(Screensaver_Blokuj.vbs)

Set WshShell = WScript.CreateObject("WScript.Shell")
Dim czasOczekiwania
czasOczekiwania = 30000 
Do
    WshShell.SendKeys "{F15}"
    WScript.Sleep czasOczekiwania
Loop

W kwestii wyjaśnienia. Pow. kod realizuje cykliczne wciśnięcia klawisza F15 (ha macie na klawiaturze max 12 klawiszy funkcyjnych, ale w rzeczywistości klawiszy jest więcej). Zatem ten klawisz nie jest używany i można go użyć do niecnego celu jakim jest aktywność użytkownika, nie wzbudzając żadnych reakcji dla uruchomionych aplikacji.

Jak włączyć blokadę ekranu: -> (Screensaver_Nie_blokuj.vbs)

Dim objWMIService, colProcesses, objProcess
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'wscript.exe'")

If colProcesses.Count >0 Then
    For Each objProcess In colProcesses
        objProcess.Terminate()
    Next
End If

Set colProcesses = Nothing
Set objWMIService = Nothing

Ten kod wykrywa sesje uruchomienia poleceń skryptowych i je po prostu ubija, czyli przywraca do stanu przed uruchomieniem klikania co 30 sek F15.

Mam nadzieje że wam to pomoże w pracy na komputerach z blokadą.

---

(c) Shon Oskar – www.VBATools.pl
Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.