打印

VB显示计算机名及更改计算机名

本主题由王懿于 2008-5-23 22:45 加入精华

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 418
精华: 6
积分: 2893
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 91 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

1^# 大中小发表于 2008-5-23 21:10 只看该作者

VB显示计算机名及更改计算机名

程序说明: 这个程序很简单,大家自己看吧，注释都可以省略了
计算机名就是你打开控制面板-系统-网络标识-完整的计算机名称

Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()
Dim Name As String, Length As Long

Length = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
Label1.Caption = Name

End Sub
我写好了：
可以下载编好的代码及源程序。

[ 本帖最后由王懿于 2008-5-23 21:57 编辑 ]

附件: 您所在的用户组无法下载或查看附件

本帖最近评分记录

替身学分 +30 原创内容 2008-5-23 23:49
替身威望 +10 原创内容 2008-5-23 23:49

每个人都有自己的优点，成功的人扬长避短，失败的人"不识庐山真面目，只缘生在此山中"！

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 418
精华: 6
积分: 2893
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 91 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

2^# 大中小发表于 2008-5-23 21:16 只看该作者

还有一种更简单方法获取计算机名：Label1.Caption = VBA.Environ("computername")
此方法不需要声明函数，一句话搞定。
真是：浓缩的都是精华啊！

每个人都有自己的优点，成功的人扬长避短，失败的人"不识庐山真面目，只缘生在此山中"！

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 418
精华: 6
积分: 2893
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 91 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

3^# 大中小发表于 2008-5-23 21:59 只看该作者

更改计算机名

查了计算机名不过瘾，教你修改计算机名吧。
Private Declare Function SetComputerNameEx Lib "kernel32" Alias "SetComputerNameExA" (ByVal itype As Long, ByVal lpComputerName As String) As Long

Private Sub Command1_Click()
Dim name As Integer
name = SetComputerNameEx(5, "更改的计算机名")
End Sub