網址URL就是"E:\abc.txt"

我的QQ 1282901719

CLEAR ALL
SET PATH TO "E:\Projects\mytools"
SET PROCEDURE TO "MyTools"
Main()
CLEAR ALL
RETURN 

PROCEDURE Main()
    LOCAL loForm
    loForm = CREATEOBJECT("_Form")
    WITH loForm
        .Caption = "WebBrowser測試"
        .WindowState = 2
        .Show
    ENDWITH
    READ EVENTS
ENDPROC 

DEFINE CLASS _Form AS myForm

    ADD OBJECT Web1 AS OleControl WITH OleClass = "Shell.Explorer.2"
   
    PROCEDURE Arrange
        WITH ThisForm.Web1
            .Top = 0
            .Left = 0
            .Height = ThisForm.Height
            .Width = ThisForm.Width
        ENDWITH
    ENDPROC
   
    PROCEDURE Activate
        DODEFAULT()
        WITH ThisForm.Web1
            .Navigate("http://)
        ENDWITH
    ENDPROC
   
    * 如果定位到http://網頁不成功，則轉向本地index.html網頁，前者定位成功時不會激發本事件
    PROCEDURE Web1.NavigateError(tpDisp, tcURL, tcFrame, tnStateCode, tlCancel)
        This.Navigate("E:\Documents\index.html")
    ENDPROC
   
ENDDEFINE

谢谢你！
在NavigateError里执行了本地的文件。
出现一个情况，就是在网络断开以前打开的网页，它好像是先显示最后一次的网页，然后再显示本地的文件。
删除浏览的历史记录后，就没有这个现象了。这个不知可以解决吗？
还有就是网络是通的，网址不对或网址改了，而程序没有改，这样它就显示网通或电信等的搜索网页，怎么解决？

最後頁面的問題，應該是IE內核帶了緩衝機制，在瀏覽器設置中取消緩存即可。至於顯示搜索網頁，應該是你的網絡服務商重定向了，這不算錯誤，所以本地WebBrowser控件檢測不出來，可以考慮在下載頁面後檢查當前Url是否與當初意圖定位的Url相符來解決。

再麻烦问你，如何检查当前的URL?

DocumentComplet()事件中的url參數就是頁面穩定後的url