谁能帮我做个vbs整人代码

容易！
Dim a
do
a=InputBox("快说“老公我爱你”，一个停顿都不能有，不然我就关机！","老公我爱你")
If a="老公我爱你" Then
Msgbox"这就对了嘛！",0,"老公我爱你"
Exit Do
Elseif a="老公，我爱你" Then
Msgbox"一个停顿也不许有，没看见呀？",16,"老公我爱你"
Else
Msgbox"还不说？你再不说我就关机了！",16,"老公我爱你"
End If
loop

这个脚本会一直重复让你说出“老公我爱你”，不说就还问，但不会真的关机。

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 3000 -c ""快说：“老公，我爱你···”"" ",0 ,true
dim a
do while(a <> "我爱你")
a = inputbox ("说你爱我,就不关机，快点，说 ""我爱你"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell