vb获得 【本机IP地址】和【本机电脑名】

vb获得 【本机IP地址】和【本机电脑名】


本机IP地址 = Winsock1.LocalIP
本机电脑名 = Winsock1.LocalHostName
'要在窗体上添加网络控件【Winsock】【此控件文件名为：MSWINSCK.OCX】
========如下具体操作===========================================
'要在窗体上添加网络控件【Winsock】【此控件文件名为：MSWINSCK.OCX】
'创建两个显示控件如：Text1、Text2
'创建一个启动按键如：【Command1】
'代码如下：
Private Sub Command1_Click()
Text1 = Winsock1.LocalIP
Text2 = Winsock1.LocalHostName
End Sub


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/