在模块中定义API:
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
使用时用以下语句:
Dim str1 As String
str1 = Space(20)
Call GetComputerName(str1, 21)
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
使用时用以下语句:
Dim str1 As String
str1 = Space(20)
Call GetComputerName(str1, 21)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货