Wie Sie verhindern, dass der auto-Sperr-feature von einer XP-Maschine mit VBscript

Ich würde denken, dass Sie könnte halt die Verriegelung durch senden einer keypress-in regelmäßigen Abständen, so würde ich vorschlagen, Blick auf WScript.SendKeys. Dann setzen Sie diese in einer Schleife mit einem sleep zu machen, senden Sie es regelmäßig.

Nur vorsichtig sein, über das, was Schlüssel, den Sie senden, so dass Sie nicht auf irgendetwas anderem.

Benutze ich ein paar Dateien...

Die erste Datei (Halten_Wach__beginnen.vbs) hält die Dinge wach/entsperrt. Die zweite Datei (Halten_Wach__Ende.vbs -) günstig ist das Verfahren beendet, wenn Sie wollen, um wieder zu einem normalen bearb.

Die erste Datei...

' Keep_Awake__start.vbs
' Graham Edwards

' Typical stored in Start Menu 
'
' Use Keep_Awake__start.vbs to keep the computer from inactivity-based lockouts.
' Use Keep_Awake__end.vbs to remove Keep_Awake__start.vbs

' Largely pulled from st0le response
' Http://stackoverflow.com/questions/4457907/how-to-prevent-auto-locking-feature-of-an-xp-machine-using-vbscript

' --- Define Object
    set wsc = CreateObject("WScript.Shell")

' --- Loop every so many minutes and change the scroll lock setting 
    Do
        ' Wait for ~2 minutes
        WScript.Sleep (2*60*1000)
        wsc.SendKeys ("{SCROLLLOCK 2}")
    Loop

Die zweite Datei...

' Keep_Awake__end.vbs
' Graham Edwards

' Use Keep_Awake__start.vbs to keep the computer from inactivity-based lockouts.
' Use Keep_Awake__end.vbs to remove Keep_Awake__start.vbs

' Largely pulled from Ansgar Wiechers response
' http://stackoverflow.com/questions/22324899/kill-a-vbscript-from-another-vbscript

' --- Define Object
    Set wmi = GetObject("winmgmts://./root/cimv2")

' --- Search and Destroy
    qry = "SELECT * FROM Win32_Process WHERE Name='wscript.exe' AND NOT " & _
    "CommandLine LIKE '%" & Replace(WScript.ScriptFullName, "\", "\\") & "%'"

    For Each p In wmi.ExecQuery(qry)
      p.Terminate
    Next

' --- Clean up
    Set wmi = Nothing ' Release the Application object

Dateien können sowohl aus einem regulären text-editor und irgendwo gespeichert (wie dem desktop). Sobald Sie speichern Sie die Datei mit der .vbs Datei-Erweiterung, ist es ausführbar. Also, Sie müssen nur doppelklicken Sie auf die Datei-Symbol, um die Dinge zu beginnen oder enden (je nachdem, welche Datei, die Sie doppelklicken).

Könnten Sie speichern die Halten_Wach__beginnen.vbs im Windows-Ordner Autostart, so startet es, sobald Sie sich anmelden.

Wenn dies während der Ausführung Ihrer automation suite, dann nutzen Sie Ihre automation suite um eine Maus zu zucken, jeder so oft. Was ich finde, gut funktioniert, ist, wenn Sie Ihre eigenen benutzerdefinierten Funktion "Ruhezustand" und als Teil der sleep-Funktion, Sie zucken mit der Maus. Verwenden Sie diese für Ihre lange Intervall zwischen den Skripts.

Ich habe versucht das shell-Skripten und die Terminierung der simulation von Maus-Bewegungen mit dem task-Scheduler - aber hier ist was ich gefunden habe war das BESTE der Partie.
+1 für seine Einfachheit. Automatisch bewegt sich die Maus um ein pixel verschoben, so dass der Bildschirm nicht auto-lock(obwohl haben Sie die Optionen, um dies zu konfigurieren, sollte es nötig sein)

Referenz:
Auto Mouse Mover - http://www.murgee.com/auto-mouse-mover/

Habe ich es auf diese Art gemacht

(außerhalb der Schleife = erklärte variable)

'For 64 bit Excel.
Private Declare PtrSafe Function SetCursorPos Lib "user32" _
                        (ByVal x As Long, _
                        ByVal y As Long) As Long
Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

'For 32 bit Excel.
Private Declare Function SetCursorPos Lib "user32" _
                        (ByVal x As Long, _
                        ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long


 ' default variable
 private mousecounter as integer

(innen Verfahren)

Dim llCoord As POINTAPI
Dim activeXMousePos As Integer
Dim activeYMousePos As Integer

GetCursorPos llCoord
activeXMousePos = llCoord.Xcoord
activeYMousePos = llCoord.Ycoord

(innere Schleife):

        If mousecounter <= 2 Then
            SetCursorPos activeXMousePos - 1, activeYMousePos - 1
            mousecounter = mousecounter + 1
        End If

        If mousecounter > 2 Then
            SetCursorPos activeXMousePos + 2, activeYMousePos + 2
            mousecounter = 0
        End If

Also - im Grunde ist dieser code bewegt die Maus 1 px leftup und 1 px rightdown lor-each-Schleife Intervall. Sie können erklären, andere Werte, aber ich habe festgestellt, dass diese Maus bewegen nicht die Mühe Benutzer.