Vb.net自動更新

kevin001958

小弟我是最新的那種新手，想問一下能不能用vb.net做出一個程式
程式裡面設置一個Button檢查是否為最新版，如果不是->下載最新版到舊程式目錄，並且關閉而且刪除舊程式，在開啟新程式
還是說我需要在額外寫一個B程式來確認，如果是最新版直接開啟，如果不是則按照上面那個步驟
最好的話我是希望能夠只用一個EXE解決
小弟已經會檢查更新跟不是最新版則顯示有最新版並用瀏覽器開啟新版下載鏈接，可是不知道要怎樣才能刪除舊檔案並開啟新版程式
請求大神賜教
*以Google過了，不知我的搜索方向不對還是怎樣都沒有我需要的類型

YYYpo

你自己要怎麼刪除自己?
當你舊版還在執行狀態的時候，要怎麼刪除自己?
-----------------------------------------------
可以檢測下載新版本到目錄。
開啟新版的同時，會檢測目錄下是否存在舊版，如果是就刪除。
不是就不執行。
----------------------------------------------
如果你聽得懂，就好了，聽不懂，我只能丟檔案給你參考

kevin001958

YYYpo 發表於 2018-3-5 15:29
你自己要怎麼刪除自己?
當你舊版還在執行狀態的時候，要怎麼刪除自己?
---------------------------------- ...

嗯嗯我就是想要這功能，可是不知道要怎麼寫出讓他判斷是否存在舊檔案，如果有的話就刪除，可是不會寫QQ

YYYpo

1. if 判斷的內容 then
   
2. '如果相同版本，在這邊執行你要的動作
   
3. else
   
4. '不相同的話執行下載新版本動作
   
5. end if

複製代碼

其他可以上網Google一下資料來源參考就可以了

kevin001958

YYYpo 發表於 2018-3-7 09:13
其他可以上網Google一下資料來源參考就可以了

所以是要
if 版本跟線一樣 then
開啟程式
刪除舊版本
else
跳出提示視窗
下載新版本
關閉程式
end if
這樣

剩下的我在研究一下

fucker

寫法千百種，最簡單的寫法就是建立個txt檔，上面打上最新版本號
在上傳到伺服器上，再利用vb.net下載檔案、讀檔案的方式 取得txt檔中的版本編號
在比對最新版本和目前版本。
這樣基本就完成最新版本檢測了，接下來就用IF判斷式去寫.

設當前版本為:ver,最新版本為newver 請將網址替換

Dim ver as string=1.0
My.Computer.Network.DownloadFile("https://123.com/*.txt","yourname.txt")
Dim newver as string=My.Computer.Filesystem.ReadAllText("yourname.txt")

-------------------
'判斷版本
If ver=newver Then
MsgBox("目前是最新版本")
Else
MsgBox("已有新版本 請前往下載")
End IF

.....搞定收工

fucker

上面補充程式碼給你了，不知道對不對 自己套用上去看看
不對在自己修正一下 我好久沒碰vb了

這是最基本的讀檔方式做的判斷更新。

如果想做自動更新 那麼在提示新版的程式片段加上
My.Computer.Network.Downloadfile("網址","存放位置+檔名")
或是直接用Shell的方式打開下載網頁給他自己更新