可用分押宝游戏火热进行中...	专题改版：Java Web 专题

如何取得本機名稱

楼主simoncheung（風中巖石）2005-08-04 20:24:34 在 VB / 基础类提问

如題！謝謝。问题点数：20、回复次数：16Top

1 楼londywolf（小狼）回复于 2005-08-04 21:10:29 得分 0

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long 'the api of get your computer's name

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
Top

2 楼jxgzay（jxgzay）回复于 2005-08-04 23:55:19 得分 0

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim l As Long
Dim myc As String
l = 255
myc = String(255, Chr(0))
x = GetComputerName(myc, l)
MsgBox LeftB(myc, l)
End Sub
Top

3 楼VBDN（ PowerBASIC.CN ）回复于 2005-08-05 00:54:11 得分 5

只有一句：
Environ("ComputerName") 'ComputerName不分大小写
事例：
Private Sub Form_Load()
Debug.Print Environ("ComputerName")
End Sub
Top

4 楼caozhy（cfx）回复于 2005-08-05 02:04:26 得分 5

Environ("ComputerName")
Mark!Top

5 楼jxgzay（jxgzay）回复于 2005-08-05 09:02:24 得分 0

Environ("ComputerName") 正确
Top

6 楼jxgzay（jxgzay）回复于 2005-08-05 09:07:59 得分 5

还有：Winsock控件
Winsock1.LocalHostName （机器名）
Winsock1.LocalIP （IP）Top

7 楼optop（爱琴海）回复于 2005-08-05 09:24:21 得分 0

Option Explicit

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub cmdGetComputerName_Click()
txtComputerName = ComputerName()
txtComputerName.SetFocus
End Sub

Private Function ComputerName() As String
Dim strComputerName As String
Dim lngReturn As Long
Dim lngStrLen As Long

lngStrLen = 255
strComputerName = String(255, " ") & Chr(0)
lngReturn = GetComputerName(strComputerName, lngStrLen)
If lngReturn = 0 Then
ComputerName = ""
Else
ComputerName = Left(strComputerName, lngStrLen)
End If
End FunctionTop

8 楼sdrcxzy（大向）回复于 2005-08-05 09:39:40 得分 0

还是来晚了，呜呜呜呜……
Environ("ComputerName")Top

9 楼simoncheung（風中巖石）回复于 2005-08-05 10:10:42 得分 0

各位高手，可不可以取得登陸名呢？Top

10 楼wxrwan（无奈小飞不耻上问）回复于 2005-08-05 10:25:19 得分 0

我只知道用API,原来还有Environ("ComputerName")
有谁可否给详细的Environ说明Top

11 楼jxgzay（jxgzay）回复于 2005-08-05 12:35:49 得分 0

各位高手，可不可以取得登陸名呢？
---------------------------------

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim l As Long
Dim myc As String
l = 255
myc = String(255, Chr(0))
x = GetUserName(myc, l)

MsgBox Left(myc, l)

End Sub
Top

12 楼VBDN（ PowerBASIC.CN ）回复于 2005-08-06 11:15:03 得分 5

登陆名：Environ("UserName")Top

13 楼VBDN（ PowerBASIC.CN ）回复于 2005-08-06 11:16:51 得分 0

to: wxrwan(小飞)
========================
关于详细的Environ说明:
Dim i As Long
For i = 1 To 35
Debug.Print Environ(i)
Next iTop

14 楼jxgzay（jxgzay）回复于 2005-08-06 13:40:53 得分 0

Environ 函数好，相当与ASP的环境变量
Top

15 楼londywolf（小狼）回复于 2005-08-06 23:06:52 得分 0

这段时间看win32编程比较多，第一反应就是找api，呵呵。有简单的用就不要用api啦^_^Top

16 楼taoheping（红风）回复于 2005-08-06 23:14:34 得分 0

很多...Top