HOW TO:获取执行代码所处环境信息(应用)

Author:水如烟

HOW TO:获取执行代码所处环境信息(小结)

现在做一个方法运行耗时测试类

Imports System.ComponentModel

Namespace uReflection
    Public Class CurrentMethodInfo

        Private gMethodInformation As currentMethodInformation

        Public Sub Input(ByVal methodbase As System.Reflection.MethodBase)
            gMethodInformation = New currentMethodInformation(methodbase)
        End Sub

        Public Sub Input(ByVal stackframe As System.Diagnostics.StackFrame)
            gMethodInformation = New currentMethodInformation(stackframe)
        End Sub

        '下以为测试方法耗时用

        Private gStopwatch As System.Diagnostics.Stopwatch
        Private gIsCheck As Boolean
        Private gUsetime As String
        Public Property CheckRuntime() As Boolean
            Get
                Return gIsCheck
            End Get
            Set(ByVal value As Boolean)
                If value <> gIsCheck Then
                    If value Then
                        gStopwatch = New System.Diagnostics.Stopwatch
                    End If
                    gIsCheck = value
                End If
            End Set
        End Property

        Public Sub Start()
            If CheckRuntime Then gStopwatch.Start()
        End Sub

        Public Sub [Stop]()
            If CheckRuntime Then
                gStopwatch.Stop()
                gUsetime = gStopwatch.Elapsed.ToString
                gStopwatch.Reset()
            End If
        End Sub

        Public Overrides Function ToString() As String
            Dim b As New System.Text.StringBuilder
            b.Append(appInformation.ToString)
            b.Append(gMethodInformation.ToString)
            If CheckRuntime Then
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**    测试用时 :{0}", Me.gUsetime)
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**    测试时间 :{0}", Now.ToString)
                b.Append(System.Environment.NewLine)
            End If
            b.Append(New String("*"c, 80))
            Return b.ToString

        End Function


        Private Class currentMethodInformation
            Private gMethodbase As System.Reflection.MethodBase
            Sub New(ByVal methodbase As System.Reflection.MethodBase)
                gMethodbase = methodbase
            End Sub

            Sub New(ByVal stackFrame As System.Diagnostics.StackFrame)
                gMethodbase = stackFrame.GetMethod
            End Sub

            <Description("程序集名称")> _
            Public ReadOnly Property AssemblyName() As String
                Get
                    Return gMethodbase.DeclaringType.Assembly.GetName.Name
                End Get
            End Property

            <Description("程序集版本")> _
            Public ReadOnly Property AssemblyVersion() As String
                Get
                    Return gMethodbase.DeclaringType.Assembly.GetName.Version.ToString
                End Get
            End Property

            <Description("类名")> _
            Public ReadOnly Property TypeName() As String
                Get
                    Return gMethodbase.DeclaringType.FullName
                End Get
            End Property

            <Description("方法名")> _
            Public ReadOnly Property Name() As String
                Get
                    Return gMethodbase.ToString
                End Get
            End Property

            Public Overloads Function ToString() As String
                Dim b As New System.Text.StringBuilder
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**  程序集名称 :{0}", Me.AssemblyName)
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**  程序集版本 :{0}", Me.AssemblyVersion)
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**        类名 :{0}", Me.TypeName)
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**      方法名 :{0}", Me.Name)
                b.Append(System.Environment.NewLine)
                Return b.ToString
            End Function

        End Class

        Private Class appInformation
            <Description("程序名称")> _
            Public ReadOnly Property Name() As String
                Get
                    Return System.AppDomain.CurrentDomain.SetupInformation.ApplicationName
                End Get
            End Property

            <Description("程序目录")> _
            Public ReadOnly Property Path() As String
                Get
                    Return System.AppDomain.CurrentDomain.SetupInformation.ApplicationBase
                End Get
            End Property

            <Description("配置文件")> _
            Public ReadOnly Property Config() As String
                Get
                    Return System.AppDomain.CurrentDomain.SetupInformation.ConfigurationFile
                End Get
            End Property

            <Description("程序入口")> _
            Public ReadOnly Property entryPoint() As String
                Get
                    Return System.Reflection.Assembly.GetEntryAssembly.EntryPoint.ToString
                End Get
            End Property

            Public Shared Shadows Function ToString() As String
                Dim mInfo As New appInformation
                Dim b As New System.Text.StringBuilder
                b.Append(New String("*"c, 80))
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**  程序名称 :{0}", mInfo.Name)
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**  程序目录 :{0}", mInfo.Path)
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**  配置文件 :{0}", mInfo.Config)
                b.Append(System.Environment.NewLine)
                b.AppendFormat("**  程序入口 :{0}", mInfo.entryPoint)
                b.Append(System.Environment.NewLine)
                b.Append(New String("*"c, 80))
                Return b.ToString
            End Function
        End Class
    End Class
End Namespace

应用

    Dim MethodTest As New LzmTW.uReflection.CurrentMethodInfo
    Public Sub Load(ByVal mainform As System.Windows.Forms.Form) Implements LzmTW.AddIns.Base.IPackage.Load
        MethodTest.Input(System.Reflection.MethodBase.GetCurrentMethod)
        MethodTest.CheckRuntime = True
        MethodTest.Start()

        gMainForm = CType(mainform, LzmTW.ApplicationBase.MainForm)
        Initialize()

        MethodTest.Stop()
        Console.WriteLine(MethodTest.ToString)
        Console.WriteLine()
    End Sub

    Private Sub OnUILoad(ByVal sender As Object, ByVal e As EventArgs)
        MethodTest.Input(New System.Diagnostics.StackFrame)
        MethodTest.Start()

        gMenuFactory.GetMenuItem(MENU_UNLOAD).Enabled = True
        gMenuFactory.GetMenuItem(MENU_LOAD).Enabled = False
        gUI.Initialize()

        MethodTest.Stop()
        Console.WriteLine(MethodTest.ToString)
        Console.WriteLine()
    End Sub

输出结果:

********************************************************************************
**  程序名称 :MyComputer.vshost.exe
**  程序目录 :G:\Documents and Settings\LzmTW\My Documents\Visual Studio 2005\Projects\MyComputer\MyComputer\bin\Debug\
**  配置文件 :G:\Documents and Settings\LzmTW\My Documents\Visual Studio 2005\Projects\MyComputer\MyComputer\bin\Debug\MyComputer.vshost.exe.config
**  程序入口 :Void Main(System.String[])
********************************************************************************
**  程序集名称 :ComputerAddIns
**  程序集版本 :1.0.0.0
**        类名 :ComputerAddIns.wmiQueryApplication
**      方法名 :Void Load(System.Windows.Forms.Form)

**    测试用时 :00:00:00.0488375
**    测试时间 :2006-8-17 0:03:08
********************************************************************************

********************************************************************************
**  程序名称 :MyComputer.vshost.exe
**  程序目录 :G:\Documents and Settings\LzmTW\My Documents\Visual Studio 2005\Projects\MyComputer\MyComputer\bin\Debug\
**  配置文件 :G:\Documents and Settings\LzmTW\My Documents\Visual Studio 2005\Projects\MyComputer\MyComputer\bin\Debug\MyComputer.vshost.exe.config
**  程序入口 :Void Main(System.String[])
********************************************************************************
**  程序集名称 :ComputerAddIns
**  程序集版本 :1.0.0.0
**        类名 :ComputerAddIns.wmiQueryApplication
**      方法名 :Void OnUILoad(System.Object, System.EventArgs)

**    测试用时 :00:00:01.3316949
**    测试时间 :2006-8-17 0:03:12
********************************************************************************