VB2010照著檢查更新文章的內容照做卻出現以下問題

我是照著這篇文章做的:http://it-easy.tw/vb-check-new-update/

可是錯誤視窗沒有跑出任何東西

但是即時演算卻跑出以下東西

InfoData = "<!DOCTYPE html><html lang="en" xmlns:fb="http://ogp.me/ns/fb#%22 xml:lang="en" xmlns="http://www.w3.org/1999/xhtml%22 class="media-desktop"><head><script nonce="8996123176767136485">"

我的dropbox的載點已經有改我的了

要怎麼樣才能解決?

已更新項目:

我就照他的內容那樣做

完全照做 他做啥我就做啥

我只是把他的dropbox的載點改成我的而已

他可以我卻不行 雖然那個是顯示case2

但我也不知道為啥那樣

不知到是正常還是有問題

2 個已更新項目:

就一直出現檢查更新失敗

1 個解答

評分
  • John
    Lv 7
    6 年前
    最佳解答

    我就看不見妳如何照著那篇文章寫,他用網址妳用網頁。而且錯的。

    不如簡單講妳想做什麼好過。

    2015-03-29 10:48:26 補充:

    好明顯現在的dropbox已經改了。 試吓將 dropbox條link從 dl=0 改為 dl=1

    我用這個程式測試是可以的。

    Imports System.Net

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ShowStatus()

    End Sub

    Private Function GetCurrentVersion() As String

    Dim client As New WebClient()

    GetCurrentVersion = client.DownloadString("dropbox link here?dl=1")

    End Function

    Private Function GetMyVersion() As String

    GetMyVersion = Me.GetType.Assembly.GetName.Version.ToString

    End Function

    Private Sub ShowStatus()

    If (GetMyVersion.Equals(GetCurrentVersion())) Then

    MsgBox("Matched")

    Else

    MsgBox("Mismatched")

    End If

    End Sub

    End Class

還有問題?馬上發問,尋求解答。