扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
可以参考这两个程序:
1。设置计算机名称:
Declare Function SetComputerName Lib"kernel32.dll" Alias"SetComputerNameA"(Byval ipcomputername As String)As Long
ipcomputername="my"
temp=SetComputerName(ipcomputername)
2、利用程序获取计算机名称及登陆用户名:
Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (Byval lpBuffer As String,nSize As Integer)As Long
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA"(Byval t$,Byval ttt$,Byval siz&)As Long
Dim lpBuffer As String
Dim nSize As Integer
nSize=48
Call GetComputerName(lpBuffer,nSize)
Print tt$
Dim ttt As String
Dim t As String
t=""
Call WNetGetUser(0,ttt,8)
Print ttt
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。