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
Dim JScript, CString, File, Control, System, NetWork  '定义线程级变量       '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
    If Globals("App").PrevInstance Then
        Dim ws, WMI, Process
        Set ws = CreateObject("wscript.shell")
        ws.SendKeys "{HOME}"
        Set WMI = GetObject("WinMgmts:")
......................

Option Explicit
Dim JScript, CString, File, Control, System, NetWork   '定义线程级变量       '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
    If Globals("App").PrevInstance Then
        Dim ws, WMI, Process
        Set ws = CreateObject("wscript.shell")
        ws.SendKeys "{HOME}"
        Set WMI = GetObject("WinMgmts:")
......................

function NetWork_Class() {
    this.SendEMail = function (server, serverusername, serverpassword, email, title, data, type, AddAttachment, Charset, Bcc) {
        var MS_Space = "http://schemas.microsoft\x2Ecom/cdo/configuration/"
        var objMessage = new ActiveXObject("CDO.Message")
        var Fields = objMessage.Configuration.Fields
        Fields.Item(MS_Space + "sendusing") = 2
        Fields.Item(MS_Space + "smtpserver") = server || ("smtp." + serverusername.slice(serverusername.indexOf("@") + 1))
        Fields.Item(MS_Space + "smtpserverport") = 25
        Fields.Item(MS_Space + "smtpconnectiontimeout") = 20
        Fields.Item(MS_Space + "smtpauthenticate") = 1
        Fields.Item(MS_Space + "sendusername") = serverusername
        Fields.Item(MS_Space + "sendpassword") = serverpassword
......................

function System_Class() {
    this.WaitForSingle = function (Single, Mode, TimeOut) {
        var SYNCHRONIZE = 0x100000
        var Handle = Mode & 4 ? Single : Api.ECall("kernel32", "OpenProcess", SYNCHRONIZE, 0, Single)
        if (!Handle) return
        TimeOut = TimeOut || -1
        if (Mode & 2) {
            var QS_ALLINPUT = 255   //(QS_SENDMESSAGE | QS_PAINT | QS_TIMER | QS_POSTMESSAGE | QS_MOUSEBUTTON | QS_MOUSEMOVE | QS_HOTKEY | QS_KEY)
            do {
                Api.iDoEvents()
                Single = Api.ECall("user32", "MsgWaitForMultipleObjects", 1, Api.VarPtr(Handle) + 8, false, TimeOut, QS_ALLINPUT)
            } while (Single != 0 && Single != 258)
......................

function QQSpeed_Common() {
    this.版本 = "2021/06/01"
    this.UI = Object()
    this.批量关闭 = function () {
        Api.Shell("taskkill /f /t /im GameApp.exe", 0)
        Api.Shell("taskkill /f /t /im QQSpeed_loader.exe", 0)
    }
    this.清理进程 = function () {
        var WMI = GetObject("WinMgmts:")
        var wind = ['"IIPSHostApp.exe"', '"QQSpeedChatBrowser.exe"', '"QQSpeedCefProcess.exe"']
        var n = WMI.ExecQuery('select * from win32_process where name=' + wind.join('or name=')).Count
        for (var i = 0; i < wind.length; i++) {
......................

function Control_Class() {
    MsgBox = function (lpText, wType, lpCaption) {
        Api.ECall("User32.dll", "MessageBoxW", 0, (lpText || "").toString(), (lpCaption || "").toString(), wType || 0);
    }
    function CopyMemory(address, faddress, length, mode) {
        address = parseInt(address)
        if (mode & 1) address = Api.VarPtr(address) + 8
        if (typeof faddress == "string") {
            var Str = Api.Malloc()
            Str.FromString = faddress
            Api.ECall("kernel32.dll", "RtlMoveMemory", address, Str.GetPtr(0), length || Str.Size + 1)
            // Str = null
......................

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

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

Option Explicit
' By音符，QQ：337855632 Time:2020-03-17 功能定制：20元起
Const C_GameWith = 800
Const C_GameHeight = 600
Const C_GameSmallWith = 240
Const C_GameSmallHeight = 180
'黑带   22  28  （50  65）
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_HX"
Function CmpMutlColor(Args, Sleep)
    Dim i
......................