![]() Now go and check the settings for the 3D Text screensaver and you should see that it displays the hours left before your shift ends.Īll you need to do now is set up a scheduled task to run this every 15 minutes (or so) and your screensaver will be kept up to date with the number of hours left. Now double click on the file to run it and nothing should happen. If iMins 1 Then sMessage = sMessage & "s"ĭim wsh : Set wsh = CreateObject("WScript.Shell") ![]() SMessage = sMessage & Chr(188) & " hours" SMessage = sMessage & Chr(189) & " hours" SMessage = sMessage & Chr(190) & " hours" IMins = DateDiff("n", Now(), FormatDateTime(Now(), 2) & " " & FINISH_TIME) ' You don't need to change anything below here! ' different if you aren't using the 3D text screensaver.Ĭonst REGISTRY_KEY = "HKCU\Software\Microsoft\Windows\CurrentVersion\Screensavers\ssText3d\DisplayString" ' REGISTRY_KEY is the key to update with the time. ' FINISH_TIME is the 24-hour time when you finish. ' the number of hours left before a shift finishes. ' Simple vbscript to update the 3D Text screensaver with Save the following text in a file called UpdateScreensaver.vbs and modify the line with FINISH_TIME to have the correct end time: Option Explicit This VBScript will automatically update the 3D Text screensaver text with the time left before your shift ends.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |