7 lines
270 B
QBasic
7 lines
270 B
QBasic
Attribute VB_Name = "Module1"
|
|
Public Declare Function GetComputerObjectNameW Lib "secur32" (format As Integer, ByVal name As String, ByVal size As Long) As Boolean
|
|
|
|
|
|
Declare Function GetComputerNameA Lib "Kernel32" (ByVal compname As String, maxlen As Long) As Boolean
|
|
|