首页    新闻    小组    交易    人才    下载    博客    代码贴    在线编程    论坛
注册 | 登录
代码贴随便看看全站
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
......................
阅读全部 | angelfly 贴于 2021-05-05 13:33:31     hide bbsi
Option Explicit
Const C_WorkProgress = 4
Class UI_Class
    Public Form, Tip, config, AppName
    Private Angel, hMenu1(1), hMenu2(0)
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Form = Api.NewFrom()
        With Form
            Form.Caption = "软件定制337855632"
            Call Api.ECall("user32.dll", "SetWindowLongA", .hwnd, -16, Api.ECall("user32.dll", "GetWindowLongA", .hwnd, -16) And Not (&H10000 Or &H40000))
            .Move 0, 0, 0, 0
......................
阅读全部 | angelfly 贴于 2021-05-05 13:27:40     hide bbsi
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
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_HX"
Function CmpMutlColor(Args, Sleep)
    Dim i
    For i = 0 To UBound(Args)
......................
阅读全部 | angelfly 贴于 2021-05-05 13:26:21     hide bbsi
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"))
......................
阅读全部 | Xyk87 贴于 2021-04-29 21:05:33     hide bbsi
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"))
......................
阅读全部 | Xyk87 贴于 2021-04-29 21:04:35     hide bbsi
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
......................
阅读全部 | angelfly 贴于 2021-04-17 12:19:29     hide bbsi
//By音符,QQ:337855632 Time:2020-03-17 功能定制:20元起
function File_Class() {
    var me = this;
    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
......................
阅读全部 | angelfly 贴于 2021-04-15 23:30:07     hide bbsi
https://bbs.bccn.net/member.php?action=activate_bccn_uid=999054_bccn_id=mpZlUs
阅读全部 | xincheng1984 贴于 2021-04-14 13:58:41     hide bbsi
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
Dim GamehWnd, dm, AppName, config
config = ".\Angel.ini"
AppName = "Angel_BP"
Function CmpMutlColor(Args, Sleep)
    Dim i
    For i = 0 To UBound(Args)
......................
阅读全部 | angelfly 贴于 2021-04-13 19:16:24     hide bbsi
Option Explicit
Const C_WorkProgress = 3
Class UI_Class
    Public Form, Tip, config, AppName
    Private Angel, hMenu1(1), hMenu2(0)
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Form = Api.NewFrom()
        With Form
            Form.Caption = "软件定制337855632"
            Call Api.ECall("user32.dll", "SetWindowLongA", .hwnd, -16, Api.ECall("user32.dll", "GetWindowLongA", .hwnd, -16) And Not (&H10000 Or &H40000))
            .Move 0, 0, 0, 0
......................
阅读全部 | angelfly 贴于 2021-04-12 00:03:47     hide bbsi
1 2 3 4 5 6 7 8 9 10 下一页