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

This script, press Scroll Lock every 2.9 minutes (17400 milliseconds), so that screensaver doesn't appear. 

Convert minutes to milliseconds

How to find out the Windows version?

 

1. Goto Run (Windows + R)  and type winver 

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

Cmd to see environment variables

set

set p 

set path 

set t

to see Java Path 

Open folder using cmd in file explorer

Use below command

start . 

Remove all numbers from subscript in Microsoft Word

Step 1 - Open Replace dialog (Ctrl + H)

VBA Code to insert mutiple images in Microsoft Word without file extension like jpg, png

Sub PicturesWithCaption()

    Dim xFileDialog As FileDialog

    Dim xPath, xFile As Variant

    Dim FileName() As String

    On Error Resume Next

    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)

    If xFileDialog.Show = -1 Then

        xPath = xFileDialog.SelectedItems.Item(1)

        If xPath <> "" Then

            xFile = Dir(xPath & "\*.*")

            Do While xFile <> ""

                If UCase(Right(xFile, 3)) = "PNG" Or _

                    UCase(Right(xFile, 3)) = "TIF" Or _

                    UCase(Right(xFile, 3)) = "JPG" Or _

                    UCase(Right(xFile, 3)) = "GIF" Or _

                    UCase(Right(xFile, 3)) = "BMP" Then

                    With Selection

                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True

                        .InsertAfter vbCrLf

                        .MoveDown wdLine

                         FileName = Split(xFile, ".")

                        .Text = FileName(0) & Chr(10)

                        .MoveDown wdLine

                    End With

                End If

                xFile = Dir()

            Loop

        End If

    End If

End Sub

Search faster in Google Chrome

Type A then tab to search on amazon

Type Y then tab to search on Youtube

Type FB then tab to search on Facebook

Type 

Run commands

mstsc - Remote Desktop Connection















mspaint

Open Bluetooth settings - ms-settings:bluetooth 

control sound 

powerpnt

winword

excel

Deno js

https://deno.land/manual

Windows 10 Run commands

Change Brightness

Open Windows ?settings  - Windows + I

or

Open Run (Windows + R)
ms-settings:display

Other
ms-settings:windowsupdate

Check battery percentage
ms-settings:batterysaver

Bluetooth

ms-settings:bluetooth

VLC Shortcuts

Ctrl + E - Effects to rotate video

- (near backspace) reduce video speed