扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
可以参考这两个程序:
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领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者