应用程序域编程

Imports System.AppDomain
Imports System.Reflection
Module Module1

    Sub Main()
        Dim _domain As AppDomain = AppDomain.CurrentDomain()
        Dim _assemblys() As Assembly = _domain.GetAssemblies()
        For Each a As Assembly In _assemblys
            Console.WriteLine("{0}", a.FullName)
        Next
        'Console.Read()
        Console.WriteLine("ThreadID:{0}", AppDomain.GetCurrentThreadId.ToString())
        Console.Read()

    End Sub

End Module