Patrick Steele's .NET Blog

This sample enumerates all of the installed network adapters to reveal such information as MAC address, IP Address, IP Subnet, etc...

'
' base on C# code originally posted by Willy Denoyette
' http://groups.google.com/groups?selm=eeeD%24NrxAHA.2188%40tkmsftngp02
'
Option Strict On
Option Explicit On

Imports System
Imports System.Management

Public Class ConsoleApp

   Shared Sub Main
      Network.EnumNetworkAdapters()
   End Sub
   
End Class
   
Public Class Network
   Public Shared Sub EnumNetworkAdapters()
      Dim query as ManagementObjectSearcher = new ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
      Dim queryCollection as ManagementObjectCollection  = query.Get()
      Dim mo as ManagementObject
      Dim s as String
      
      for each mo in queryCollection
           Console.WriteLine( "'{0}'", mo.ClassPath)
           Console.WriteLine( "'{0}'", mo.Options)
           Console.WriteLine( "Index   '{0}'", mo("Index"))
           Console.WriteLine( "Description   '{0}'", mo("Description"))
           Console.WriteLine( "MacAddress   '{0}'", mo("MacAddress"))
           
           if(CType(mo("IPEnabled"), Boolean) = true)
               dim addresses() as string = CType(mo("IPAddress"), String())
               dim subnets() as string = CType(mo("IPSubnet"), String())
               
               Console.WriteLine( "DNS Host   '{0}'", mo("DNSHostName"))
               Console.WriteLine( "DNS Domain   '{0}'", mo("DNSDomain"))
               
               for each s in addresses
                   Console.WriteLine( "IP Address   '{0}'", s)
               next
               
               for each s in subnets
                   Console.WriteLine( "IP Subnet   '{0}'", s)
               next
           end if
      next
   End Sub
End Class

Something I just noticed: If you've got a bunch of subscriptions in RSS Bandit and want to play around with SharpReader, the OPML format exported by RSS Bandit is not immediately usable by SharpReader.  I'm not up on the OPML format so I don't know which program is at fault, but there's a simple fix:

When run, you should get the following output in the console window:

<INPUT style="HEIGHT: 200px; BACKGROUND-COLOR: red">

Using a VB.NET object in an ASP page can be accomplished with COM-Interop. While the whole interop mechanism can be complex depending on what you want to do, below is a basic example that should get you started.

1. Create a file called Class1.vb and placed this code in it:

Public Class SampleClass

    Public Function GetMyName() As String

        Return "This is from the .NET component"

    End Function

End Class

sn -k demokey.snk

vbc /t:library /keyfile:demokey.snk class1.vb

gacutil -i class1.dll

regasm /tlb:class1.tlb class1.dll

Now that's I've dumped Radio, I'm looking for a news aggregator.  I worked a little with RSS Bandit this morning.  A nice little app.  A few things I'd like to see:

If you need to do some URL encoding in a Windows Forms app, the HttpUtility class has a shared (static) method to URL encode a string. Below is a sample.

NOTE: The HttpUtility class also contains a shared (static) HTML encoder too!

Option Strict On
Option Explicit On

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Web

Public Class WinApp
    Inherits System.Windows.Forms.Form

    private m_url as TextBox

    <STAThread()> _
    Shared Sub Main
        Application.Run(new WinApp())
    End Sub

    Public Sub New
        Me.Text = "URL Test"

        m_url = New TextBox()
        m_url.Size = new Size(280,30)
        m_url.Location = new point (5,5)

        Controls.Add(m_url)
        m_url.Text = "http://www.microsoft.com?value="; & HttpUtility.UrlEncode("encode me please")
    End Sub

End Class

Need to get RTF text off the clipboard? Use the IDataObject interface to see if there is RTF data on the clipboard. In the sample below, copy some RTF data onto the clipboard from another application then simply click anywhere on this form to see the actual RTF string data.

Option Strict On
Option Explicit On

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic

Public Class Form1
    Inherits Form

    Public Sub New()
        Me.Text = "Clipboard Test"
        AddHandler Me.Click, AddressOf MouseClick
    End Sub

    Public Sub MouseClick(byval sender As object, byval e As EventArgs)
        If Not Clipboard.GetDataObject() Is Nothing
            Dim dobj As IDataObject = Clipboard.GetDataObject()
            If dobj.GetDataPresent(DataFormats.RTF) then
                Dim rtfobj As Object = dobj.GetData(DataFormats.RTF)
                MsgBox(rtfobj.ToString())
            End if
        End if
    End Sub

    <STAThread()> _
    Shared Sub Main()
        Application.Run(New Form1())
    End Sub
End Class

Need to detect a click on the caption bar? You can easily intercept the required windows message (WM_NCLBUTTONDOWN).

Option Strict On
Option Explicit On

Imports System
Imports System.Windows.Forms
Imports System.Drawing

Public Class Form1
    Inherits Form

    Private ReadOnly WM_NCLBUTTONDOWN As Integer = &HA1

    Public Sub New()
        Me.Text = "Window Caption"
    End Sub

    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.msg = WM_NCLBUTTONDOWN Then
            Console.WriteLine("caption click...")
        End if
        MyBase.WndProc(m)
    End Sub

    <STAThread()> _
    Shared Sub Main()
        Application.Run(New Form1())
    End Sub
End Class