10 lines
204 B
QBasic
10 lines
204 B
QBasic
Attribute VB_Name = "Module1"
|
|
'
|
|
'Get local computer name
|
|
'
|
|
Declare Function GetComputerNameA Lib "kernel32" (ByVal compname As String, maxlen As Long) As Boolean
|
|
Public dDirectMode As Integer
|
|
|
|
|
|
|