传统查毒软件秒杀云安全，100%查毒软件免费放送

小樂

試試

02223289680

我要申请去测试区测试
成绩一定灰常之给力[:26:]
被喷估计也给力

zhengshixin163

回复 72楼 02223289680 的帖子

绝对给力的

zhengshixin163

回复 66楼 追梦船 的帖子

参见42L

-oAo-

猪头无双 发表于 2011-4-5 19:39
回复 69楼 -oAo- 的帖子

看42L

我不去试

找不到新用户名

WScript.Echo "****************************************************" '玩人的扫毒开始  
WScript.Echo "                      扫毒开始"  
WScript.Echo "****************************************************"  
Set fso2=Nothing  
Set FSO1=nothing  
Call SaoMiaoJD             '构造扫描进度条  
WScript.Echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"  
WScript.Echo "                      发现病毒"  
WScript.Echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"  
Call ShowVir   '显示病毒名  
  
  
Sub Cannot()        '获取文件路径  
Do  
Dim put  
Set put=WScript.StdIn            
WScript.Echo "请输入待扫描文件的绝对路径或相对路径，按下回车。"  
tmp=put.ReadLine '读取  
If FSO1.FileExists(tmp)=True Then  '判断文件是否存在  
Path=FSO1.GetFile(tmp).Path  '获取完整路径  
Set put=Nothing  
Exit Do   
Else  
Set put=Nothing  
End If  
Loop  
End Sub  
  
Sub ShowVir()  '显示病毒名  
'80~89是0-9的ascii，97-122是a-z的ascii，65-90是A-Z的ascii  
WScript.Echo "发现病毒！" & vbCrLf & Chr(RND2(90,65)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(57,48)) & "." & _  
Chr(RND2(89,80)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97))  & Chr(RND2(122,97)) & "." &  Chr(RND2(90,65)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Bianzhong  
WScript.Echo "请下载正版杀毒软件进行查杀！"  
End Sub  
  
Function Bianzhong()  '随机数判断是否是变种  
Dim tmab  
tmab=Rnd2(2,1)  
If tmab=2 Then  Bianzhong="变种"  & Chr(RND2(122,97))   
End Function  
  
  
Function SaoMiaoJD()  '扫描进度  
Dim sb,tma   
sb=0  '初始化计数器  
Do  
tma=RND2(10,1)  '随机数  
sb=sb+tma  '计数  
If sb<=100 Then   
WScript.Echo "扫描中......进度" & sb & "%"  
WScript.Sleep(500) '等待0.5秒继续运行  
Else  
Exit Function  
End if  
Loop  
  
End Function  
  
  
  
Function  RND2(upperbound,lowerbound) '随机数   
Randomize '初始化随机数计数器  
RND2=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) '随机  
End Function  

*by zsxsoft

随机神马的挺不错

zhengshixin163

回复 76楼 找不到新用户名 的帖子

把我博客里的注释发出来是不好的……

找不到新用户名

回复 77楼 zhengshixin163 的帖子

反正你自己都给链接了

zhengshixin163

回复 78楼 找不到新用户名 的帖子

本站采用创作共用版权协议（查看普通文本），转载本站内容必须署名-非商业使用-禁止演绎（查看法律文本）。

找不到新用户名

回复 79楼 zhengshixin163 的帖子

互联网的精神是自由和共享