无聊小弹窗ANSI.vbs

1.

dim i,j,a,b,c
i=1
j=5
a="点"
b="下"
msgbox"点击确定开冲！"
while i <= 50
c = a&j
if j=-5 then 
b= "下。你点关闭呀，点再多次也没用"
end if
msgbox c&b
j = j-1
i = i + 1
wend
msgbox "哈哈哈上当了把！"
msgbox "愚人节快乐！"

2.

dim ws
set ws = wscript.createobject("wscript.shell")
a = 10000000                      
for i = 1 to a
ws.run "mshta vbscript:msgbox(""好无聊,快陪陪我！"",3,"" "")(window.close)",vhide
wscript.sleep 1000*1    
next
 
ws.run "taskkill /im mshta.exe /f ",0 ,true