VB获得主机名和IP地址

VB获得主机名和IP地址

今天,我们将制作一个能获得计算机名称和本地IP地址的应用程序。程序运行后,可以点击“更改主机名”按钮,在弹出的对话框中输入要修改的名称,确定后重新启动计算机即可实现改变。程序运行结果如图所示。

运行结果

技术要点

获得/更改计算机名称

获得本地IP地址

实现过程

■ 新建项目

打开Visual http://www.wendangwang.com,选择“新建项目”,在项目类型窗口中选择“Visual Basic项目”,在模板窗口中选择“Windows应用程序”,在名称域中输入“GetComputerIP”,然后选择保存路径。单击“确认”。

■ 添加控件

向当前窗体上添加四个Label控件,一个Button控件和一个AxWinSocket控件(AxWinSocket控件需要从自定义工具箱中添加,此控件不属于标准控件,添加方法请见前面实例)。

■ 设置属性

将Button控件和两个Label控件的Text属性改为和界面一致即可。

■ 添加代码

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

' 得到计算机名称还可以使用GetComputerName()API函数

Label2.Text = UCase(AxWinsock1.LocalHostName)

' 得到本机的IP地址

Label4.Text = AxWinsock1.LocalIP

End Sub

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"

(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA"

(ByVal lpComputerName As String) As Long

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

VB获得主机名和IP地址

Dim chgcompuname As String, res As Long

Word文档免费下载Word文档免费下载:VB获得主机名和IP地址 (共2页,当前第1页)

VB获得主机名和IP地址相关文档

最新文档

返回顶部