Discussion :

[carkiko]

Bonjour,

J'ai un petit problème, grâce à mon script VBS j'ouvre une page PHP qui effectue un traitement. Mais je souhaiterais que cela soit transparent pour l'utilisateur, c'est-à-dire qu'il ne voie pas l'affichage de la page PHP.
Est-ce possible ? Si oui, comment faire ...

Code VBS :

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
 
value = demande
if codeRetour <> 1 then			
    value2 = 0
else 
    value2 = 1
    value3 = "Message d'erreur"
end if
 
if value <> "" AND value2 <> "" then
    ' Envoi des informations suite à l'exécution
    Set IE = CreateObject("InternetExplorer.Application")
    IE.visible = 0
    IE.navigate "http://localhost/test.php?numero_demande=""" & value & """" & "&" & "code_err=" &  """"  & value2 &  """"  & "&" & "message_err=" &  """"  & value3 &  """"
    IE.quit
    Set IE = Nothing
end if

Code PHP :

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

1
2
3
4
5
 
$numD = (isset($_GET["numero_demande"])) ? $_GET["numero_demande"] : NULL;
$codeErr = (isset($_GET["code_err"])) ? $_GET["code_err"] : NULL;
$msgErr = (isset($_GET["message_err"])) ? $_GET["message_err"] : NULL;
// Traitement ...

Merci de votre aide !

[ProgElecT]

Salut

Pourquoi, ligne 13, IE.visible = 0 , à la rigueur IE.visible = False bien qu'inutile car par défaut suite à la création de l'instance InternetExplorer l'affichage ne devrait pas se faire.

[carkiko]

Salut

Pourquoi, ligne 13, IE.visible = 0 , à la rigueur IE.visible = False bien qu'inutile car par défaut suite à la création de l'instance InternetExplorer l'affichage ne devrait pas se faire.

Effectivement, cette ligne ne sert à rien.

Le problème que j'ai, c'est que quand le VBS appel le PHP avec les paramètres pour le GET cela ouvre la page PHP et je souhaiterais que celle-ci ne s'ouvre pas.

[ProgElecT]

Je suppose que tu as essayé de mettre IE.visible = False après la ligne IE.navigate et que cela n'a pas résolu le problème ?

[carkiko]

Je suppose que tu as essayé de mettre IE.visible = False après la ligne IE.navigate et que cela n'a pas résolu le problème ?

Exactement cela n'a rien changé. La page s'ouvre toujours...

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
If Value <> "" And value2 <> "" Then
    ' Envoi des informations suite à l'exécution
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True: IE.Top = -IE.Height  ' <------------------ l'ajout -------------------
    IE.navigate "http://localhost/test.php?numero_demande=""" & Value & """" & "&" & "code_err=" & """" & value2 & """" & "&" & "message_err=" & """" & value3 & """"
    IE.quit
    Set IE = Nothing
End If

Des fois ......

[carkiko]

Code :

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

1
2
3
4
5
6
7
8
If Value <> "" And value2 <> "" Then
    ' Envoi des informations suite à l'exécution
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True: IE.Top = -IE.Height  ' <------------------ l'ajout -------------------
    IE.navigate "http://localhost/test.php?numero_demande=""" & Value & """" & "&" & "code_err=" & """" & value2 & """" & "&" & "message_err=" & """" & value3 & """"
    IE.quit
    Set IE = Nothing
End If

Des fois ......

Re-bonjour,

Merci de ton aide, mais ... ce n'est pas ce qu'il me faut ^^ !

Ce VBS à pour optique de fonctionner sur un serveur en tâche planifiée et donc il ne faut pas que la page du navigateur s'ouvre.

Edit: Au pire, si ce n'est pas possible de ne pas ouvrir la page, serait-il possible de la fermer après exécution du code contenu dans celle-ci? Sans ouverture d'une boite de dialogue ?

[ProgElecT]

Salut

il ne faut pas que la page du navigateur s'ouvre.

Personnellement il me semble que cela n'est pas possible.


C'est pourquoi j'avais proposé
IE.Visible = True permet d'initialiser IE.Height
IE.Top = -IE.Height permet de mettre la fenêtre hors de l'écran, donc invisible pour l'utilisateur.

[tsuji]

Il n'est pas souhaîtable de s'en servir d'InternetExplorer.Application sur un serveur, jamais. Pour faire ce genre de manoeuvre, sur un serveur autant que sur un client, il vaut beaucoup mieux de se servir de msxml2.xmlhttp ou quoi que un peu daté winhttp.winhttprequest. C'est comme ça qu'on peut faire.

Code vbs :

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
if value <> "" AND value2 <> "" then
    ' Envoi des informations suite à l'exécution
    surl="http://localhost/test.php?numero_demande=""" & value & """" & "&" & _
        "code_err=" &  """"  & value2 &  """"  & "&" & "message_err=" &  """"  & value3 &  """"
 
    set oxmlhttp=createobject("msxml2.xmlhttp")
    'il vaut mieux utiliser une progid avec une version bien précise après verification faite
    'set oxmlhttp=createobject("msxml2.xmlhttp.6.0")
 
    with oxmlhttp
        .open "GET", surl, false
        .send
    end with
 
    if oxmlhttp.status<>200 then
        'faire quelque chose
    else
        'faire quelque autre chose 
    end if
    set oxmlhttp=nothing
end if

[carkiko]

Salut
Personnellement il me semble que cela n'est pas possible.


C'est pourquoi j'avais proposé
IE.Visible = True permet d'initialiser IE.Height
IE.Top = -IE.Height permet de mettre la fenêtre hors de l'écran, donc invisible pour l'utilisateur.

Merci pour tes explications, cela m'a permis d'apprendre des trucs que je ne connaissais pas.

Il n'est pas souhaîtable de s'en servir d'InternetExplorer.Application sur un serveur, jamais. Pour faire ce genre de manoeuvre, sur un serveur autant que sur un client, il vaut beaucoup mieux de se servir de msxml2.xmlhttp ou quoi que un peu daté winhttp.winhttprequest. C'est comme ça qu'on peut faire.

Code vbs :

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
if value <> "" AND value2 <> "" then
    ' Envoi des informations suite à l'exécution
    surl="http://localhost/test.php?numero_demande=""" & value & """" & "&" & _
        "code_err=" &  """"  & value2 &  """"  & "&" & "message_err=" &  """"  & value3 &  """"
 
    set oxmlhttp=createobject("msxml2.xmlhttp")
    'il vaut mieux utiliser une progid avec une version bien précise après verification faite
    'set oxmlhttp=createobject("msxml2.xmlhttp.6.0")
 
    with oxmlhttp
        .open "GET", surl, false
        .send
    end with
 
    if oxmlhttp.status<>200 then
        'faire quelque chose
    else
        'faire quelque autre chose 
    end if
    set oxmlhttp=nothing
end if

Merci ! C'est exactement ce qu'il me fallait