Question

VB6.0怎么获取电脑的名字？

点击按钮一获取电脑名字显示到text1 系统是XP装C盘 请问是怎么获取的？ 或者是一个什么原理， 希望能得到工程 谢谢！ 回答正确的 我加分 我现在很怕没人回答浪费了

Answer 1

【方法一——最简单】在 工程菜单的部件里找到 Microsoft Winsock Control 然后添加。。它就显示在工具栏上winsock1.LocalHostName 【方法二——最正统】Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetComputer() As String
Dim strCompName As String
Dim intHandle As IntegerstrCompName = String(256, " ")
intHandle = GetComputerName(strCompName, 256)
strCompName = Left(strCompName, InStr(1, strCompName, Chr(0)) - 1)
GetComputer = Trim(strCompName)
End Function然后调用这个函数即可

Answer 2

把计算机名称显示在文本框中的代码如下：text1.text=Envirion$("ComputerName")

Answer 3

按钮点击事件中写上
Text1.Text =VBA.environ("computername")