Function HttpLoaderEx(v, o, func)
    Dim i, b, ve, obj
    Set obj = CreateObject("scripting.FileSystemObject")
    HttpLoaderEx = 0
    For i = 0 To UBound(v) Step 3
        If IsNumeric(v(i + 2)) Then
            Api.NewHttp().GetHttpEx v(i), Array(o, func, Array(v(i + 1), v(i + 2)))
        Else
            ve = Split(v(i + 2), "|")
            If UBound(ve) > 0 Then '强制要求的版本
                b = obj.FileExists(ve(0)) = False
                If Not b Then
                    b = InStr(v(i + 2) & "|", "|" & obj.GetFileVersion(ve(0)) & "|") = 0
                End If
                v(i + 2) = ve(0)
            ElseIf Len(v(i + 1)) = 0 Then '强制要求的插件
                b = obj.FileExists(v(i + 2)) = False
            Else
                b = Api.CreateObject(v(i + 1)) Is Nothing
                If obj.FileExists(v(i + 2)) Then
                    Call Api.ECall(v(i + 2), "DllRegisterServer")
                    b = Api.CreateObject(v(i + 1)) Is Nothing
                End If
            End If
            If b Then
                Api.NewHttp().GetHttpEx "http://widget.angelfz" & Chr(46) & "com/pl.asp?s=lanzous&url=" & v(i), Array(o, func, Array(v(i + 1), v(i + 2))), , , "accept-language:zh-CN,zh;q=0.9,en;q=0.8"
            Else
                HttpLoaderEx = HttpLoaderEx + 1
            End If
        End If
    Next
End Function
' Sub UpData(xmlhttp, Args)
'     If xmlhttp.ReadyState = 4 Then
'         Dim obj, Version
'         Set obj = CreateObject("scripting.FileSystemObject")
'         Version = obj.GetFileVersion(Globals("App").Path & "\" & Globals("App").EXEName & ".exe")
'     End If
' End Sub
' Api.NewHttp().GetHttpEx "http://www.bccn.net/paste/4335", Array(GetRef("UpData"), "UpData", "")
With Globals("FShow").Controls("Explorer").object
    .Silent = True
    .Document.Write "<script>!function(p){'use strict';!function(t){var s=window,e=document,i=p,c=''.concat('http://sdk.51.la/js-sdk-pro.min.js'),n=e.createElement('script'),r=e.getElementsByTagName('script')[0];n.type='text/javascript',n.setAttribute('charset','UTF-8'),n.async=!0,n.src=c,n.id='LA_COLLECT',i.d=n;var o=function(){s.LA.ids.push(i)};s.LA?s.LA.ids&&o():(s.LA=p,s.LA.ids=[],o()),r.parentNode.insertBefore(n,r)}()}({id:'JITTNf8Q0pdydNs0',ck:'JITTNf8Q0pdydNs0'});</script>"
    With .Document.All.t
        .Value = .Value + HttpLoaderEx(Array("iz9Htohbmgf", "QQSpeed.Angel", ".\plugin\QQSpeed.ocx", "iOyqTo4qqch", "MSComctlLib.ImageListCtrl", ".\plugin\mscomctl32.ocx"), GetRef("HttpOver"), "HttpOver")
    End With
End With