我想编写一个vbs整人代码来表白,谁能帮我一下
on error res言ume next
dim WSHshellA
set WSHshellA = ***.createobject("***.shell")
***来自.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否预白急增现认盟错稳嫁给我,否则会被关机......"" ",0 ,true
dim a
do while(a <> "我愿意")
a = inputbox ("你愿意嫁给我么","爱的表白","",8000,7000)
i360问答f( a <> "我愿意" ) then
msgbox “不愿意线选孔通示型么?再考虑一下哦"
loop
dim WSHshell
se房要切增皮毫劳资令合若t WSHshell = ***.createobject("***.shell")
***.run "cmd.exe /c shutd当备序own -a",0 ,true
msgbox "哈哈考间蛋声抓穿条本哈哈,好乖"
里面的汉字自己改成合适的。
如些维异要导运缩胶例突果对方不愿意,真的会被关机哦,请谨慎使用。
标签:vbs,整人,表白