Appel page PHP via VBS - non affichage de la page PHP

Version imprimable

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:

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:

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 ! :D

26/05/2015, 12h31
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.
26/05/2015, 14h06
carkiko

Citation:

Envoyé par 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.

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.
26/05/2015, 20h51
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 ?
26/05/2015, 21h49
carkiko

Citation:

Envoyé par 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 ?

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

Code:

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 ......:aie:

Citation:
Envoyé par ProgElecT
Code:

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 ......:aie:
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 ?

27/05/2015, 12h17
ProgElecT

Salut

Citation:

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.

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:

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

Citation:

Envoyé par ProgElecT

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.
Citation:
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:

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 :)