Hi
Sorry I don't speak englis very well...
Could someone help me to convert this code tos code vbs or batch ?
Thanks
PAscal
Code:
Private Sub ValeurCarte_LostFocus()
'Déclaration des variables
Dim winShell As New ShellWindows
Dim IE As InternetExplorer
Const stURL As String = "https://ecritf.paytec.ch/"
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
For Each IE In winShell
If IE.LocationURL = stURL Then Exit For
Next IE
If Not IE Is Nothing Then
'Affichage de la fenêtre IE
IE.Visible = True
'On pointe le membre Document
Set IEDoc = IE.Document
'On pointe notre Zone de texte
Set InputGoogleZoneTexte = IEDoc.all("amount")
'On définit le texte que l'on souhaite placer à l'intérieur
InputGoogleZoneTexte.Value = Me.[Valeur Carte]
'On pointe notre bouton
Set InputGoogleBouton = IEDoc.all("pay")
'On simule un clic
InputGoogleBouton.Click
End If
'On libère les variables
Set IE = Nothing
Set IEDoc = Nothing
End Sub