VBA to VBs

[paselo]

Hi

Sorry I don't speak englis very well...

Could someone help me to convert this code tos code vbs or batch ?

Thanks

PAscal

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

[jmcilhinney]

This question has nothing at all to do with VB.NET so it doesn't belong in the VB.NET forum. VBScript is not VB.NET. I have asked the mods to move this thread.

[si_the_geek]

Welcome to VBForums

I have moved this thread from the 'VB.Net' forum to the 'VBScript' forum