首页    新闻    小组    交易    人才    下载    博客    代码贴    在线编程    论坛
代码贴随便看看全站
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(v(i + 2)) = 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) {
        Default = Default || "";
        var retstr = Api.Malloc(255);
......................
阅读全部 | 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
Function CmpMutlColor(Args, Sleep)
    Dim i
    For i = 0 To UBound(Args)
        CmpMutlColor = (dm.CmpColor(Args(i)(0), Args(i)(1), Args(i)(2), Args(i)(3)) = 0)
        If CmpMutlColor = False Then Exit For
......................
阅读全部 | angelfly 贴于 2021-04-13 19:16:24     hide bbsi
Option Explicit

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
#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);
......................
阅读全部 | yehuabao 贴于 2021-04-09 16:33:05     hide bbsi
#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);
......................
阅读全部 | yehuabao 贴于 2021-04-09 16:29:31     hide bbsi
# -*- coding:utf-8 -*-

import socket
from time import ctime, sleep
import threading


class ChatRoomPlus:
    def __init__(self):
        # 全局参数配置
        self.encoding = "utf-8"  # 使用的编码方式
        self.broadcastPort = 7788   # 广播端口
......................
阅读全部 | 静夜思 贴于 2021-04-06 20:29:42     hide bbsi
Option Explicit
' By音符,QQ:337855632 Time:2020-03-17
Class Window_Class
    Private PostMessage, SendMessage
    Public Function GetText(ByVal hWnd)
        Dim pszText
        pszText = Space(255)
        GetText = Left(pszText, Api.ECall("user32.dll", "GetWindowTextW", hWnd, pszText, Len(pszText)))
    End Function
    Public Function GetClass(ByVal hWnd)
        Dim pszText
        pszText = Space(255)
......................
阅读全部 | 刘达明 贴于 2021-04-01 19:16:13     hide bbsi
function CString_Class() {
  this.slice = function (str, start, end) {
    return str.slice(start, end || str.length)
  }
  this.substr = function (str, start, end) {
    return str.substr(start, end || str.length)
  }
  this.getmid = function (str, lstr, rstr, start, mode) {
    // '1 不区分大小写
    // '2 先查右再左
    // '4 后往前查
    mode = mode || 0;
......................
阅读全部 | angelfly 贴于 2021-03-25 21:35:59     hide bbsi
1 2 3 4 5 6 7 8 9 10 下一页