Friday, 28 May 2021
Improve your typing speed
Stamina (Only available for Windows)
https://typingsoft.com/download_en.htm
https://typingsoft.com/additions.htm
Saturday, 3 April 2021
Wednesday, 23 September 2020
No screensaver script
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do While True
WshShell.SendKeys("{SCROLLLOCK}")
WScript.Sleep(174000)
Loop
Save above content with vbs extension in Notepad.
Paste this file in startup folder, so that it automatically runs whenever you start your system.
Goto run (Windows Key + R ), type shell:startup
Set WshShell = WScript.CreateObject("WScript.Shell")
Do While True
WshShell.SendKeys("{SCROLLLOCK}")
WScript.Sleep(174000)
Loop
Save above content with vbs extension in Notepad.
Paste this file in startup folder, so that it automatically runs whenever you start your system.
Goto run (Windows Key + R ), type shell:startup
This script, press Scroll Lock every 2.9 minutes (17400 milliseconds), so that screensaver doesn't appear.
Tuesday, 22 September 2020
Sunday, 16 August 2020
VBScript to find out if Laptop Battery has charged
set oLocator = CreateObject("WbemScripting.SWbemLocator")
set oServices = oLocator.ConnectServer(".","root\wmi")
set oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")
for each oResult in oResults
iFull = oResult.FullChargedCapacity
next
while (1)
set oResults = oServices.ExecQuery("select * from batterystatus")
for each oResult in oResults
iRemaining = oResult.RemainingCapacity
bCharging = oResult.Charging
next
iPercent = ((iRemaining / iFull) * 100) mod 100
if bCharging and (iPercent > 79) Then msgbox "Unplug charger."
wscript.sleep 30000 ' 5 minutes
wend
set oServices = oLocator.ConnectServer(".","root\wmi")
set oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")
for each oResult in oResults
iFull = oResult.FullChargedCapacity
next
while (1)
set oResults = oServices.ExecQuery("select * from batterystatus")
for each oResult in oResults
iRemaining = oResult.RemainingCapacity
bCharging = oResult.Charging
next
iPercent = ((iRemaining / iFull) * 100) mod 100
if bCharging and (iPercent > 79) Then msgbox "Unplug charger."
wscript.sleep 30000 ' 5 minutes
wend
Monday, 3 August 2020
Subscribe to:
Posts (Atom)

