正文

如何判断本机是否可以打开某一个网址?2006-05-20 17:48:00

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/stef/14397.html

分享到:

我的意思就是说,当ie打不开如“http://csdn.net/expert”时,跳转到打开“www.google.com”这个网址        谢了,在线等  ---------------------------------------------------------------   可能会慢一些   Option  Explicit  Private  Declare  Function  ShellExecute  Lib  "shell32.dll"  Alias  "ShellExecuteA"  (ByVal  hWnd  As  Long,  ByVal  lpOperation  As  String,  ByVal  lpFile  As  String,  ByVal  lpParameters  As  String,  ByVal  lpDirectory  As  String,  ByVal  nShowCmd  As  Long)  As  Long   Private  Sub  Command1_Click()         Command1.Enabled  =  False         txStatus.Text  =  ""          If  Len(Inet1.OpenURL("http://www.ourfly.com"))  <>  0  Then                 txStatus.Text  =  "已经与  Internet  连接"         Else                 txStatus.Text  =  "尚未与  Internet  连接"                 ShellExecute  0&,  vbNullString,  "www.google.com",  vbNullString,  vbNullString,  1         End  If                  Command1.Enabled  =  True  End  Sub  

阅读(3598) | 评论(0)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

暂无评论
您需要登录后才能评论,请 登录 或者 注册