薛明是被离婚的吗?:一开机就出现网页安全扫描的提示匡说发现 安全隐患的代码 怎样解决?谢谢
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/06 09:14:47
每次开机 提示匡中都有以下字样
该网页脚本具有以下行为:
>> 写注册表
======================
脚本内容:
Function LteGetParam(Source, Separator)
Dim Result()
Work = Source + Separator
N = 0
K = 1
C = 0
While (K > 0)
K = InStr(N + 1, Work, Separator)
If K > 0 Then
strItem = Mid(Work, N + 1, K - N - 1)
Redim Preserve Result(C)
Result(C) = (strItem)
C=C+1
End If
N = K
Wend
LteGetParam = Result
End Function
Sub LteSetEvent(Channel,EType)
AbsTime = EType & DateDiff("s","1/1/1970",Now())
Call Channel.Variables.Add("LGT_SMAT",AbsTime,false)
end sub
Sub LteTrySetEvent(Infopak, EType)
if InStr(Infopak.PublisherName,"Timing=1") > 0 then
Call LteSetEvent(Infopak.Channel,EType)
end if
End Sub
Function LteCmd(strIn)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "\w+\(.+\)"
If regEx.Test(strIn) then
LteCmd = Left(strIn,InStr(strIn,"(")-1)
end if
End Function
Function LteParseStr(strIn)
strOut = Replace(strIn, "'", """") 'restore the double quotes
strOut = Replace(strOut, """""", "'") 'allow for single '
LteParseStr = strOut
End Function
Sub LteSetConfig(i_oChannel, i_sLibVersion)
set WshShell = CreateObject ("WScript.Shell")
strConfig = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Logitech\DesktopMessenger\CurrentVersion\Setup\VersionNumber") & ","
strConfig = strConfig & WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BackWeb\BackWeb-Client\Applications\8876480\General\ConfigVersion") - 168386711 & ","
strConfig = strConfig & i_sLibVersion & ","
strConfig = strConfig & WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Logitech\DesktopMessenger\CurrentVersion\Setup\InstallLanguage") & ","
strConfig = strConfig & giIDP_PROTOCOL_VERSION
Call i_oChannel.Variables.Add("LGT_SMCF", strConfig , true)
Set WshShell = nothing
End Sub
Sub LteCheckErrors(Channel)
if Err.number>0 then
strCUp="Log(ERROR " & Err.Number & ": " & Err.Description & ")"
Call Channel.Variables.Add("LSM_CU",strCUp,true)
end if
end sub
Function LteRegValue(Branch)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
On Error resume next
LteRegValue = WshShell.RegRead(Branch)
Err.Clear
On error goto 0
End Function
Sub LteRegAdd(Branch,Value)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
On Error resume next
Current = WshShell.RegRead(Branch)
On error goto 0
Current = Current & Value & ","
Call WshShell.RegWrite(Branch,Current)
End Sub
该网页脚本具有以下行为:
>> 写注册表
======================
脚本内容:
Function LteGetParam(Source, Separator)
Dim Result()
Work = Source + Separator
N = 0
K = 1
C = 0
While (K > 0)
K = InStr(N + 1, Work, Separator)
If K > 0 Then
strItem = Mid(Work, N + 1, K - N - 1)
Redim Preserve Result(C)
Result(C) = (strItem)
C=C+1
End If
N = K
Wend
LteGetParam = Result
End Function
Sub LteSetEvent(Channel,EType)
AbsTime = EType & DateDiff("s","1/1/1970",Now())
Call Channel.Variables.Add("LGT_SMAT",AbsTime,false)
end sub
Sub LteTrySetEvent(Infopak, EType)
if InStr(Infopak.PublisherName,"Timing=1") > 0 then
Call LteSetEvent(Infopak.Channel,EType)
end if
End Sub
Function LteCmd(strIn)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "\w+\(.+\)"
If regEx.Test(strIn) then
LteCmd = Left(strIn,InStr(strIn,"(")-1)
end if
End Function
Function LteParseStr(strIn)
strOut = Replace(strIn, "'", """") 'restore the double quotes
strOut = Replace(strOut, """""", "'") 'allow for single '
LteParseStr = strOut
End Function
Sub LteSetConfig(i_oChannel, i_sLibVersion)
set WshShell = CreateObject ("WScript.Shell")
strConfig = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Logitech\DesktopMessenger\CurrentVersion\Setup\VersionNumber") & ","
strConfig = strConfig & WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BackWeb\BackWeb-Client\Applications\8876480\General\ConfigVersion") - 168386711 & ","
strConfig = strConfig & i_sLibVersion & ","
strConfig = strConfig & WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Logitech\DesktopMessenger\CurrentVersion\Setup\InstallLanguage") & ","
strConfig = strConfig & giIDP_PROTOCOL_VERSION
Call i_oChannel.Variables.Add("LGT_SMCF", strConfig , true)
Set WshShell = nothing
End Sub
Sub LteCheckErrors(Channel)
if Err.number>0 then
strCUp="Log(ERROR " & Err.Number & ": " & Err.Description & ")"
Call Channel.Variables.Add("LSM_CU",strCUp,true)
end if
end sub
Function LteRegValue(Branch)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
On Error resume next
LteRegValue = WshShell.RegRead(Branch)
Err.Clear
On error goto 0
End Function
Sub LteRegAdd(Branch,Value)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
On Error resume next
Current = WshShell.RegRead(Branch)
On error goto 0
Current = Current & Value & ","
Call WshShell.RegWrite(Branch,Current)
End Sub
开始-运行-msconfig-启动-把相关的去掉就可以了.