王宇577的代码贴 - 代码贴

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

阅读全部 | 2022年7月9日 00:11

[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:")
......................

阅读全部 | 2022年7月8日 15:07

[C语言]1111

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:")
......................

阅读全部 | 2022年7月8日 10:08

[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:")
......................

阅读全部 | 2022年7月8日 10:01

[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:")
......................

阅读全部 | 2022年7月8日 10:00

[VB.net]ui新bp

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:")
......................

阅读全部 | 2022年7月8日 10:00

[C语言]ok

#include <stdio.h>
#include <math.h>
int main() {
float a=1;
float b=1;
float n=1;
do {十多分
    b=b+2*a;
    a=b-a;
    n=n-1
}
while (abs(b*b/a*a-2)>=0.01){
......................

阅读全部 | 2022年6月23日 15:31

[Python]ゐ丶僷ヂ諾贴于 2022-05-22 13:29:48

!DOCTYPE html>
<head>
    <title></title>
    <link rel="stylesheet" href="css/index.css">
</head>
<body>
    <div class="home">
        <div class="content">
            <div class="stars"></div>
            <img class="bgc" src="https://img.lccyj.ltd/img/tongnian.JPG" width="100%" alt="">
            <h3 class="title">欢迎来到我222333的个人网站</h3>
            <h3 class="titles">我时常回到童年，用一片童心思考问题，很多烦恼的问题就变得易解。</h3>
......................

阅读全部 | 2022年5月31日 18:50

[C语言]显示和输入学生老师的信息

#include<iostream>
#include<string>
using namespace std;
class Person
{
    public:
        void Setall()
        {
             cin>>number>>name>>sex;
        }
        void Showall()
        {
......................

阅读全部 | 2022年5月31日 18:48

[C语言]百金百鸡

#include <stdio.h>
void main()
{
int a,b,c;
for(a=0;a<=20;a++)
for(b=0;b<=33;b++)
for(c=0;c<=100;c++)
{if((a*5+b*3+c/3==100)&&(a+b+c==100))
printf("a=%2d,b=%2d,c=%2d\n",a,b,c);}
}

123456

阅读全部 | 2022年5月31日 18:47