.NET (Core and Framework)

<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="3.5" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

	<UsingTask AssemblyFile="C:\Program Files\Gallio\bin\Gallio.MSBuildTasks.dll" TaskName="Gallio" />
	<UsingTask TaskName="NCoverExplorer.MSBuildTasks.NCoverExplorer" AssemblyFile="$(MSBuildProjectDirectory)\Ext\MSBuild\NCoverExplorer.MSBuildTasks.dll"/>
	<UsingTask TaskName="NCoverExplorer.MSBuildTasks.NCover" AssemblyFile="$(MSBuildProjectDirectory)\Ext\MSBuild\NCoverExplorer.MSBuildTasks.dll"/>
	<UsingTask TaskName="NCoverExplorer.MSBuildTasks.NUnitProject" AssemblyFile="$(MSBuildProjectDirectory)\Ext\MSBuild\NCoverExplorer.MSBuildTasks.dll"/>
	
	<PropertyGroup>
		<CoveragePath>$(MSBuildProjectDirectory)</CoveragePath>
	</PropertyGroup>
  
	<ItemGroup>
		<ProjectToBuild Include="$(MSBuildProjectDirectory)\SampleSort.sln"/>
		<TestAssemblies Include="$(MSBuildProjectDirectory)\SampleSort.Tests\bin\Release\SampleSort.Tests.dll"/>
		<CoverageFile Include="$(CoveragePath)Reports\Coverage.xml" />
	</ItemGroup>
	
	<Target Name="Clean">
		<RemoveDir Directories="Application" Condition="Exists('Application')"/>
		<RemoveDir Directories="Reports" Condition="Exists('Reports')"/>
		<MSBuild Projects="@(ProjectToBuild)" Targets="Clean"/>
	</Target>

	<Target Name="BuildSolution">
        <MakeDir Directories="Application"/>
		<MakeDir Directories="Application\Release"/>
		<MakeDir Directories="Application\Release\Audio"/>
		<MakeDir Directories="Application\Release\Audio\x64"/>
		<MakeDir Directories="Application\Release\AudioFile"/>
		<MakeDir Directories="Application\Release\Ext"/>
		<MakeDir Directories="Application\Release\Int"/>
		<MakeDir Directories="Application\Release\Help"/>
		<MakeDir Directories="Application\Release\Mods"/>
		
		<MSBuild Projects="@(ProjectToBuild)"
				 Targets="Rebuild"
				 Properties="Configuration=Release;Platform=x86">
			<Output TaskParameter="TargetOutputs" ItemName="BuildOutput"/>
		</MSBuild>
	</Target>
	
    <Target Name="Test">
        <MakeDir Directories="Reports"/>
        <Gallio IgnoreFailures="true"
                Files="@(TestAssemblies)"
                ReportDirectory="Reports"
                ReportTypes="html"
				ReportNameFormat="gallio"
				ShowReports="false">
            <Output TaskParameter="ExitCode" PropertyName="ExitCode"/>
        </Gallio>
                <Error Text="Tests execution failed" Condition="'$(ExitCode)' != 0" />
        </Target>

	<Target Name="NCoverExplorerReport">
		<NCoverExplorer
	        ProjectName="TestProject"
	        ReportType="ModuleClassSummary" 
	        OutputDir="Reports"
	        XmlReportName="CoverageSummary.xml"
	        HtmlReportName="CoverageSummary.html"
	        ShowExcluded="True"
	        SatisfactoryCoverage="50"
	        CoverageFiles="@(CoverageFile)" 
	        Exclusions="Assembly=*.Tests;Namespace=*.Tests*"
		/>
	</Target>
</Project>

 Stop time: 21:42 (Total execution time: 12.877 seconds) 
C:\TeamCity\buildAgent\work\b4fbc63cd7cc2d0d\SampleSort.msbuild(57,3): error MSB6001: Invalid command line switch for
 "NCoverExplorer.Console.exe". Value cannot be null. C:\TeamCity\buildAgent\work\b4fbc63cd7cc2d0d\SampleSort.msbuild(57,3): 
error MSB6001: Parameter name: path1 

Private Sub Main()
    Try
        ScreenShot()
        If ScreenShot() = True Then
            'Calls a sub that raises an outlook email with the screenshot attached
            OutlookEmail()
            'This try statement will delete the temporary file created with an image of the screenshot
            'This is quicker than using the clipboard and will not affect anything already on there
            Try
                If System.IO.File.Exists(strPath) Then
                    System.IO.File.Delete(strPath)
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        Else
            MessageBox.Show("Failed to take a screenshot - please report to helpdesk")
        End If
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub
Private Function ScreenShot()
    Try
        Dim maxHeight As Integer = 0
        Dim maxWidth As Integer = 0
        For Each scr As Screen In Screen.AllScreens
            maxWidth += scr.Bounds.Width
            If scr.Bounds.Height > maxHeight Then maxHeight = scr.Bounds.Height
        Next
        Dim allScreensCapture As New Bitmap(maxWidth, maxHeight, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
        Dim screenGrab As Bitmap = Nothing
        Dim screenSize As Size = Nothing
        Dim g As Graphics = Nothing
        Dim g2 As Graphics = Graphics.FromImage(allScreensCapture)
        Dim a As New Point(0, 0)
        For Each scr As Screen In Screen.AllScreens
            screenSize = New Size(scr.Bounds.Width, scr.Bounds.Height)
            screenGrab = New Bitmap(scr.Bounds.Width, scr.Bounds.Height)
            g = Graphics.FromImage(screenGrab)
            g.CopyFromScreen(a, New Point(0, 0), screenSize)
            g2.DrawImage(screenGrab, a)
            a.X += scr.Bounds.Width
        Next
        allScreensCapture.Save(strPath, System.Drawing.Imaging.ImageFormat.Jpeg)
        g.Dispose()
        Return True
    Catch ex As Exception
        Return False
    End Try
    strPath = Nothing
End Function
Private Sub OutlookEmail()
    'Create the outlook email, attach the screenshot and present the email to the user to send
    Dim m_email As New Microsoft.Office.Interop.Outlook.Application
    Dim m_message As Microsoft.Office.Interop.Outlook.MailItem = m_email.CreateItem(Interop.Outlook.OlItemType.olMailItem)
    m_message.To = "test@test.co.uk"
    m_message.Subject = "Screenshot of problem attached from " & System.Environment.UserName
    m_message.Attachments.Add(strPath)
    'display the email - dont just send it!
    m_message.Display(m_email)
End Sub
Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
    'The click method for the systray icon
    Main()
End Sub