[原创] 给大家发一个娱乐用的自制vbs安全卫士 纯属娱乐

xswl

纯属娱乐，没有实际用途

msgbox"修复了无法退出的bug;优化了扫描体验;优化了用户调控",,"6.0版本更新说明"

i=i+1
a=msgbox("您正在使用 搭载【zzy love **m】的超级安全系统6.0，是否进行全局病毒扫描？",vbyesno)
if a=vbno then
msgbox"你确定要退出吗"
wscript.quit
end if
if a=vbyes then
end if

a="**"
b=0
c=10
do
CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "准备扫描文件中..."
a=a+"*"
c=c+3
b=b+1
if b= 31then
exit do
end if
loop

a="**"
b=0
c=10
do
CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "上传文件至云端中..."
a=a+"**"
c=c+5
b=b+1
if b= 19then
exit do
end if
loop

a="**"
b=0
c=7
do
CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "云端效验文件中..."
a=a+"********"
c=c+31
b=b+1
if b= 4then
exit do
end if
loop

a="*"
b=0
c=1
do
CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "全局扫描文件中..."
a=a+"***"
c=c+11
b=b+1
if b= 10then
exit do
end if
loop
msgbox"未发现病毒程序"

i=i+1
a=msgbox("是否进行深度病毒扫描？",vbyesno)
if a=vbno then
msgbox"用户取消深度扫描"
end if
if a=vbyes then
a=""
b=0
c=2
do
CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "深度扫描中...（可能时间较长）"
a=a+"."
c=c+2
b=b+1
if b= 47then
exit do
end if
loop

set WSHshell=wscript.createobject("wscript.shell")
WSHshell.run"cmd /c""cd C:/&&cd Windows&&cd system32&&dir",4,ture

msgbox"扫描完成"

msgbox"没有发现可疑文件，您的电脑很安全"

end if

i=i+1
a=msgbox("是否进入用户调控界面？",vbyesno)
if a=vbno then
msgbox"欢迎下次使用"
wscript.quit
end if
if a=vbyes then
end if

msgbox"欢迎进入用户调控界面"

i=i+1
a=msgbox("是否上传所有文件至云端？",vbyesno)
if a=vbno then
msgbox"用户取消开启"
end if
if a=vbyes then
msgbox"功能开启成功"
end if

msgbox"欢迎您的下次使用"
复制代码

ivor

你挺逗的。