首页    新闻    小组    交易    人才    下载    博客    代码贴    在线编程    论坛
代码贴随便看看全站
//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);
......................
阅读全部 | 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
'黑带   16  20
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_BP"
Function CmpMutlColor(Args, Sleep)
    Dim i
......................
阅读全部 | angelfly 贴于 2021-04-13 19:16:24     hide bbsi
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()
......................
阅读全部 | 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.getmid = function (str, lstr, rstr, start, mode) {
    // '1 不区分大小写
    // '2 先查右再左
    // '4 后往前查
    mode = mode || 0;
    start = (mode & 4 && !start) ? mstr.length : start || 0;
    if (start < 0) start = start + mstr.length;
    if (mode & 1) {
      var mlstr = lstr.toLowerCase();
      var mrstr = rstr.toLowerCase();
      var mstr = str.toLowerCase();
......................
阅读全部 | angelfly 贴于 2021-03-25 21:35:59     hide bbsi
Option Explicit
' By音符,QQ:337855632 Time:2020-03-17 功能定制:20元起
Class File_Class
    Private WritePrivateProfileString, GetPrivateProfileString
    Public Function ReadINI(ByVal ApplicationName, ByVal KeyName, ByVal IniPath, ByVal Default)
        Dim retstr
        retstr = Space(255)
        ReadINI = left(retstr, Api.ECall(GetPrivateProfileString, False, ApplicationName, KeyName, Default, retstr, 255, IniPath))
    End Function
    Public Function WriteINI(ByVal ApplicationName, ByVal KeyName, ByVal Str, ByVal IniPath)
        Call Api.ECall(WritePrivateProfileString, False, ApplicationName, KeyName, CStr(Str), IniPath)
    End Function
......................
阅读全部 | angelfly 贴于 2021-03-25 17:35:44     hide bbsi
上一页 3 4 5 6 7 8 9 10 11 12 下一页