Upload 20240825

cjhdevact · Aug 25, 2024 · a8a6c91 · a8a6c91
1 parent ff6b3fa
commit a8a6c91
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 0 deletions.
diff --git a/Src/SmartEduDownloader/DownLinkForm.vb b/Src/SmartEduDownloader/DownLinkForm.vb
@@ -1,4 +1,5 @@
 Imports Newtonsoft.Json.Linq
+Imports System.Net
 
 Public Class DownLinkForm
     Dim st As Integer
@@ -18,6 +19,7 @@ Public Class DownLinkForm
     End Sub
 
     Private Sub DownLinkForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        ServicePointManager.SecurityProtocol = CType(192, SecurityProtocolType) Or CType(768, SecurityProtocolType) Or CType(3072, SecurityProtocolType)
         st = 0
         mld = 1
         CheckBox1.Checked = True

diff --git a/Src/SmartEduDownloader/MDownForm.vb b/Src/SmartEduDownloader/MDownForm.vb
@@ -1,4 +1,5 @@
 Imports Newtonsoft.Json.Linq
+Imports System.Net
 
 Public Class MDownForm
     Dim st As Integer
@@ -18,6 +19,7 @@ Public Class MDownForm
     End Sub
 
     Private Sub MDownForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        ServicePointManager.SecurityProtocol = CType(192, SecurityProtocolType) Or CType(768, SecurityProtocolType) Or CType(3072, SecurityProtocolType)
         st = 0
         mld = 1
         CheckBox1.Checked = True

diff --git a/Src/SmartEduDownloader/MGetForm.vb b/Src/SmartEduDownloader/MGetForm.vb
@@ -1,4 +1,5 @@
 Imports Newtonsoft.Json.Linq
+Imports System.Net
 
 Public Class MGetForm
     Dim DownLinks() As String
@@ -79,6 +80,7 @@ Public Class MGetForm
         End Try
     End Sub
     Private Sub MGetForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        ServicePointManager.SecurityProtocol = CType(192, SecurityProtocolType) Or CType(768, SecurityProtocolType) Or CType(3072, SecurityProtocolType)
         OErr = 1
         CheckBox1.Checked = False
         DownLinks = Nothing

diff --git a/Src/SmartEduDownloader/MainForm.vb b/Src/SmartEduDownloader/MainForm.vb
@@ -20,6 +20,7 @@ Public Class MainForm
     Public Const AppBuildChannel As String = "O"
 
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        ServicePointManager.SecurityProtocol = CType(192, SecurityProtocolType) Or CType(768, SecurityProtocolType) Or CType(3072, SecurityProtocolType)
         Dim disi As Graphics = Me.CreateGraphics()
         TextBox2.Height = disi.DpiX * 0.01 * 135
         If Environment.Is64BitProcess = True Then