ActiveX et redirection du navigateur IE

**ElCorteX** · 25/07/2007, 17h31

Bonjour,

J'ai inclu dans ma page html un activeX, développé par mes soins en vb6, qui effectue certaines actions. Je voudrai qu'à la fin d'une des actions, l'activeX redirige le navigateur du client. J'ai farfouiller un peu partout et rien à ce sujet... Est ce possible ?

Merci

**Vld44** · 25/07/2007, 21h39

t'es branché au navigateur par un quelconque moyen ?
Tu sais si un navigateur est lancé ?

**ElCorteX** · 26/07/2007, 09h12

Tout dabord, merci de ta réponse.

En fait mon activeX est appelé dans une balise <object> par le navigateur lui même, qui sera bridé à Internet Explorer (je ne sais pas si connaitre la version est nécessaire).

**DarkVader** · 26/07/2007, 10h22

Pour la redirection, ça se fait avec DOM (MSHTML.tlb)
en modifiant document.URL

**Vld44** · 26/07/2007, 10h36

D'acc ... Tu vois il faut que tu expliques un peu le contexte !

D'après ce que je comprends, tu es dans un script de type VBS ou autre, tu instancies ton activex à un moment donné, et une fois sa tâche terminée tu veux qu'il y ait une redirection.

Il faut que tu nous donnes exactement ton langage de script pour qu'on puisse t'aider.

**ElCorteX** · 26/07/2007, 11h14

Encore merci pour vos réponses et escusez moi pour le manque d'information, c'est mes premiers posts pour tout dire.
Donc je développe mon activeX en Visual basic 6, je le charge avec la balise <object> de cette façon (donc en html) :

Code :

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

1
2
3
4
5
6
7
 
<HTML>
    <BODY>
        <OBJECT classid="clsid:2F9498D8-9C6F-4C61-BDBE-4B65F5B77F17" id=IdControl Width='100px' Height='100px'>
        </OBJECT>
    </BODY>
</HTML>

Cet activeX offre la possibilitée au client de sélectionner une de ses imprimantes. Le but est, qu'une fois que l'utilisateur a choisi son imprimante, l'activeX redirige le navigateur sur une autre page avec en paramètre les tailles des marges physiques de l'imprimante. Pour ensuite mettre en forme le document de façon à ce qu'il s'imprime identiquement sur toute les imprimantes.
Donc je cherche à savoir si l'activeX lui même peut rediriger le navigateur IE dans lequel il est chargé.

**DarkVader** · 26/07/2007, 16h29

Envoyé par ElCorteX

.../...
Donc je cherche à savoir si l'activeX lui même peut rediriger le navigateur IE dans lequel il est chargé.

Déjà répondu il me semble, non ?

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'Ouvrir au préalable http://www.google.fr/ dans une session IE
Private Sub Form_Load()
    Dim objIE As Object, objDoc As Object ' HTMLDocument
    Set objIE = EnumShellWindows("Google")
    If TypeName(objIE) <> "Nothing" Then
        Set objDoc = objIE.document
        objDoc.url = "http://msdn2.microsoft.com/en-us/library/ms630310.aspx"
        Set objDoc = Nothing
    End If
    Set objIE = Nothing
End Sub
 
Private Function EnumShellWindows(CaptionFind As String) As Object
    Dim WB As Object, c As Object, i As Long
    Set WB = CreateObject("Shell.Application").Windows
 
    For Each c In WB
        Select Case TypeName(c.document)
            Case "IShellFolderViewDual2"    ' Dossier               '
            Case "HTMLDocument"             'Navigateur Web (IE)    '
                If c.LocationName = CaptionFind Then Set EnumShellWindows = c
            Case Else                       ' ?                     '
        End Select
        i = i + 1
        Debug.Print " FENETRE " & i
        Debug.Print String(50, "-")
        Debug.Print , "Titre : ", c.LocationName
        Debug.Print , "Adresse :", c.LocationURL
        Debug.Print , "Statut : ", c.StatusText
        Debug.Print , "Handle : ", c.hWnd
        Debug.Print String(50, "=")
    Next
 
    Set WB = Nothing
End Function

Evidemment avec Firefox, c'est un autre problème.
Pour IE7, je n'ai jamais testé mais je ne pense pas que cela puisse poser problème,
encore faut-il essayer.

**ElCorteX** · 27/07/2007, 11h27

Merci pour ta réponse DarkVader et désolé de ne pas avoir compris la première. Je vais tester tout ça.

ActiveX et redirection du navigateur IE

VB 6 et antérieur

Discussions similaires

Partager

Partager