Add WebClient Exception Handle

Author: InterfaceGUI

QuickIPchange/Form1.Designer.vb

@@ -126,10 +126,23 @@
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>393, 17</value>
   </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="ToolStripStatusLabel7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA7CAAAOwgEVKEqAAAABjklE
+        QVQ4T92QvUvDQBjGX8EPBBF0sqW9BOkQhFJBdHPS3U1wcSo6ORTaJLXKBVTQrc6WXGqshaKCIK5+dHBx
+        aHHRzaWDVFERdYzvpddQW9s/wAce8nHP73nvDv6r6EU3qGYcNOseVOsTtGwZ3xfFagfFCv2gm5MIZ9FX
+        oGdnQd8PQdKeB5U94HdKJJvldOGENZz2AhrDaTgxdSDBqu3zvG5NuOtxNiKgBqnWMoLXkMwpv6Bma+wc
+        bWLJuCCFNHaHJVN/Qtx6bghooReWbnsgtjcMCTbj/vekWU+QOPS3gNy0MCBRSZYM6RSfX8JnhJIxQaM0
+        VsRzz7XAOE3ekCVikFcscBqNBW98rVaQMKex5BF0ewEok72Cld0+DJ40w9F8tFZikONaARcv0a0i3sU3
+        HslxTe1BDH7UIdmQncxNxilVSo6ypfCCd0G3Fw/xcLlSds3h8HbYO4aItRde2BEPR3YiTvoy7cFugUHy
+        ItZeARoIYbhahxpcDdKgX8Q6i2wSH07L4W6euflk3P4oAMAPXaneEuZ6TBwAAAAASUVORK5CYII=
+</value>
+  </data>
   <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>514, 17</value>
   </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAEBAAAAEAIABoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAAAQAAMMOAADDDgAAAAAAAAAA

QuickIPchange/Form1.resx

@@ -178,15 +178,20 @@ Public Class Form1
         Return Nothing
     End Function
 
-    Private Function getGithubReleases() As Dictionary(Of String, String)
+    Private Async Function getGithubReleases() As Task(Of Dictionary(Of String, String))
         Dim result As New Dictionary(Of String, String)
         Dim apiUrl As String = "https://api.github.com/repos/InterfaceGUI/QuickIPchange/releases/latest"
         Dim responseJson As String
 
         Using wc As New WebClient()
             ' 設置 User-Agent，GitHub API 需要這個 header
             wc.Headers.Add("User-Agent", "request")
-            responseJson = wc.DownloadString(apiUrl)
+            Try
+                responseJson = Await wc.DownloadStringTaskAsync(apiUrl)
+            Catch ex As Exception
+                Return Nothing
+            End Try
+            'responseJson = wc.DownloadString(apiUrl)
         End Using
 
         Dim jsonObject As JObject = JObject.Parse(responseJson)
@@ -207,6 +212,7 @@ Public Class Form1
         result.Add("tag_name", tagName)
         result.Add("exe_download_url", exeDownloadUrl)
         result.Add("release_notes", jsonObject("body").ToString())
+        ToolStripStatusLabel7.Visible = True
         Return result
 
 
@@ -216,10 +222,15 @@ Public Class Form1
 
     End Sub
 
-    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
+    Private Async Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
         Timer2.Enabled = False
 
-        Dim ReleasesInfo As Dictionary(Of String, String) = getGithubReleases()
+        Dim ReleasesInfo As Dictionary(Of String, String) = Await getGithubReleases()
+        If ReleasesInfo Is Nothing Then
+            ToolStripStatusLabel7.Visible = True
+            Exit Sub
+        End If
+
         Dim latestVersion As Version = New Version(ReleasesInfo.Item("tag_name"))
         Dim currentVersion As Version = Assembly.GetExecutingAssembly().GetName().Version
 
@@ -235,6 +246,7 @@ Public Class Form1
             End If
 
         ElseIf comparisonResult = 0 Then
+            ToolStripStatusLabel6.Text = $"已是最新版本"
             Console.WriteLine($"目前版本 {currentVersion} 已是最新版本")
         Else
             Console.WriteLine($"目前版本 {currentVersion} 高於 GitHub 上的版本 {latestVersion}")