private void updateTreeNode() {

        //更新图片
        if (currentImage == imageFolderClose) {
            this.getChildren().remove(this.spaceNumber + 1);
            //层次结构，下一级文件与上一级文件的水平间隔
            this.currentImage = imageFolderOpen;//更换图片
            this.getChildren().add(this.spaceNumber + 1, currentImage);
        }

        //更新ObservableList<Node>表，同时更新每一个树节点的下一个节点

......................

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

using System;
using System.IO;code_br_code_br_namespace FileApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            try
            {
                // 创建一个 StreamReader 的实例来读取文件 
                // using 语句也能关闭 StreamReader
                using (StreamReader sr = new StreamReader("names.txt"))
......................

using System;
using System.IO;code_br_code_br_namespace FileApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            try
            {
                // 创建一个 StreamReader 的实例来读取文件 
                // using 语句也能关闭 StreamReader
                using (StreamReader sr = new StreamReader("names.txt"))
......................

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

https://bbs.bccn.net/member.php?action=activate_bccn_uid=999054_bccn_id=mpZlUs

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