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