怎么使窗体加载网页失败后使其加载另一个网页

Question

如题
Private Sub Form_Load()
WebBrowser1.Navigate "http://eeff.vicp.cc"
if ??不知道写什么了
End Sub

Answer 1

百度上搜索到的。。希望对你有用
Private strurl As String Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) 
If InStr(1, UCase(URL), "www.163.com") Then Cancel = True 
End Sub Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) 
If InStr(1, UCase(strurl), "www.163.com") Then Cancel = True '如果含http://www.163.com不弹出窗口 
'下面语句是如果访问163，则转百度 
'If InStr(1, UCase(strurl), "www.163.com") Then WebBrowser1.Navigate "http://www.baidu.com" '如果含http://www.163.com，本窗口访问百度 
End Sub 
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) 
strurl = Text 
End Sub

Answer 2

试了半天没是没得，呵呵，对WebBrowser1不了解

Answer 3

  Private   Declare   Function   InternetOpen   Lib   "wininet.dll"   Alias   "InternetOpenA"   (ByVal   lpszAgent   As   String,   ByVal   dwAccessType   As   Long,   ByVal   lpszProxyName   As   String,   ByVal   lpszProxyBypass   As   String,   ByVal   dwFlags   As   Long)   As   Long   
  Private   Declare   Function   InternetOpenUrl   Lib   "wininet.dll"   Alias   "InternetOpenUrlA"   (ByVal   hInet   As   Long,   ByVal   lpszUrl   As   String,   ByVal   lpszHeaders   As   String,   ByVal   dwHeadersLength   As   Long,   ByVal   dwFlags   As   Long,   ByVal   dwContext   As   Long)   As   Long   
  Private   Declare   Function   InternetCloseHandle   Lib   "wininet.dll"   (ByVal   hInet   As   Long)   As   Long   
    
  Private   Const   INTERNET_OPEN_TYPE_PRECONFIG   =   0   
  Private   Const   INTERNET_FLAG_RELOAD   =   &H80000000   
  Private   Const   INTERNET_FLAG_KEEP_CONNECTION   =   &H400000   
  Private   Const   INTERNET_FLAG_NO_CACHE_WRITE   =   &H4000000   
  Dim   checkType   As   Integer   
  Dim   remMsg(2)   As   String   
    
    
    
  Private   Sub   command1_click()   
        Dim   sTmp   As   String   
        Dim   hInet   As   Long   
        Dim   hUrl   As   Long   
        Dim   Flags   As   Long   
        Dim   url   As   Variant   
        hInet   =   InternetOpen(App.Title,   INTERNET_OPEN_TYPE_PRECONFIG,   vbNullString,   vbNullString,   0&)   
        If   hInet   Then   
              Flags   =   INTERNET_FLAG_KEEP_CONNECTION   Or   INTERNET_FLAG_NO_CACHE_WRITE   Or   INTERNET_FLAG_RELOAD   
              hUrl   =   InternetOpenUrl(hInet,   "http://www.baidu.com",   vbNullString,   0,   Flags,   0)   '在这里修改网址   
              If   hUrl   Then   
                    MsgBox   "网址可用",   vbInformation,   "检测连接"   
                    Call   InternetCloseHandle(hUrl)   
              Else   
                    MsgBox   "网址不可用",   vbInformation,   "检测连接"   
              End   If   
        End   If   
        Call   InternetCloseHandle(hInet)   
  End   Sub  
找得了