Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
创新互联建站专注为客户提供全方位的互联网综合服务,包含不限于成都做网站、网站设计、浪卡子网络推广、小程序设计、浪卡子网络营销、浪卡子企业策划、浪卡子品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联建站为所有大学生创业者提供浪卡子建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
Dim UserID As String = Environment.GetEnvironmentVariable("USERNAME") '获取用户名
MsgBox(UserID)
End Sub
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'计算机名称
s = String(128, Chr(0))
GetUserName s, Len(s)
s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))
sMC = s‘当前用户名称
End Sub
'用这种方法在远程获得再发回本机就可以吧
'取计算机型号暂时不会
建立一个模块,在其中定义全局变量
Public a as string
public b as string
然后在注册,登陆界面分别引用就好了
问题不算很清楚,你要做的是单机单用户程序还是网络多用户程序?
可以建一个全局变量,当用户登录的时候你肯定是要比对数据库信息的,登录成功的时候就把用户名传到该全局变量里就行了。
用Environment类中的GetEnvironmentVariable方法。
保存用户名的环境变量是USERNAME。
比如
string username=Environment.GetEnvironmentVariable("USERNAME")