BetaArchive Logo
Navigation Home Database Screenshots Gallery Image Uploader Server Info FTP Servers Wiki Forum RSS Feed Rules Please Donate
UP: 18d, 20h, 25m | CPU: 51% | MEM: 5672MB of 12287MB used
{The community for beta collectors}

Post new topic Reply to topic  [ 6 posts ] 
Author Message
 PostPost subject: Does anyone still have Melcher's launcher?        Posted: Mon Dec 02, 2019 6:24 pm 
Reply with quote
User avatar
Offline

Joined
Mon Oct 29, 2018 2:07 am

Posts
62

Favourite OS
Longhorn 5231/Vista SP2 Ultimate
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!

_________________
Longhorn 5xxx > Vista


Top  Profile
 PostPost subject: Re: Does anyone still have Melcher's launcher?        Posted: Mon Dec 02, 2019 7:17 pm 
Reply with quote
Donator
User avatar
Offline

Joined
Mon Jul 23, 2012 9:40 pm

Posts
1114

Location
Flying high in a DC10

Favourite OS
NT3.X Family
AFAIR I don't think it was ever released.

_________________
Quote:
"C makes it easy to shoot yourself in the foot; C++ makes it harder, but when you do it blows your whole leg off"


Top  Profile
 PostPost subject: Re: Does anyone still have Melcher's launcher?        Posted: Mon Dec 02, 2019 11:46 pm 
Reply with quote
User avatar
Offline

Joined
Mon Oct 29, 2018 2:07 am

Posts
62

Favourite OS
Longhorn 5231/Vista SP2 Ultimate
So is there another way to get this to show up? I assume through the registry?

_________________
Longhorn 5xxx > Vista


Top  Profile
 PostPost subject: Re: Does anyone still have Melcher's launcher?        Posted: Tue Dec 03, 2019 2:17 am 
Reply with quote
Donator
User avatar
Offline

Joined
Mon Jul 23, 2012 9:40 pm

Posts
1114

Location
Flying high in a DC10

Favourite OS
NT3.X Family
Sadly no, Melcher had to write a launcher to trigger it.

_________________
Quote:
"C makes it easy to shoot yourself in the foot; C++ makes it harder, but when you do it blows your whole leg off"


Top  Profile
 PostPost subject: Re: Does anyone still have Melcher's launcher?        Posted: Wed Dec 04, 2019 3:30 pm 
Reply with quote
Donator
User avatar
Offline

Joined
Tue Apr 26, 2011 1:36 pm

Posts
693

Favourite OS
Longhorn
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:
'
' 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

_________________
Experience Longhorn


Top  Profile  WWW
 PostPost subject: Re: Does anyone still have Melcher's launcher?        Posted: Thu Dec 05, 2019 5:46 pm 
Reply with quote
User avatar
Offline

Joined
Mon Oct 29, 2018 2:07 am

Posts
62

Favourite OS
Longhorn 5231/Vista SP2 Ultimate
Wow! Thanks for this. On a side note: I'm really inspired by your work and your contributions to unlocking some hidden longhorn features!

_________________
Longhorn 5xxx > Vista


Top  Profile
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 6 posts ] 




Who is online

Users browsing this forum: roytam1 and 9 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  

All views expressed in these forums are those of the author and do not necessarily represent the views of the BetaArchive site owner.

Powered by phpBB® Forum Software © phpBB Group

Copyright © 2006-2019

 

Sitemap | XML | RSS