Module Program
Sub Main(args As String())
Console.WriteLine(2+3)
End Sub End Module
阅读全部
|
zxczxczxc123
贴于 2023年10月25日 15:37
hide
bbsi
Module Program
Sub Main(args As String())
Console.WriteLine(2+3)
End Sub End Module
阅读全部
|
zxczxczxc123
贴于 2023年10月25日 15:37
hide
bbsi
Module Program
Sub Main(args As String())
Console.WriteLine(2+3)
End Sub End Module
阅读全部
|
耐心秀
贴于 2023年10月15日 12:20
hide
bbsi
' Module paramByVal
' Sub swap(x As Integer, y As Integer)
' Dim temp As Integer
' temp = x
' x = y
' y = temp
' End Sub
' Sub Main(args As String())
' Dim a As Integer = 100, b As Integer = 200
' Console.WriteLine($"Before swap,the value of a is {a},the value of b is {b}")
' swap(a,b)
......................
阅读全部
|
溯光
贴于 2023年3月20日 11:44
hide
bbsi
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月15日 02:49
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()
......................
阅读全部
|
王宇577
贴于 2023年1月15日 02:42
hide
bbsi
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
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
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