焊汽车水箱工具:这是我的金山毒霸在某网页脚本扫描出来的 那位高手能告诉我这是干什么的吗

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