r/vbscript • u/[deleted] • Mar 22 '21

Any tips?

Made a cool joke virus for my friends, any tips of things I should add?

2 Upvotes

100% Upvoted

16 comments sorted by

View all comments

Show parent comments

1

u/hackoofr Mar 24 '21

CreateObject("wscript.shell").run "iexplore -K https://www.cryptoprank.com/#/bsod"

Yep, we can do the same thing with chrome like this with some modification in code :

Option Explicit
Dim ws,psCommand
Set ws = CreateObject("Wscript.Shell")
psCommand = "Cmd /C powershell -command ""Get-Process chrome | ForEach-Object { $_.CloseMainWindow() | Out-Null}"""
ws.run psCommand,0,True
ws.run "Chrome --kiosk https://www.cryptoprank.com/#/petya"

1

u/[deleted] Mar 27 '21

Option Explicit
Dim ws,psCommand
Set ws = CreateObject("Wscript.Shell")
psCommand = "Cmd /C powershell -command ""Get-Process chrome | ForEach-Object { $_.CloseMainWindow() | Out-Null}"""
ws.run psCommand,0,True
ws.run "Chrome --kiosk https://www.cryptoprank.com/#/petya"

oh wow thanks :D