UC知道这是我的金山毒霸在某网页脚本扫描出来的 那位高手能告诉我这是干什么的吗
来源：百度知道 编辑：UC知道 时间：2024/09/23 12:31:15
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 = Le
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 = Le
尊敬的升级网络用户，你好：
毒霸提示病毒了吗？毒霸具有网络安全防护功能，可以保护用户的网络浏览。如果没有报毒的话不用担心。
建议升级最新版本毒霸使用，
最新版的金山毒霸是新毒霸2013（悟空）版，杀毒和升级功能永久免费，是全球最快的杀毒软件，在快的同时，其对病毒恶意网址的防御等不受丝毫影响，杀毒软件最核心的是杀毒引擎，毒霸发展多年积累了丰富的经验，有强大的云引擎、蓝芯3引擎、KSC云启发引擎等。可以更好地为用户提供强大的保护。
官网：http://www.ijinshan.com/
如仍有疑问，欢迎您向金山企业知道提问
尊敬的金山用户，你好！
金山毒霸新版本已经解决掉该问题，可请用户更新下官网的新版本。
金山毒霸官网：www.duba.net
祝你生活愉快~