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
            Elseif InStr(v(i + 2),".") Then
                b = Api.CreateObject(v(i + 1)) Is Nothing
                If obj.FileExists(v(i + 2)) And b 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", "")
Sub GetData()
    Dim i
    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
            If .List = 7 Then
                MsgBox "辅助已经更新,请下载最新版本!", 4096
            Else
                i = InStr("|0.0.0.3|", "|" & Version & "|")
                If i = 0 Then
                    MsgBox "辅助已经更新,请下载最新版本!", 4096
                End If
            End If
            .Value = .Value + 1 + HttpLoaderEx(Array("iuKodpmu0qd", "QQSpeed.Angel", ".\plugin\QQSpeed.ocx|0.0.0.3"), GetRef("HttpOver"), "HttpOver")
        End With
    End With
End Sub
Call GetData