最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
用Vb.net获得计算机名称和及所有的IP地址。
时间:2022-07-02 12:04:53 编辑:袖梨 来源:一聚教程网
此乃本贴精华所在:
Private Sub GetIP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Address() As System.Net.IPAddress
Dim i As Integer
Address = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList
TextBox1.Text = System.Net.Dns.GetHostName().ToString()
For i = 0 To UBound(Address)
TextBox2.Text = TextBox2.Text & Chr(13) & Address(i).ToString()
Next
End Sub
下面是GetIP.vb的所有代码
Public Class GetIP
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
Private Sub GetIP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Address() As System.Net.IPAddress
Dim i As Integer
Address = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList
TextBox1.Text = System.Net.Dns.GetHostName().ToString()
For i = 0 To UBound(Address)
TextBox2.Text = TextBox2.Text & Chr(13) & Address(i).ToString()
Next
End Sub
下面是GetIP.vb的所有代码
Public Class GetIP
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
相关文章
- 《辐射4》q键使用介绍 04-26
- 《辐射4》人物介绍 04-26
- 《下一站江湖2》风卷残云获得方法 04-26
- 《The Star Named EOS未晓星程》配置要求介绍 04-26
- 《辐射4》设置中文方法 04-26
- 《辐射4》88号避难所终端机一直初始化解决办法 04-26