Probleme liens WebBrowser

**bubu92** · 27/05/2011, 18h06

Bonjour a tous

un Control WebBrowser IE6 sous VB6.
Aucuns liens ne fonctionne s'ils sont local.
Si j'indique un site Internet ça fonctionne..
J'ai fait plusieurs tests sans succès et
j'arrive au bout d'mes competences..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Form1.WebBrowser1.Document.writeln "<html>"
Form1.WebBrowser1.Document.writeln "<body>"
 
Form1.WebBrowser1.Document.writeln "<a href=c:\test.html>toto1</a></p>"
Form1.WebBrowser1.Document.writeln "<a href=c:/test.html>toto2</a></p>"
Form1.WebBrowser1.Document.writeln "<a href=file:///c:/test.html>toto3</a></p>"
 
Form1.WebBrowser1.Document.writeln "<a href=" & Chr(34) & "c:/test.html" & Chr(34) & ">toto4</a></p>"
Form1.WebBrowser1.Document.writeln "<a href=" & Chr(34) & "file:///c:/test.html" & Chr(34) & ">toto5</a></p>"
 
Form1.WebBrowser1.Document.writeln "</body>"
Form1.WebBrowser1.Document.writeln "</html>"

**bubu92** · 29/05/2011, 12h04

Si j'essai ceci, j'ai un message Javascript "Permission refusé"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Form1.WebBrowser1.Document.writeln "<a href=" & Chr(34) & "javascript:document.location.replace(" & Chr(39) & "file:///c:/test.html" & Chr(39) & ")" & Chr(34) & ">toto</a>"

Si à la place de "file:///c:/test.html" je mets "http://www.google.fr"
ça marche.

Si je mets le fichier "test.html" dans "c:\" et que je specifie "file:///test.html",
ça marche.

**DarkVader** · 29/05/2011, 16h13

Bonjour

Je n'ai pas de problème particulier en pratiquant ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Form_Activate()
    Form1.WebBrowser1.Navigate "about:blank"
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim hDoc As New HTMLDocument, content As String
 
    Select Case URL
        Case "about:blank"
            Set hDoc = Form1.WebBrowser1.Document
            URL = Chr(34) & "file:///E:\phpBB.jpg" & Chr(34)
            content = "<html><body><a href=" & URL & ">toto</a></body></html>"
 
            With hDoc
                .body.innerHTML = content
                'etc
            End With
    End Select
End Sub

**bubu92** · 30/05/2011, 00h27

Merci pour ta reponse DarkVader

j'ai essayé ton code en remplacant ton

"file:///E:\phpBB.jpg"

une fois par

"file:///D:\test.jpg"

, une autre fois par

"file:///C:\test.html"

, mais sans succès

J'ai testé sur 2 pc, 1 avec IE6, l'autre avec IE8, pareil.

Quand on click, rien ne se passe.
Si je fais un click droit sur le lien, j'obtiens pourtant :

"file:///C:/test.html"

Par contre, si je mets

"test.html"

dans c:\ et que j'indique :

"file:///test.html"

ça marche

Il y a un problème quand je spécifie une lettre de lecteur