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

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

#include<stdio.h>
int main()
{int x,y;
    printf("请你输入一个整数代表x,计算机将求出分段函数y的值。\n");
    scanf("%d",&x);
    if(x<1)
    {y=x;
    printf("因为x=%d<1,所以函数表达式为y=x,此时y的值为%d。",x,y);
    }
    else if((x>1||x==1)&&x<10)
    {y=2*x-1;
    printf("因为1=<x=%d<10,所以函数表达式为y=2x-1,此时y的值为%d。",x,y);
......................

#include<stdio.h>
int main()
{int x,y;
    printf("请你输入一个整数代表x,计算机将求出分段函数y的值。\n");
    scanf("%d",&x);
    if(x<1)
    {y=x;
    printf("因为x=%d<1,所以函数表达式为y=x,此时y的值为%d。",x,y);
    }
    else if((x>1||x==1)&&x<10)
    {y=2*x-1;
    printf("因为1=<x=%d<10,所以函数表达式为y=2x-1,此时y的值为%d。",x,y);
......................