描写感恩父母的句子:高分求救!解决后再加50分!

来源:百度文库 编辑:神马品牌网 时间:2024/03/28 17:16:52
我只要一开机,金山毒霸就说什么运行页面有什么什么脚本的,代码如下:

该网页脚本具有以下行为:
>> 写注册表
======================
脚本内容:

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

要怎么办啊?
开机啊...你们这些人也太可恶了...说那些不顶用的话

是不是你的机子里有木马呀,被金山发现了!1

你用金山木马查杀工具查下看看!!

你用的系统绝对有问题,这不是说引导的问题么?你换个内存条吧。。。

是一开机还是 开网页

金山,瑞星,江民都不怎么样,无论是不是正版,
可以试一下赛门铁客,咔吧,麦咖啡,完全免费;

用优化大师,把开机项中的金山毒霸去掉。换一款杀毒软件。

用优化大师,把开机项中的金山毒霸去掉。换一款杀毒软件