Back to Top

ぷろぐらむノート

Monthly Archives: 12月 2016

VB.NET IPアドレスを取得する

ホスト名からＩＰアドレスおよび、ＩＰアドレスからホスト名を取得する方法を記載します。

IPアドレスを取得するには、（System.Net）Dnsクラスを使用します。

・System.Netをインポートする

ローカルコンピュータのホスト名を取得する

Dim hostName As String = Dns.GetHostName()

 

GetHostAddressesで　ホスト名からIPアドレスを取得する

Dim hostName As String = "yahoo.com"

'ホスト名からIPアドレスを取得する
Dim adrList As IPAddress() = Dns.GetHostAddresses(hostName)

For Each address As IPAddress In adrList
    Console.WriteLine(address.ToString())
Next

 

GetHostEntryで　ホスト名からIPアドレスを取得する

Dim hostName As String = "yahoo.com"

'ホスト名からIPアドレスを取得する
Dim iphost As IPHostEntry = Dns.GetHostEntry(hostName)

'IPアドレスのリストを取得する
Dim adrList As IPAddress() = iphost.AddressList

For Each address As IPAddress In adrList
    Console.WriteLine(address.ToString())
Next

 

IPアドレスからホスト名を取得する

Dim ipAddr As String = "98.139.183.24"

'IPアドレスからホスト名を取得する
Dim iphost As IPHostEntry = Dns.GetHostEntry(ipAddr)

Console.WriteLine(iphost.HostName)

 

VB.NET マウスカーソル

マウスカーソルの位置および、形状の取得・変更の方法を記載します。

画面座標のマウスポインタの位置を取得する

Dim spos As System.Drawing.Point = System.Windows.Forms.Cursor.Position

 

フォーム上のマウスポインタの位置を取得する

Dim spos As System.Drawing.Point = System.Windows.Forms.Cursor.Position

'画面座標をクライアント座標に変換する
Dim cpos As System.Drawing.Point = Me.PointToClient(spos)

・画面座標をクライアント座標に変換することで取得します。

 

フォーム上のマウスポインタを移動する

'クライアント座標を画面座標に変換する
Dim pos As System.Drawing.Point = Me.PointToScreen(New System.Drawing.Point(10, 10))

'マウスポインタの位置を設定
System.Windows.Forms.Cursor.Position = pos

 

全てのフォーム及びコントロール上のカーソルを変更

Cursor.Current = Cursors.WaitCursor       '形状変更

System.Threading.Thread.Sleep(10000)      '停止する

Cursor.Current = Cursors.Default          '元に戻す

・Cursorsクラス

 

特定のフォーム及びコントロール上のカーソルを変更

Me.Cursor = Cursors.WaitCursor

System.Threading.Thread.Sleep(10000)

Me.Cursor = Cursors.Default