How to avoid system lock while running Windows Based Application

[Munna.Sarfraz]

Create a VBS file, Copy below code and paste it.

Code:

Const micVoid = 0
Const micByte = 26
Const micLong = 3
Const KEYEVENTF_KEYUP = &H2
Set Extern = CreateObject("Mercury.ExternObj")
extern.Declare micVoid, "keybd_event", "user32", "keybd_event", micByte, micbyte, miclong, micLong
Extern.Declare micVoid, "Sleep", "kernel32", "Sleep", micLong
While True
  extern.keybd_event 0, 0, KEYEVENTF_KEYDOWN, 0
  Extern.Sleep 20000
Wend

Save it, and double click on it, it will work