From f58c1b65871047a35c2006db0f16a27261636adc Mon Sep 17 00:00:00 2001 From: TrAnn3l Date: Tue, 8 Oct 2019 17:44:32 +0200 Subject: [PATCH] Fix #26 --- MiTranslate/Start.vb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/MiTranslate/Start.vb b/MiTranslate/Start.vb index 3cac3e9..f5b1620 100644 --- a/MiTranslate/Start.vb +++ b/MiTranslate/Start.vb @@ -113,6 +113,8 @@ Public Class frmTranslation Private Sub cmdGetVersions_Click(sender As Object, e As EventArgs) Handles cmdGetVersions.Click Dim homeapp() As String Dim vacuum() As String + ServicePointManager.Expect100Continue = True + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 Using client = New WebClient() Dim result() As String = Split(client.DownloadString("https://philippwensauer.com/mi/versions.txt?v=" & frmStart.lblVersion.Text), vbCrLf) homeapp = Split(result(0), ";")