随便看看 - 代码贴

[VB.net]飞车BP加载

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(ve(0)) = False
                If Not b Then
......................

阅读全部 | 王宇577 贴于 2022年3月19日 07:57 hide bbsi

[VB.net]飞车BP窗口

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年3月19日 07:55 hide bbsi

[VB.net]窗口类

Option Explicit
Class Window_Class
    Private PostMessage, SendMessage, KMMessage
    Private EnumS, Sleep
    Public Property Let Delay(iTime) '设置LeftClick KeyPress间隔
        Sleep = iTime
    End Property
    Public Property Let Async(IsAsync) '设置鼠标键盘是否异步
        If CBool(IsAsync) Then KMMessage = PostMessage Else KMMessage = SendMessage
    End Property
    Public Function GetText(ByVal hWnd)
        Dim pszText
......................

阅读全部 | 王宇577 贴于 2022年3月19日 07:54 hide bbsi

学VB.NET"

Module Program
Sub Main(args As String())
Console.WriteLine("我在编程中国学VB.NET")
Console.WriteLine()

'练习一下循环的使用
For i As Integer = 1 To 20
Console.WriteLine("我爱编程中国 {0} 次", i)
Next

Console.Write(vbLf & vbLf & "绘制一个心形图案：")

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

阅读全部 | kuankuan 贴于 2022年1月11日 11:16 hide bbsi

[VB.net]BP

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年12月6日 14:44 hide bbsi

[VB.net]白嫖Main

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

阅读全部 | angelfly 贴于 2021年7月22日 16:30 hide bbsi

[VB.net]火线Main

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

阅读全部 | angelfly 贴于 2021年7月22日 16:29 hide bbsi

[VB.net]飞车火线追击加载

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(ve(0)) = False
                If Not b Then
......................

阅读全部 | angelfly 贴于 2021年5月5日 13:33 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 DisablePowerSave
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Menu = Control.Menu()
        Set Form = Api.NewForm()
        With Form
            Form.Caption = "软件定制337855632"
......................

阅读全部 | angelfly 贴于 2021年5月5日 13:27 hide bbsi

[VB.net]飞车火线追击功能

Option Explicit
' By音符，QQ：337855632 Time:2020-03-17 功能定制：20元起
Const C_GameWith = 800
Const C_GameHeight = 600
Const C_GameSmallWith = 240
Const C_GameSmallHeight = 180
'黑带 22 28 （50 65）
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_HX"
Function CmpMutlColor(Args, Sleep)
Dim i
......................

阅读全部 | angelfly 贴于 2021年5月5日 13:26 hide bbsi