Change update checker and bring back to .net 3.5

Xeroday · Aug 26, 2013 · 580e4d6 · 580e4d6
1 parent 994e4ef
commit 580e4d6
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 7 deletions.
diff --git a/Spotify/EZBlocker.vbproj b/Spotify/EZBlocker.vbproj
@@ -13,7 +13,7 @@
     <AssemblyName>EZBlocker</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
     <TargetFrameworkProfile>
     </TargetFrameworkProfile>
     <PublishUrl>publish\</PublishUrl>
@@ -80,7 +80,6 @@
   <ItemGroup>
     <Reference Include="System" />
     <Reference Include="System.Drawing" />
-    <Reference Include="System.Web" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />

diff --git a/Spotify/Form1.vb b/Spotify/Form1.vb
@@ -72,7 +72,7 @@ Public Class Form1
     Private Sub checkUpdate()
         Try
             Dim latest As String = GetPage("http://www.ericzhang.me/dl/?file=EZBlocker-version.txt", "EZBlocker " & My.Application.Info.Version.ToString & " " & My.Computer.Info.OSFullName) 'Query for latest version
-            If Double.Parse(latest) > Double.Parse(My.Application.Info.Version.ToString.Substring(0, 3)) Then
+            If Double.Parse(latest) > Double.Parse(My.Application.Info.Version.ToString.Replace(".", "")) Then
                 If MessageBox.Show("Your EZBlocker is out of date. Would you like to upgrade?", "EZBlocker", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = vbYes Then
                     Process.Start(website)
                     Me.Close()
@@ -125,7 +125,7 @@ Public Class Form1
     Private Function Check() As Boolean ' Check to see if an ad is playing and add to block list
         If autoAdd Then
             Try
-                Dim rArtist As String = GetPage("http://ws.spotify.com/search/1/artist?q=" & HttpUtility.UrlEncode(artist), "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Trident/5.0)") 'Query server for artist
+                Dim rArtist As String = GetPage("http://ws.spotify.com/search/1/artist?q=" & artist, "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Trident/5.0)") 'Query server for artist
                 Using reader As XmlReader = XmlReader.Create(New StringReader(rArtist))
                     reader.ReadToFollowing("opensearch:totalResults") 'Get number of results
                     If reader.ReadElementContentAsInt() = 0 Then '0 results = ad

diff --git a/Spotify/My Project/AssemblyInfo.vb b/Spotify/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.1.0.0")> 
-<Assembly: AssemblyFileVersion("1.1.0.0")> 
+<Assembly: AssemblyVersion("1.1.1.0")> 
+<Assembly: AssemblyFileVersion("1.1.1.0")> 
diff --git a/Spotify/app.config b/Spotify/app.config
@@ -20,4 +20,4 @@
             <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
         </sharedListeners>
     </system.diagnostics>
-<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration>
+<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>