Shortcuts to open Google Apps

Type in Google chrome address bar

sheet.new  or sheets.new

slide.new

cal.new

doc.new

note.new- Keep or keep.new

form.new

Google Cloud

word.new

excel.new

ppt.new

post.new

meet.new - New Google Meet  

https://whats.new/shortcuts/#productivity

Google Chrome Shortcuts

 In address press

G then enter - opens gmail.com

q then enter opens quora.com

f then enter opens fb.com

a then enter opens amazon

URL Shortner service

bit.ly

tinyurl.com

tiny.cc

https://linktr.ee/

Keyboard Shortcuts

 Use / to goto search bar - Google.com , Youtube.com, Gmail, Google Keep

What to do if you lost your mobile phone in India ?

 https://ceir.gov.in/Request/CeirUserBlockRequestDirect.jsp

Enter your IMEI

(*#06#)

Request for blocking lost/stolen mobile

Google Assistant Voice Commands

Turn on Bluetooth
Turn on wifi
Turn on Hotspot
Turn on flashlight

Turn off BlueTooth
Turn off Wifi

Open <App Name>
Open Mi Fit
Open Youtube

Set a timer for 5 mins./ timer for 5 minutes
Cancel 15 min timer

Call Mom /Dad

Custom commands

Open tracker

Battery Alert Using Batch Program

:repeat
Goto get-battery
Echo "%Ba%"
:Next

TIMEOUT /T 600  
if "%Ba%"  GEQ "80" Goto Alert
goto repeat
 
:Alert
echo Your battery has finished charging

mshta javascript:alert("Unplug charger");close();

TIMEOUT /T 500

goto repeat

 
:get-battery
for /f "tokens=2 delims==" %%E in ('wmic path Win32_Battery get EstimatedChargeRemaining /value') do (set "Ba=%%E")
Goto Next

Save the above code in a .bat file. Place this file in startup (shell:startup)

Set timer using Google.com

Search for 

timer 2s
Here s, stands for seconds

timer 2 or timer 2h
if nothing is specified then hour or h denotes hour

timer 2m
m for minutes

How to install Cloud Foundry in Windows ?

Improve your typing speed

Stamina (Only available for Windows)

https://typingsoft.com/download_en.htm

https://typingsoft.com/additions.htm

Amazon Affiliate

Advertising fees

 https://affiliate-program.amazon.in/help/operating/advertisingfees

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