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
......................

//By音符，QQ：337855632 Time:2020-03-17 功能定制：20元起
function File_Class() {
    var hModule = Api.ProcAddress("kernel32");
    var WritePrivateProfileString = Api.ProcAddress(hModule, "WritePrivateProfileStringW");
    var GetPrivateProfileString = Api.ProcAddress(hModule, "GetPrivateProfileStringW");
    Api.ProcAddress(-hModule);      //'FreeLibrary'
    var fso = new ActiveXObject('scripting.FileSystemObject');

    this.ReadINI = function (ApplicationName, KeyName, IniPath, Default, IsNunber) {
        if (Default === undefined) Default = "";
        if (IsNunber === undefined && typeof (Default) == 'number') IsNunber = true
        var retstr = Api.Malloc(2550);
......................

Option Explicit
' By音符，QQ：337855632 Time:2020-03-17 功能定制：20元起
Const C_GameWith = 1024
Const C_GameHeight = 768
Const C_GameSmallWith = 320
Const C_GameSmallHeight = 240
'黑带   16  20
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_BP"
Function CmpMutlColor(Args, Sleep)
    Dim i
......................

Option Explicit
Const C_WorkProgress = 4
Class UI_Class
    Public Form, Tip, config, AppName, Starting, Angel
    Private Menu, hMenu1(1), hMenu2(0), timing
    Private Tooptip
    Private DisablePowerSave
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Menu = Control.Menu()
        Set Form = Api.NewForm()
        Set Tooptip = Control.Tooptip()
......................

function CString_Class() {
  this.getmid = function (str, lstr, rstr, start, mode) {
    // '1 不区分大小写
    // '2 先查右再左
    // '4 后往前查
    mode = mode || 0;
    start = (mode & 4 && !start) ? mstr.length : start || 0;
    if (start < 0) start = start + mstr.length;
    if (mode & 1) {
      var mlstr = lstr.toLowerCase();
      var mrstr = rstr.toLowerCase();
      var mstr = str.toLowerCase();
......................

Option Explicit
' By音符，QQ：337855632 Time:2020-03-17 功能定制：20元起
Class File_Class
    Private WritePrivateProfileString, GetPrivateProfileString
    Public Function ReadINI(ByVal ApplicationName, ByVal KeyName, ByVal IniPath, ByVal Default)
        Dim retstr
        retstr = Space(255)
        ReadINI = left(retstr, Api.ECall(GetPrivateProfileString, False, ApplicationName, KeyName, Default, retstr, 255, IniPath))
    End Function
    Public Function WriteINI(ByVal ApplicationName, ByVal KeyName, ByVal Str, ByVal IniPath)
        Call Api.ECall(WritePrivateProfileString, False, ApplicationName, KeyName, CStr(Str), IniPath)
    End Function
......................

Option Explicit
' By音符，QQ：337855632 Time:2020-03-17 功能定制：20元起
Class Window_Class
    Private PostMessage, SendMessage, KMMessage
    Private EnumS, Sleep
    Public Property Let Delay(iTime) '设置LeftClick KeyPress间隔
        Sleep = iTime
    End Property
    Public Property Let Async(IsAsync) '设置鼠标键盘是否异步
        If CBool(IsAsync) Then KMMessage = PostMessage Else KMMessage = SendMessage
    End Property
    Public Function GetText(ByVal hWnd)
......................