From 4622287857dbbb2f23dfc91615c5b3b6650241ac Mon Sep 17 00:00:00 2001
From: Lexikos <unravelin@gmail.com>
Date: Fri, 4 Oct 2019 20:48:39 +1000
Subject: [PATCH] Replace WinHttpRequest with XMLHTTP

WinHttpRequest does not use TLS 1.1 or 1.2 by default
on Windows 7 and older.
---
 installer/source/Installer_src.ahk | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/installer/source/Installer_src.ahk b/installer/source/Installer_src.ahk
index a755684..4934197 100644
--- a/installer/source/Installer_src.ahk
+++ b/installer/source/Installer_src.ahk
@@ -326,12 +326,18 @@ InitUI() {
 CheckForUpdates() {
     local w := getWindow(), latestVersion := ""
     try {
-        whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
-        whr.Open("GET", "https://autohotkey.com/download/1.1/version.txt", true)
-        whr.Send()
-        whr.WaitForResponse()
-        latestVersion := whr.responseText
+        req := ComObjCreate("Msxml2.XMLHTTP")
+        req.open("GET", "https://autohotkey.com/download/1.1/version.txt?" SubStr(A_Now,1,8), true)
+        req.onreadystatechange := Func("VersionReceived").Bind(req)
+        req.send()
     }
+}
+
+VersionReceived(req) {
+    local w := getWindow(), latestVersion := ""
+    if req.readyState != 4
+        return
+    latestVersion := req.responseText
     if RegExMatch(latestVersion, "^(\d+\.){3}\d+") {
         if (latestVersion = ProductVersion)
             w.opt1.firstChild.innerText := "Reinstall (download required)"