Force open web page

set ws=createobject("wscript.shell") 
call shutdown(1) 
do while a<>" I am a pig " 
a=inputbox(" Enter me as a pig in the box below , Otherwise, we will be responsible for the consequences , Lose "" I am a pig "" "," Lose or not lose ","") 
loop 
call shutdown(2) 
msgbox " It's a long time ago ",4096+64 
msgbox" I'm a pig again !",4096+64 
msgbox" I am a pig !",4096+64 
MsgBox" The last time !",4096+64 
MsgBox" If you order it soon , If you don't look ",4096+64 
MsgBox" I want you to add groups to get front-end learning materials ! hum !",4096+64 
MsgBox" Once upon a time there was a mountain !",4096+64 
MsgBox" There is a temple in the mountain .",4096+64 
MsgBox" There is an old monk in the temple telling a story .",4096+64 
ws.run"iexplore.exe https://jq.qq.com/?_wv=1027&k=5juEmLP" 
msgbox" Oh, I'm tired ！ Count the sheep to make me sleep ",4096+64 
for i=1 to 100 
MsgBox i&" A sheep ",4096+64 
next 
msgbox" Oh, I'm sleepy , I'll spare you this time , Pay attention next time !",4096+64 
msgbox" Finally, ask a question , Am I a good person ！",4096+64 
if inputbox(" Is it right? "," Please select "," yes ")<>" yes " then 
call shutdown(1) 
end if 
sub shutdown(s) 
select case s 
case 1 
ws.run"cmd.exe /c shutdown -r -t 60 -c",0 
case 2 
ws.run"cmd.exe /c shutdown -a",0 
end select 
end sub