网吧通用开机提示公告VBS版[原创]

'----------------------------------------------------------------------
'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