Category: vb.net

Simple wait routine in VB.NET

September 23, 2013 /

Public Class Form1

  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
HoldYourpants(2) ‘ wait 2 seconds
HoldYourWater(2) ‘ more efficient code

  End Sub

  Public Sub HoldYourPants(ByVal PauseTime As Integer)
    Dim Start As Double
    Start = Microsoft.VisualBasic.Timer ‘ Set start time.

    Do While Microsoft.VisualBasic.Timer < Start + PauseTime
      Application.DoEvents()
    Loop
  End Sub

  Public Sub HoldYourWater(ByVal Seconds As Integer)
    System.Threading.Thread.Sleep(Seconds * 1000)
  End Sub

End Class

Read MAC Addresses in VB.NET

September 13, 2013 /

The following code is a working example for determining the MAC address of your network card.

Imports System.Net.NetworkInformation

Public Class Form1
  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    MessageBox.Show(getMacAddress)
    End
  End Sub

  Function getMacAddress()
    Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()
    Return nics(1).GetPhysicalAddress.ToString
  End Function

End Class