| 程序说明: 这个程序比较简单,大家自己看吧 计算机名就是你打开 控制面板-系统-网络标识-完整的计算机名称 程序代码: 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 |
闂傚倷娴囬妴鈧柛瀣崌閺岀喖顢涘⿰鍐炬毉濡炪們鍎查崹鍧楀蓟閻旇 鍋撳☉娅亝鎱ㄩ崶褉鏀芥い鏇炴鐎氾拷闂傚倷绀侀幖顐ゆ偖椤愶箑纾块柛鎰嚋閼板潡鏌涘☉娆愮稇缂備讲鏅犻弻鐔碱敍濠婂喚鏆銈冨劵閹凤拷>>
正在阅读：VB基础学习:如何取得计算机名VB基础学习:如何取得计算机名
2004-02-16 10:10
出处：CSDN
责任编辑：linjixiong
