这段代码 如果在不联网的状态下运行 就会报错

来源：百度知道 编辑：UC知道 时间：2024/06/02 07:27:49
这段代码 如果在不联网的状态下运行 就会报错

具体报错为：无效的过程调用或参数！
a = Inet1.OpenURL("http://sites.google.com/site/yuanyong911/zhaoliang/deadlyver")

求高手帮我改改！！ 万分感激！

Private Sub Form_Load()
'获取当前版本
a = Inet1.OpenURL("http://sites.google.com/site/yuanyong911/zhaoliang/deadlyver")
a = Mid(a, InStr(a, "YUANYONGSOFTWAREDEADLYVER="), 36)
Label5.Caption = a
end sub

Private Sub Form_Load()
'获取当前版本
on error resume next'加这句就可以忽略错误
a = Inet1.OpenURL("http://sites.google.com/site/yuanyong911/zhaoliang/deadlyver")
a = Mid(a, InStr(a, "YUANYONGSOFTWAREDEADLYVER="), 36)
Label5.Caption = a
end sub