随便看看 - 代码贴

[VB.net]ui新

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

阅读全部 | 王宇577 贴于 2023年1月15日 02:42 hide bbsi

[VB.net]飞车BP功能新

Option Explicit
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
    For i = 0 To UBound(Args)
......................

阅读全部 | 王宇577 贴于 2023年1月15日 02:35 hide bbsi

[VB.net]白Main新1

Option Explicit
Dim JScript, CString, File, Control, System, NetWork  '定义线程级变量       '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
    If Globals("App").PrevInstance Then
        Dim ws, WMI, Process
        Set ws = CreateObject("wscript.shell")
        ws.SendKeys "{HOME}"
        Set WMI = GetObject("WinMgmts:")
......................

阅读全部 | 王宇577 贴于 2023年1月12日 14:42 hide bbsi

[VB.net]ui新

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

阅读全部 | 王宇577 贴于 2023年1月12日 14:40 hide bbsi

[VB.net]飞车BP功能新

Option Explicit
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
    For i = 0 To UBound(Args)
......................

阅读全部 | 王宇577 贴于 2023年1月12日 14:33 hide bbsi

[C语言]高效佩波纳契数列

#include <stdio.h>

int fib(int n)
{
    int a=1;
    int b=1;
    int c=0;
    while(n>2)
    {
        c=a+b;
        a=b;
        b=c;
......................

阅读全部 | 墨～尘贴于 2023年1月12日 01:09 hide bbsi

[C语言]佩波纳契数列

#include <stdio.h>

int fib(int n)
{
    if(n <= 2)
    {
        return 1;
    }
    else
        return fib(n-1)+fib(n-2);
}

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

阅读全部 | 墨～尘贴于 2023年1月12日 00:58 hide bbsi

[C语言]阶乘函数迭代

#include <stdio.h>

int fac1(int n)
{
    int i = 0;
    int ret  = 1;
    for(i=1;i<=n;i++)
    {
        ret *= i;
    }
    return ret;
}
......................

阅读全部 | 墨～尘贴于 2023年1月11日 00:33 hide bbsi

[C语言]递归字符串长度2

#include <stdio.h>

int my_strlen(char* str)
{
    if(*str != '\0')
    {
        return 1+my_strlen(str+1);
    }
    else
        return 0;
}

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

阅读全部 | 墨～尘贴于 2023年1月9日 14:08 hide bbsi

[C语言]递归字符串长度

#include <stdio.h>

int my_strlen(char* str)
{
    int count = 0;
    while(*str != '\0')
    {
        count++;
        str++;
    }
    return count;
}
......................

阅读全部 | 墨～尘贴于 2023年1月9日 14:06 hide bbsi