Discussion :

[tese84]

Bonjour à tous
j'aimerai recupérer des variables qui se trouve dans une page php.
Ces variable devront etre recuperer dans un script vbs et lancer des truc
Donc pour l'instant je commence petit je demande juste de m'afficher une msgbox lorsque j'appuie sur le bouton activé de ma page php et la!! le drame rien ne se passe
voici ma fonction vbscript qui se trouve dans ma page php

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
 <script language="VBScript">
<!--
sub active_OnClick
ready=1 
End Sub
Sub Window_OnLoad()
ready=0 
End Sub
 
 
 
Public Function CheckVal()
CheckVal = ready
End function
-->
</script>

voici le bouton activé qui se trouve dans ma page php

Code :

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

1
2
 
<td><input type="button" name="active" value="activé"  /></td>

Et enfin voici mon script vbs ou je recupere normalement ma variable

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
set objIE=wscript.createobject("InternetExplorer.application","IE_")
Set shell = WScript.CreateObject("WScript.Shell")
 
objIE.navigate "c:\www\gestionabsence\absence.php"
 
On Error Resume Next 
Do 
WScript.Sleep 100
Loop While (objIE.Document.Script.CheckVal() = 0)
shell.AppActivate "Gestion des absences"
test = objIE.Document.Script.CheckVal()
If test = 1 Then 
 
msgbox "On a appuyé sur activé"
end if

je comprends pas d'ou vient mon probléme
merci pour tous ceux qui peuvent m'aider

[ced600]

As tu initialisé ready à 0 ? As tu vérifier qu'au départ ready vaut bien 0 et non autre chose?

[tese84]

le probleme c'est que dans ma page php je n'arrive pas a savoir si ma variable vaut o ou 1 car lorsque j'appuie sur le bouton rien ne se passe

Code :

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

1
2
3
4
sub active_OnClick
ready=1 
wscript.echo ready
End Sub

mais si je remplace "wscritp.echo" par msgbox j'ai la msgbox qui apparait mais j'ai rien dedans mais par contre mais ce qui veut bien dire que le lien entre le bouton et ma fonction vbs fonctionne puisque j'ai une msgbox qui apparait lorsque j'appuie sur le bouton activé
je sais que pour reinitialiser ma variable ready il faut utiliser la procedure suivante

Code :

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

1
2
3
4
 
Sub Window_OnLoad()
ready=0 
End Sub

[ced600]

essaye cela :

Code :

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

1
2
3
Do 
WScript.Sleep 100
Loop While (objIE.Document.Script.CheckVal() <> 1)

[ced600]

tu lances bien ton script de récupération de la valeur de ready avant d'appuyer sur le bouton ?

[tese84]

voila ce que je viens de m'apercevoir quand je lance le script avant d'utiliser ma page php j'ai une erreur internet explorer et elle me ferme ma fenetre ie
l'erreur vient de cette ligne

Code :

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

1
2
3
 
 
objIE.navigate "c:\www\gestionabsence\absence.php"

par contre si je renome ma destination par absence.html et que je lance le script + d'erreur et en + si je lance ma page absence.html et j'appuie sur le bouton activé j'ai ma variable qui apparait a 1 mais mon algo dans mon script ne se lance pas
voici le script

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
 
set objIE=wscript.createobject("InternetExplorer.application","IE_")
Set shell = WScript.CreateObject("WScript.Shell")
 
objIE.navigate "c:\www\gestionabsence\absence.html"
shell.AppActivate "Gestion des absences"
On Error Resume Next 
Do 
WScript.Sleep 100
Loop While (objIE.Document.Script.CheckVal() <> 0)
 
test = objIE.Document.Script.CheckVal ()
If test = 1 Then 
 
msgbox"On a appuyé sur activé"
end if

donc maitenant j'ai l'impression d'avoir 2 problemes
1 le script ne veut pas s'excuter avec une page en .php
2 la variable n'arrive pas à mon script