'----------------------------------------------------------------------
'Microsoft (R) Windows Based Script Host
'Visual Basic Scripting Document
'Object.Popup(strText,[nSecondsToWait],[strTitle],[nType]) //函数用法
'本脚本由 script_net 整理编写
'----------------------------------------------------------------------
Dim WshShell,title,t(7),id
Set WshShell=WScript.CreateObject("WScript.Shell")
title=" 欢迎光临本网吧! "
t0="=======================网吧系统公告!====================="
t1=" ★上网人员严禁登陆黄色、反动等类型的网站;"
t2=" ★不得运行色情、赌博、暴力、迷信等电脑游戏; "
t3=" ★个人贵重物品、上网帐号、密码请注意安全、妥善保管,丢失自负;"
t4=" ★维护公共卫生,爱护公共设施,损坏物品照价赔偿;"
t5=" ★登陆QQ及各种网络游戏,切勿登陆不明网站,防止帐号被盗;"
t6=" ★如有其他问题,请与网管联系。"
t7="=======================谢谢合作!========================="
id=Chr(10)&t0&Chr(10)&Chr(10)&t1&Chr(10)&Chr(10)&t2&Chr(10)&Chr(10)&t3&Chr(10)&Chr(10)&t4&Chr(10)&Chr(10)&t5&Chr(10)&Chr(10)&t6&Chr(10)&Chr(10)&t7
WshShell.Popup id, 5, title & now,0
Set WshShell=NoThing