最新下载
热门教程
- 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)
相关文章
- 《塞尔达传说王国之泪》海利亚盾刷新耐久方法 海利亚盾怎么刷新耐久? 05-03
- 崩坏星穹铁道托帕突破材料一览 05-03
- TokenPocket钱包苹果版 05-03
- kdpay钱包app官网下载安卓版 05-03
- MGC钱包下载2024最新版 05-03
- 黑币钱包中文版 05-03