我想编写一个vbs整人代码来表白,谁能帮我一下

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