【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“netip.frm”一文，供大家参考学习
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1
Caption = "本机IP和计算机名"
ClientHeight = 2775
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 2775
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton CmdExit
Caption = "退 出"
Height = 495
Left = 2453
TabIndex = 2
Top = 2160
Width = 1095
End
Begin VB.CommandButton CmdOK
Caption = "确 定"
Height = 495
Left = 960
TabIndex = 1
Top = 2160
Width = 1095
End
Begin MSWinsockLib.Winsock Winsock1
Left = 360
Top = 2160
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.ListBox List1
Height = 1320
Left = 600
TabIndex = 0
Top = 360
Width = 3735
End
Begin VB.Frame Frame1
Caption = "显示计算机名与IP地址"
Height = 1935
Left = 120
TabIndex = 3
Top = 0
Width = 4455
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'退出程序
Private Sub CmdExit_Click()
Unload Me
End Sub
'调用Winsock控件以获取相应信息
Private Sub CmdOK_Click()
List1.AddItem "计算机名:" & Winsock1.LocalHostName
List1.AddItem vbCrLf
List1.AddItem "计算机IP地址:" & Winsock1.LocalIP
End Sub
上一篇：
MyIM.frm
下一篇：
关于企业电子商务网站的平安控制
2013-9-1
