批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

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

纯属娱乐,没有实际用途
  1. msgbox"修复了无法退出的bug;优化了扫描体验;优化了用户调控",,"6.0版本更新说明"
  2. i=i+1
  3. a=msgbox("您正在使用 搭载【zzy love **m】的超级安全系统6.0,是否进行全局病毒扫描?",vbyesno)
  4. if a=vbno then
  5. msgbox"你确定要退出吗"
  6. wscript.quit
  7. end if
  8. if a=vbyes then
  9. end if
  10. a="**"
  11. b=0
  12. c=10
  13. do
  14. CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "准备扫描文件中..."
  15. a=a+"*"
  16. c=c+3
  17. b=b+1
  18. if b= 31then
  19. exit do
  20. end if
  21. loop
  22. a="**"
  23. b=0
  24. c=10
  25. do
  26. CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "上传文件至云端中..."
  27. a=a+"**"
  28. c=c+5
  29. b=b+1
  30. if b= 19then
  31. exit do
  32. end if
  33. loop
  34. a="**"
  35. b=0
  36. c=7
  37. do
  38. CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "云端效验文件中..."
  39. a=a+"********"
  40. c=c+31
  41. b=b+1
  42. if b= 4then
  43. exit do
  44. end if
  45. loop
  46. a="*"
  47. b=0
  48. c=1
  49. do
  50. CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "全局扫描文件中..."
  51. a=a+"***"
  52. c=c+11
  53. b=b+1
  54. if b= 10then
  55. exit do
  56. end if
  57. loop
  58. msgbox"未发现病毒程序"
  59. i=i+1
  60. a=msgbox("是否进行深度病毒扫描?",vbyesno)
  61. if a=vbno then
  62. msgbox"用户取消深度扫描"
  63. end if
  64. if a=vbyes then
  65. a=""
  66. b=0
  67. c=2
  68. do
  69. CreateObject("Wscript.Shell").Popup ""&a&""&chr(13)&""&c&"%",1, "深度扫描中...(可能时间较长)"
  70. a=a+"."
  71. c=c+2
  72. b=b+1
  73. if b= 47then
  74. exit do
  75. end if
  76. loop
  77. set WSHshell=wscript.createobject("wscript.shell")
  78. WSHshell.run"cmd /c""cd C:/&&cd Windows&&cd system32&&dir",4,ture
  79. msgbox"扫描完成"
  80. msgbox"没有发现可疑文件,您的电脑很安全"
  81. end if
  82. i=i+1
  83. a=msgbox("是否进入用户调控界面?",vbyesno)
  84. if a=vbno then
  85. msgbox"欢迎下次使用"
  86. wscript.quit
  87. end if
  88. if a=vbyes then
  89. end if
  90. msgbox"欢迎进入用户调控界面"
  91. i=i+1
  92. a=msgbox("是否上传所有文件至云端?",vbyesno)
  93. if a=vbno then
  94. msgbox"用户取消开启"
  95. end if
  96. if a=vbyes then
  97. msgbox"功能开启成功"
  98. end if
  99. msgbox"欢迎您的下次使用"
复制代码

你挺逗的。
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

返回列表