机房收费系统之获得当前计算机名称

最新推荐文章于 2021-07-08 10:33:51 发布

屈文哲

最新推荐文章于 2021-07-08 10:33:51 发布

阅读量958

点赞数

分类专栏：【编程语言】

本文链接：https://blog.csdn.net/quwenzhe/article/details/10137509

版权

【编程语言】专栏收录该内容

61 篇文章 1 订阅

订阅专栏

'定义模块级变量
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()

    Dim lngLen As Long
    Dim strSQL As String
    Dim strMsg As String
    Dim strLevel As String
    Dim rstMrc As ADODB.Recordset

    '创建一个缓存区
    lngLen = MAX_COMPUTERNAME_LENGTH + 1
    strComputerName = String(lngLen, "X")

    '得到当前计算机的名称
    GetComputerName strComputerName, lngLen

    '对得到的计算机名称进行修饰
    strComputerName = Left(strComputerName, lngLen)
	
    'strComputerName字符串即为最终值

End Sub