Discussion :

[schoon]

Bonjour,

Je souhaiterais ouvrir une page internet explorer sur le site http://www.themoviedb.org/. Lancer une recherche avec le nom d'un film.
J'ai écris un petit script, mais je débute en VBScript et je crois que le sendkeys n'est pas la solution idéale.
Pourriez vous me donner un petit coup de main.
D'avance merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set objIE = Wscript.CreateObject("InternetExplorer.Application" ) 
objIE.navigate "http://www.themoviedb.org/" 
 
objIE.Visible = true 
 
Do While (objIe.Busy) 
WScript.Sleep 3
Loop 
 
set WshShell = WScript.CreateObject("WScript.Shell" ) 
WshShell.appActivate "Internet Explorer" 
 
WshShell.SendKeys "Matrix"

[SfJ5Rpw8]

tu peu compléter ton code après ton loop par :

Code :

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

1
2
3
set el = objie.Document.GetElementById("search_text")
el.value = "Matrix"
objie.Document.forms(0).submit

[schoon]

Merci beacoup Bbil. Ca fonctionne très bien. Maintenant je vais essayer de comprendre.
Encore merci.