UC知道vb 网页问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 06:26:21
我想做一个更新程序，在网址：http://www.1.com/l.asp这个网页理输入版本号 1.0 ，当我修改网页内容为 1.1 时，文本提示更新，怎么弄？
'加一个Inet控件
Private Const banben = "1.0" '版本号
Private Sub Form_Load()
Dim a As String
a = Inet1.OpenURL("http://xx.xx.xx/1.asp")
If InStr(1, a, banben)=0 Then
MsgBox "需要更新"
shell "explorer http://xx.xx.xx/1.asp"
end
End If
End Sub