随便看看 - 代码贴

[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 贴于 2022年7月9日 00:15 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 贴于 2022年7月9日 00:11 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 贴于 2022年7月8日 15:07 hide bbsi

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

阅读全部 | 王宇577 贴于 2022年7月8日 10:08 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 贴于 2022年7月8日 10:01 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 贴于 2022年7月8日 10:00 hide bbsi

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

阅读全部 | 王宇577 贴于 2022年7月8日 10:00 hide bbsi

[C语言]2

// #include<stdio.h>
// int main()
// {
// int i,j,result;
// for(i=1;i<10;i++)
// {
// for(j=1;j<10;j++)
// {
// result=i*j;
// printf("%d*%d=%-3d",i,j,result);
// }
// printf("\n");
......................

阅读全部 | dzyyyy 贴于 2022年7月7日 10:01 hide bbsi

[C语言]2

#include<stdio.h>
int main()
{
int i,j,result;
for(i=1;i<10;i++)
{
for(j=1;j<10;j++)
{
result=i*j;
printf("%d*%d=%-3d",i,j,result);
}
printf("\n");
......................

阅读全部 | dzyyyy 贴于 2022年7月7日 09:49 hide bbsi

[C语言]1

#include <stdio.h>

int main() {
printf("我在编程中国学C语言\n\n");

// 练习一下循环的使用
int i;
for (i=1; i<=20; i++) {
printf("我爱编程中国 %d 次\n", i);
}

printf("\n\n绘制一个心形图案：");
......................

阅读全部 | dzyyyy 贴于 2022年7月7日 09:46 hide bbsi