我想编写一个vbs整人代码来表白,谁能帮我一下
2022-08-10 17:50
2022-08-10 17:50
陌然浅笑
下边代码才是完成版,2楼有语法错误
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我,否则会被关机......"" ",0 ,true
dim a
do while (a "我愿意")
a = inputbox ("你愿意嫁给我么","爱的表白","",8000,7000)
if ( a "我愿意" ) then
msgbox "不愿意么?再考虑一下哦"
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "哈哈哈哈,好乖"
2022-08-10 19:57:18
此情可待
菜鸟改了两个小时,如下
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否当我的女朋友,否则会被关机......"" ",0 ,true
dim a
do while (a "愿意")
a = inputbox ("你愿意当我的女朋友吗","爱的表白","",8000,7000)
if ( a "愿意" ) then
msgbox "不愿意么?再考虑一下哦"
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "嘿嘿嘿"
msgbox "叫我老公"
msgbox "快点"
dim b
do while (a "老公")
a = inputbox ("叫吧","叫的你就是我老婆了","",8000,7000)
if ( a "老公" ) then
msgbox "不愿意叫吗?再考虑一下哦"
end if
loop
msgbox "老婆~"
msgbox "mua~"
msgbox "爱你"
msgbox "嘿嘿"
文字都可随便替换,同时msgbox为弹窗,是可以增加,删除的
2022-08-10 19:57:18
秋米
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我,否则会被关机......"" ",0 ,true
dim a
do while(a "我愿意")
a = inputbox ("你愿意嫁给我么","爱的表白","",8000,7000)
if( a "我愿意" ) then
msgbox “不愿意么?再考虑一下哦"
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "哈哈哈哈,好乖"里面的汉字自己改成合适的。
如果对方不愿意,真的会被关机哦,请谨慎使用。
2022-08-10 19:57:18