m1.bas

来自「1）服务器控制客户端程序 2）远程访问控制 3）提供服务器端、客户端程序」· BAS 代码 · 共 18 行

Attribute VB_Name = "M1"
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public xtxx As String
Public sendxx As String
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Function get_computername() As String
Dim name As String
Dim length As Long
length = 255
name = String(length, 0)
GetComputerName name, length
name = Left(name, length)
get_computername = name

End Function