建立一個模塊,在其中定義全局變量
創(chuàng)新互聯(lián)公司主營岳西網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,重慶APP開發(fā),岳西h5微信小程序開發(fā)搭建,岳西網(wǎng)站營銷推廣歡迎岳西等地區(qū)企業(yè)咨詢
Public a as string
public b as string
然后在注冊,登陸界面分別引用就好了
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?UserID?As?String?=?Environment.GetEnvironmentVariable("USERNAME")?'獲取用戶名?
MsgBox(UserID)
End?Sub
用Environment類中的GetEnvironmentVariable方法。
保存用戶名的環(huán)境變量是USERNAME。
比如
string username=Environment.GetEnvironmentVariable("USERNAME")
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub GetName()
Dim sJM As String
Dim sMC As String
Dim sIP As String
Dim s As String
s = String(128, Chr(0))
GetComputerName s, Len(s)
s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))
sJM = s'計(jì)算機(jī)名稱
s = String(128, Chr(0))
GetUserName s, Len(s)
s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))
sMC = s‘當(dāng)前用戶名稱
End Sub
'用這種方法在遠(yuǎn)程獲得再發(fā)回本機(jī)就可以吧
'取計(jì)算機(jī)型號暫時不會
當(dāng)前題目:vb.net獲取用戶名 vbnet獲取當(dāng)前窗口句柄
網(wǎng)站URL:http://redsoil1982.com.cn/article14/dddopge.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站制作、網(wǎng)站營銷、網(wǎng)站內(nèi)鏈、網(wǎng)站收錄、移動網(wǎng)站建設(shè)、電子商務(wù)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)