como criar um arquivo em vbs pra trolar, é tipo um .bat pra desligar o pc só que em v.b scipt vídeo e codigo abaixo
x=MsgBox ("Fatal Error ocurred",1+16,"Fatal Error")
x=MsgBox ("C:\ will be deleted if you click accept",1+16,"Fatal Error")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("c:\ has been sucessfully deleted PC shutdown in 30 seconds",1+16,"Del c:\ sucffesful")
set shell = CreateObject("Wscript.Shell")
shell.run "shutdown.exe -s -t 35"
lembrando que isso apenas vai desligar o pc é só pra assustar as pessoas mesmo rsrsrs
x=MsgBox ("Fatal Error ocurred",1+16,"Fatal Error")
x=MsgBox ("C:\ will be deleted if you click accept",1+16,"Fatal Error")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("Deleting c:\",1+16,"Del c:\")
x=MsgBox ("c:\ has been sucessfully deleted PC shutdown in 30 seconds",1+16,"Del c:\ sucffesful")
set shell = CreateObject("Wscript.Shell")
shell.run "shutdown.exe -s -t 35"
lembrando que isso apenas vai desligar o pc é só pra assustar as pessoas mesmo rsrsrs