求VB 更新代码

在网上找了好久，但没找到真正有效可行。
不要随便到网上复制些内容来。我需要有说明的。和具体使用方法

答案：给你一个简单的小例子，添加Inet控件
 
On Error Resume Next
dim a as string
a = Inet1.OpenURL("网络文本地址,例如： http://www.xxxx.com/xxx.txt") '这里的文本可写你的版本号，需要传到服务器得到地址
If a = "" Then
MsgBox "检测失败!请检查您的网络链接情况", vbExclamation, "提示"
ElseIf a <> "你的版本号" Then'如果服务器中的版本不为这个则
b = MsgBox("发现最新版本[" & a & "]!是否更新?", 68, "提示")'提示有更新
If b = vbYes Then
Shell "explorer.exe 网址" '软件更新的下载地址
End If
Else
MsgBox "当前未最新版本[" & a & "]!无需更新!", vbInformation, "n-Ray小允提示"
End If
用网站来实现,简单高效,对小程序有很好的效果,而且不需要很好的服务器..

上一个：VB是什么意思
下一个：vb如何快速入门?