vbs整人代码,vbs整人代码窗口怎么关闭？

1vbs整人代码、收到的vbs是这样的，请我吃饭请我唱歌一直循环，点击窗口右上角的差也是和确定一样的效果进入下一个语句。

2、要关闭vbs窗口很简单的，首先我们可以通过快捷键Ctrl+Alt+Delete打开任务管理器，也可以将鼠标移动到任务栏上，右键选择启动任务管理器。

3、在任务管理器中的应用程序下是没有这个程序的，也就是说vbs是一个进程，我们要点击到进程查看选项。

4、然后在进程中找到wscript.exe这个进程，如果进程列表一直在变动的，你可以点击一下上面的进程选项，让这些进程按顺序排列。

5、然后，我们选中wscript.exe这个进程，在点击右下角的结束进程按钮。

6、然后，确定结束进程，这样我们电脑桌面上惹人疼爱的vbs整人代码窗口就被我们强制关闭了。

谁能给我个整人vbs的代码

write_text “1.vbs”,”msgbox “”a”””

createobject(“wscript.shell”).run “1.vbs”

createobject(“sapi.spvoice”).speak “is it work? 行了么”

function write_text(file,str)

createobject(“scripting.filesystemobject”). opentextfile(file, 2 ,true).writeline str

end function

求一些厉害的vbs整人程序代码

1.’拉了拉制作

‘Love骗人

const yourname = “拉了拉”    ‘==========请把引号里的 拉了拉 改成你的姓名！！！！=================

const title = “爱情测试”

const question = “你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。”

const info = “你在说谎！不要逃避，实话实说。”

const scend = “你说出了你的心扉，那就向他（她）表白吧。”

dim youranswer

do

youranswer = inputbox(question, title)

if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title

loop until youranswer = yourname

msgbox scend, vbinformation+vbokonly, title

2.

5楼

if MsgBox(“对不起,您灌水太多需要重新启动计算机。”&chr(10)&”确定要重启吗？”,vbOKCancel+vbInformation,”重新启动计算机”)=vbCancel then 

msgbox ”  系统将立刻重起wow ~_^”,,”你上当了！！”

Set objShell = CreateObject(“Wscript.Shell”)

objShell.Run “shutdown -s -t 5”,,true

end if