VB如何取得计算机名
程序说明:计算机名就是你打开 控制面板-系统-网络标识-完整的计算机名称
程序代码:
[code]Form1
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim Name As String, Length As Long
Length = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
Label1.Caption = Name
End Sub
Private Sub Form_Load()
End Sub[/code] 按猪猪这样做
在运行的时候 会提示 实时错误"424",找不到对象
好像是label1.Caption=Name错误
Name是关键字
不可以用关键字作变量名的 拜托 NAME是个变量啊
页:
[1]