private bool DownloadFile(string url)
{
bool started = false;
_sw = new Stopwatch();
_sw.Start();
try
{
string[] parts = url.Split('/');
string filename = parts[parts.Length - 1];
_downloadSource = filename;
progressBar1.Value = 0;
Cursor.Current = Cursors.WaitCursor;
string downloadPath = FolderHelper.GetPath(KnownFolder.Downloads);
if (!Directory.Exists(downloadPath))
{
downloadPath = Path.GetTempPath();
}
_downloadedFile = Path.Combine(downloadPath, filename);
if (File.Exists(_downloadedFile))
{
try
{
File.Delete(_downloadedFile);
}
catch
{
// Do Nothing
}
}
var securityProtocol = ServicePointManager.SecurityProtocol;
ServicePointManager.SecurityProtocol = securityProtocol | SecurityProtocolType.Tls11 | SecurityProtocolType.Tls12;
_webClient = new WebClient();
_webClient.Headers.Add("user-agent", "Chem4Word Bootstrapper");
_webClient.DownloadProgressChanged += OnDownloadProgressChanged;
_webClient.DownloadFileCompleted += OnDownloadComplete;
_webClient.DownloadFileAsync(new Uri(url), _downloadedFile);
started = true;
}
catch (Exception ex)
{
RegistryHelper.WriteAction(ex.Message);
Information.Text = ex.Message;
}
return(started);
}
private static void Main()
{
bool created;
using (new Mutex(true, "21ab7215-5081-4e52-86ad-be2408418a57", out created))
{
if (created)
{
RegistryHelper.WriteAction("Starting Setup");
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new Setup());
}
else
{
RegistryHelper.WriteAction("Setup is already running");
}
}
}
private void OnDownloadComplete(object sender, AsyncCompletedEventArgs e)
{
_sw.Stop();
Cursor.Current = Cursors.Default;
progressBar1.Value = 100;
if (e.Cancelled)
{
RegistryHelper.WriteAction($"Downloading of {_downloadSource} was Cancelled");
Information.Text = $"Downloading of {_downloadSource} was Cancelled";
_state = State.Done;
}
else if (e.Error != null)
{
RegistryHelper.WriteAction($"Error downloading {_downloadSource} Exception: {e.Error.Message}");
_retryCount++;
if (_retryCount > 3)
{
Information.Text = $"Too many errors downloading {_downloadSource}, please check your internet connection and try again!";
Action.Text = "Exit";
_state = State.Done;
}
else
{
_state = _previousState;
}
}
else
{
_webClient.DownloadProgressChanged -= OnDownloadProgressChanged;
_webClient.DownloadFileCompleted -= OnDownloadComplete;
_webClient.Dispose();
_webClient = null;
FileInfo fi = new FileInfo(_downloadedFile);
if (fi.Length == 0)
{
_retryCount++;
if (_retryCount > 3)
{
Information.Text = $"Too many errors downloading {_downloadSource}, please check your internet connection and try again!";
Action.Text = "Exit";
_state = State.Done;
}
else
{
_state = _previousState;
}
}
else
{
RegistryHelper.WriteAction($"Downloading of {_downloadSource} took {_sw.ElapsedMilliseconds.ToString("#,##0", CultureInfo.InvariantCulture)}ms");
double seconds = _sw.ElapsedMilliseconds / 1000.0;
double kiloBytes = fi.Length / 1024.0;
double speed = kiloBytes / seconds / 1000.0;
RegistryHelper.WriteAction($"Download speed {speed.ToString("#,##0.000", CultureInfo.InvariantCulture)}MiB/s");
switch (_state)
{
case State.WaitingForVstoDownload:
_state = State.InstallVsto;
break;
case State.WaitingForChem4WordDownload:
_state = State.InstallChem4Word;
break;
}
}
}
}
private void Setup_Load(object sender, EventArgs e)
{
// Move up and left by half the form size
Left = Left - Width / 2;
Top = Top - Height / 2;
Show();
Application.DoEvents();
bool isDesignTimeInstalled = false;
bool isRuntimeInstalled = false;
bool isOperatingSystemWindows7Plus = false;
bool isChem4WordVersion3Installed = false;
#region Detect Windows Version
OperatingSystem osVer = Environment.OSVersion;
// Check that OsVerion is greater or equal to 6.1
if (osVer.Version.Major >= 6 && osVer.Version.Minor >= 1)
{
// Running Windows 7 or Windows 2008 R2
isOperatingSystemWindows7Plus = true;
}
#endregion Detect Windows Version
WindowsInstalled.Indicator = isOperatingSystemWindows7Plus ? Properties.Resources.Windows : Properties.Resources.Halt;
Application.DoEvents();
#region Detect Word
bool isWordInstalled = OfficeHelper.GetWinWordVersionNumber() >= 2010;
#endregion Detect Word
WordInstalled.Indicator = isWordInstalled ? Properties.Resources.Word : Properties.Resources.Halt;
Application.DoEvents();
#region .Net Framework
// HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP
// Not sure if this can be done as this is a .Net 4.5.2 app !
#endregion .Net Framework
#region Detect Design Time VSTO
string feature = GetRegistryValue(@"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VSTO_DT\VS10\Feature");
if (!string.IsNullOrEmpty(feature))
{
isDesignTimeInstalled = true;
}
#endregion Detect Design Time VSTO
#region Detect Runtime VSTO
string version = GetRegistryValue(@"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VSTO Runtime Setup\v4R", "Version");
if (string.IsNullOrEmpty(version))
{
version = GetRegistryValue(@"HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\VSTO Runtime Setup\v4R", "Version");
}
Version mimimumVersion = new Version("10.0.60724");
int result = -2;
if (!string.IsNullOrEmpty(version))
{
Version installedVersion = new Version(version);
result = installedVersion.CompareTo(mimimumVersion);
if (result >= 0)
{
isRuntimeInstalled = true;
}
}
// SOFTWARE\Microsoft\VSTO_DT\VS10\Feature
if (!isRuntimeInstalled)
{
version = GetRegistryValue(@"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VSTO_DT\VS10\Feature");
if (string.IsNullOrEmpty(version))
{
version = GetRegistryValue(@"HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\VSTO_DT\VS10\Feature");
}
if (!string.IsNullOrEmpty(version))
{
isRuntimeInstalled = true;
}
}
#endregion Detect Runtime VSTO
if (isDesignTimeInstalled || isRuntimeInstalled)
{
VstoInstalled.Indicator = Properties.Resources.Yes;
_state = State.DownloadChem4Word;
}
else
{
VstoInstalled.Indicator = Properties.Resources.Waiting;
_state = State.DownloadVsto;
}
Application.DoEvents();
#region Is Chem4Word Installed
bool isChem4WordVersion2Installed = FindOldVersion();
#endregion Is Chem4Word Installed
if (isOperatingSystemWindows7Plus && isWordInstalled)
{
if (isChem4WordVersion2Installed)
{
RegistryHelper.WriteAction("Old Version of Chem4Word detected");
AddInInstalled.Indicator = Properties.Resources.Halt;
AddInInstalled.Description = "Version 2 of Chem4Word detected";
Information.Text = "A previous version of Chem4Word has been detected, please uninstall it.";
Action.Text = "Cancel";
}
else if (isChem4WordVersion3Installed)
{
RegistryHelper.WriteAction("Version 3 of Chem4Word detected");
AddInInstalled.Indicator = Properties.Resources.Yes;
AddInInstalled.Description = "Version 3 of Chem4Word detected";
Information.Text = "Nothing to do.";
Action.Text = "Cancel";
}
else
{
AddInInstalled.Indicator = Properties.Resources.Waiting;
Application.DoEvents();
RegistryHelper.WriteAction("Downloading Chem4Word-Versions.xml");
var xml = GetVersionsXmlFile();
if (!string.IsNullOrEmpty(xml))
{
var x = XDocument.Parse(xml);
var versions = x.XPathSelectElements("//Version");
foreach (var element in versions)
{
if (string.IsNullOrEmpty(_latestVersion))
{
_latestVersion = element.Element("Url")?.Value;
RegistryHelper.WriteAction($"Latest version is {_latestVersion}");
}
break;
}
}
// Default to Specific Beta
if (string.IsNullOrEmpty(_latestVersion))
{
_latestVersion = ChangeDomain(DefaultMsiFile);
RegistryHelper.WriteAction($"Defaulting to {_latestVersion}");
}
}
}
else
{
if (!isWordInstalled)
{
WordInstalled.Indicator = Properties.Resources.No;
Information.Text = "Please install Microsoft Word 2010 or 2013 or 2016.";
}
if (!isOperatingSystemWindows7Plus)
{
WindowsInstalled.Indicator = Properties.Resources.No;
Information.Text = "This program requires Windows 7 or greater.";
}
VstoInstalled.Indicator = Properties.Resources.Halt;
AddInInstalled.Indicator = Properties.Resources.Halt;
Action.Text = "Cancel";
}
}
private void HandleNextState()
{
switch (_state)
{
case State.DownloadVsto:
// Download VSTO
RegistryHelper.WriteAction("Downloading VSTO");
Information.Text = "Downloading VSTO ...";
VstoInstalled.Indicator = Properties.Resources.Downloading;
if (DownloadFile(ChangeDomain(VstoInstaller)))
{
_previousState = _state;
_state = State.WaitingForVstoDownload;
}
else
{
VstoInstalled.Indicator = Properties.Resources.No;
Information.Text = $"Error downloading VSTO; {Information.Text}";
Action.Text = "Exit";
_state = State.Done;
}
break;
case State.WaitingForVstoDownload:
break;
case State.InstallVsto:
// Install VSTO
RegistryHelper.WriteAction("Installing VSTO");
Information.Text = "Installing VSTO ...";
try
{
VstoInstalled.Indicator = Properties.Resources.Runing;
_state = State.WaitingForInstaller;
int exitCode = RunProcess(_downloadedFile, "/passive /norestart");
RegistryHelper.WriteAction($"VSTO ExitCode: {exitCode}");
switch (exitCode)
{
case 0: // Success.
case 1641: // Success - Reboot started.
case 3010: // Success - Reboot required.
VstoInstalled.Indicator = Properties.Resources.Yes;
_retryCount = 0;
_state = State.DownloadChem4Word;
break;
default:
VstoInstalled.Indicator = Properties.Resources.No;
Information.Text = $"Error installing VSTO; ExitCode: {exitCode}";
Action.Text = "Exit";
_state = State.Done;
break;
}
}
catch (Exception ex)
{
Information.Text = ex.Message;
Debug.WriteLine(ex.Message);
Action.Text = "Exit";
Action.Enabled = true;
timer1.Enabled = false;
_state = State.Done;
}
break;
case State.DownloadChem4Word:
// Download Chem4Word
RegistryHelper.WriteAction($"Downloading {_latestVersion}");
Information.Text = "Downloading Chem4Word ...";
AddInInstalled.Indicator = Properties.Resources.Downloading;
if (DownloadFile(_latestVersion))
{
_previousState = _state;
_state = State.WaitingForChem4WordDownload;
}
else
{
AddInInstalled.Indicator = Properties.Resources.No;
Information.Text = $"Error downloading Chem4Word; {Information.Text}";
Action.Text = "Exit";
_state = State.Done;
}
break;
case State.WaitingForChem4WordDownload:
break;
case State.InstallChem4Word:
// Install Chem4Word
RegistryHelper.WriteAction("Installing Chem4Word");
Information.Text = "Installing Chem4Word ...";
try
{
AddInInstalled.Indicator = Properties.Resources.Runing;
_state = State.WaitingForInstaller;
int exitCode = RunProcess(_downloadedFile, "");
RegistryHelper.WriteAction($"Chem4Word ExitCode: {exitCode}");
if (exitCode == 0)
{
RegistryKey key = Registry.CurrentUser.OpenSubKey(RegistryKeyName, true);
if (key == null)
{
key = Registry.CurrentUser.CreateSubKey(RegistryKeyName);
}
if (key != null)
{
try
{
// Erase previously stored Update Checks etc
foreach (string keyName in key.GetSubKeyNames())
{
key.DeleteValue(keyName);
}
}
catch (Exception ex)
{
Debug.WriteLine(ex.Message);
}
}
progressBar1.Value = 0;
progressBar1.Maximum = 100;
progressBar1.Value = 100;
AddInInstalled.Indicator = Properties.Resources.Yes;
Information.Text = "Chem4Word successfully installed. Please start Microsoft Word, then select Chemistry Tab in ribbon";
Action.Text = "Finish";
}
else
{
AddInInstalled.Indicator = Properties.Resources.No;
Information.Text = $"Error installing Chem4Word; ExitCode: {exitCode}";
Action.Text = "Exit";
_state = State.Done;
}
}
catch (Exception ex)
{
Information.Text = ex.Message;
Debug.WriteLine(ex.Message);
Action.Text = "Exit";
}
Action.Enabled = true;
timer1.Enabled = false;
_state = State.Done;
break;
case State.WaitingForInstaller:
break;
case State.Done:
timer1.Enabled = false;
Action.Enabled = true;
break;
}
}
private string GetVersionsXmlFile()
{
string contents = null;
bool foundOurXmlFile = false;
var securityProtocol = ServicePointManager.SecurityProtocol;
ServicePointManager.SecurityProtocol = securityProtocol | SecurityProtocolType.Tls11 | SecurityProtocolType.Tls12;
foreach (var domain in Domains)
{
using (HttpClient client = new HttpClient())
{
string exceptionMessage;
try
{
RegistryHelper.WriteAction($"Looking for Chem4Word-Versions.xml at {domain}");
client.DefaultRequestHeaders.Add("user-agent", "Chem4Word Bootstrapper");
client.BaseAddress = new Uri(domain);
var response = client.GetAsync(VersionsFile).Result;
response.EnsureSuccessStatusCode();
Debug.Write(response.StatusCode);
string result = response.Content.ReadAsStringAsync().Result;
if (result.Contains(VersionsFileMarker))
{
foundOurXmlFile = true;
_domainUsed = domain;
contents = ChangeDomain(result);
}
else
{
RegistryHelper.WriteAction($"Chem4Word-Versions.xml at {domain} is corrupt");
}
}
catch (ArgumentNullException nex)
{
exceptionMessage = GetExceptionMessages(nex);
RegistryHelper.WriteAction($"ArgumentNullException: [{domain}] - {exceptionMessage}");
}
catch (HttpRequestException hex)
{
exceptionMessage = GetExceptionMessages(hex);
RegistryHelper.WriteAction($"HttpRequestException: [{domain}] - {exceptionMessage}");
}
catch (WebException wex)
{
exceptionMessage = GetExceptionMessages(wex);
RegistryHelper.WriteAction($"WebException: [{domain}] - {exceptionMessage}");
}
catch (Exception ex)
{
exceptionMessage = GetExceptionMessages(ex);
RegistryHelper.WriteAction($"Exception: [{domain}] - {exceptionMessage}");
}
if (foundOurXmlFile)
{
break;
}
}
}
ServicePointManager.SecurityProtocol = securityProtocol;
return(contents);
}