整人程序

来源：百度知道 编辑：UC知道 时间：2024/05/28 02:44:23
不要我是猪的那一种

set ws=wscript.createobject("wscript.shell")
ws.run "wscript.exe",0
set WshShell = WScript.CreateObject("WScript.Shell")
alerttitle = "系统提示"
alerttext ="哈哈！你中招了！"
for i = 1 to 20
WScript.Sleep(1000*5)
msgbox alerttext,4096,alerttitle
next
复制代码到记事本中 保存为.vbs

这个没什么太大意思~
不过瘾
运行后每5秒弹出对话框 弹出20次~