我想知道,怎么用VB来判断打开一个网页或者网站,在一定时间内能否打开?
请高手详细说明步骤,谢谢~
VB 如何判断一个网页或网站 能否打开?
答案:4 悬赏:60 手机版
解决时间 2021-03-20 20:16
- 提问者网友:沦陷
- 2021-03-20 04:49
最佳答案
- 五星知识达人网友:老鼠爱大米
- 2021-03-20 06:17
VB内部的快捷键就自己设置一下,比如在command 的caption里面写"按钮B"
如果要用系统的的快捷键的话你就要用到api了,上网搜一下很多的
弹出窗口可以用inputbox也可以自己做一个窗口,inputbox不支持输中文
输入命令后运行你的命令就要看你想执行什么了,你可以让你的命令生成bat批处理,然后再用shell app.path "\my.bat"的方式调用运行
如果要用系统的的快捷键的话你就要用到api了,上网搜一下很多的
弹出窗口可以用inputbox也可以自己做一个窗口,inputbox不支持输中文
输入命令后运行你的命令就要看你想执行什么了,你可以让你的命令生成bat批处理,然后再用shell app.path "\my.bat"的方式调用运行
全部回答
- 1楼网友:低音帝王
- 2021-03-20 08:35
ping 他的服务器
- 2楼网友:爱难随人意
- 2021-03-20 08:19
private sub form_load() webbrowser1.navigate http://reg4.163.com/checkuser.jsp
obj.all.submit.click end sub
'突出显示那个根据网页不同而不同,要添加webbrowser控件的哈
'在工具箱中点击鼠标右键→选中“ 部件” → 复选microsoft internetcontrols → 然后点击“ 确定” 键即可
- 3楼网友:傲气稳了全场
- 2021-03-20 07:35
在部件里选择Microsoft Internet Transfer Control 6.0添加Inet控件
Private Sub Command1_Click()
Inet1.OpenURL "" '用inet连接网页
aa = InStr(Inet1.GetHeader, "404") '判断页头是否包含字符“404”,返回0则不包含,否则返回其位置
If aa <> 0 Then '页头中包含404
MsgBox "网页不存在!" '则说明该网页不存在
Else '如果页头中不包含“404”
MsgBox "网页存在!" '说明网页存在
End If
End Sub
请参考
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯