Back to Top

ぷろぐらむノート

Daily Archives: 2016年12月14日

VB.NET ping送信

Ping送信には、方法がいくつかあります。その一部を記載します。

・System.Net.NetworkInformationをインポートしておきます。

My.Computer.Network.Pingメソッドを使用する方法

If My.Computer.Network.Ping("yahoo.com") Then
    MessageBox.Show("Pingに成功")
Else
    MessageBox.Show("Pingに失敗")
End If

 

Pingクラスを使用する方法

'Pingオブジェクトを作成
Using ping As New System.Net.NetworkInformation.Ping()
    'Pingを送信し結果を取得する
    Dim reply As System.Net.NetworkInformation.PingReply = ping.Send("yahoo.com")

    If reply.Status = System.Net.NetworkInformation.IPStatus.Success Then
        MessageBox.Show(String.Format("PingReply {0}:bytes={1} time={2}ms",
                reply.Address, reply.Buffer.Length, reply.RoundtripTime))
    Else
        MessageBox.Show(String.Format("Ping送信に失敗。({0})", reply.Status))
    End If
End Using

・IPStatus列挙体

 

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