Does anyone still have Melcher's launcher?

Discuss Windows Vista, 7, 8.x, 10 and Windows Server 2008, 2008R2, 2012, 2016, 2019, Home Server, SBS 2008, SBS 2011.
Post Reply
Kimberly5384
User avatar
Posts: 106
Joined: Mon Oct 29, 2018 2:07 am

Does anyone still have Melcher's launcher?

Post by Kimberly5384 »

Does anyone still have the launcher for the trust advisor? I haven't been able to find a working link, and I'd like to test it on some LH builds. Thanks in advanced!

yourepicfailure
User avatar
Donator
Posts: 1238
Joined: Mon Jul 23, 2012 9:40 pm
Location: Flying high in a DC10

Re: Does anyone still have Melcher's launcher?

Post by yourepicfailure »

AFAIR I don't think it was ever released.
"C makes it easy to shoot yourself in the foot; C++ makes it harder, but when you do it blows your whole leg off"
Image
You will never tear me from the grasp of the Pentium M!

Kimberly5384
User avatar
Posts: 106
Joined: Mon Oct 29, 2018 2:07 am

Re: Does anyone still have Melcher's launcher?

Post by Kimberly5384 »

So is there another way to get this to show up? I assume through the registry?

yourepicfailure
User avatar
Donator
Posts: 1238
Joined: Mon Jul 23, 2012 9:40 pm
Location: Flying high in a DC10

Re: Does anyone still have Melcher's launcher?

Post by yourepicfailure »

Sadly no, Melcher had to write a launcher to trigger it.
"C makes it easy to shoot yourself in the foot; C++ makes it harder, but when you do it blows your whole leg off"
Image
You will never tear me from the grasp of the Pentium M!

Melcher
User avatar
Donator
Posts: 694
Joined: Tue Apr 26, 2011 1:36 pm
Contact:

Re: Does anyone still have Melcher's launcher?

Post by Melcher »

You're in luck. I still have the original code of the "TrustMeNot" launcher I wrote in 2014. It's very plain and simple: the code creates a new (Avalon) NavigationApplication with a single NavigationWindow. Using a BindProductUri we can navigate the window to any resource we point it at (XAML files or even VoidPageFunction objects). In this case, there are a few options (see the commented out lines in Main()).
And yes, it's written in VB.NET :? You would be able to compile this using SharpDevelop directly from Longhorn. Make sure to import the necessary Avalon and shell dlls: ShellInterop, Avalon.UI, Avalon.Utility and Avalon.Core. It might not dispay the trust advisor out of the box, but if you are willing to do some decompiling of Avalon binaries and use this code to bootstrap your Avalon windows, I'm sure you'll find some interesting things ;)

Code: Select all

'
' Created by SharpDevelop.
' User: Melcher
' Date: 8/26/2014
'
Imports System
Imports System.Windows
Imports System.Threading
imports System.Windows.Interop
Imports System.Windows.Controls
Imports System.Windows.Navigation

Module Main
	Sub Main()
		'Launchdialog("object://ShellInterop/System.Windows.Client.Privacy.ConsentMain", "Consent", 600, 550)
		Launchdialog("res://Microsoft.Windows.Client/LocalResources/Consent.xaml", "Consent", 600, 550)
		'Launchdialog("object://DisplayCpl/System.Windows.Shell.ControlPanel.Display.RootPage", "Some window", 600, 600)
	End Sub
	
	Private Sub LaunchDialog(uri As String, title As String, width As integer, height As integer)
		If Not uri = Nothing And Not title = Nothing Then
			'this is the important part: we need a navigation application as base
			Dim navapp as NavigationApplication = New NavigationApplication()
			Dim navwind = New NavigationWindow()
			navwind.Text = title
			Dim boxUnit = New BoxUnit(CSng(width))
			navwind.Width = boxUnit
			Dim boxUnit1 = New BoxUnit(CSng(height))
			navwind.Height = boxUnit1
			'navwind.ShowDialog()
			navwind.Navigate(New BindProductUri(uri))
			navapp.Run()
		End If
	End Sub
End Module

Kimberly5384
User avatar
Posts: 106
Joined: Mon Oct 29, 2018 2:07 am

Re: Does anyone still have Melcher's launcher?

Post by Kimberly5384 »

Wow! Thanks for this. On a side note: I'm really inspired by your work and your contributions to unlocking some hidden longhorn features!

Post Reply