我的意思就是说，当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  

评论