Script Internet Explorer

Bonjour,

Je souhaiterais automatiser une action mais je bloque sur la dernière page ou je dois cliquer sur l'image "entrer et voter" !

Visiblement c'est un formulaire imbriqué dans du javascript et la je bloque complétement ! :(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Dim objWshShell,IE,searchStr
 
Set objWshShell = Wscript.CreateObject("Wscript.Shell")
Set IE = CreateObject("InternetExplorer.Application")
REM searchStr = InputBox("Search")
 
With IE
	.Visible = True
	.Navigate "http://www.team-cos.com"
 
	'Wait for Browser
	  Do While .Busy
		WScript.Sleep 100
	  Loop
 
	Dim LinkHref
	Dim a
 
	LinkHref = "http://www.root-top.com/topsite/badcompany2/in.php?ID=247"
 
	For Each a In IE.Document.GetElementsByTagName("A")
	  If LCase(a.GetAttribute("href")) = LCase(LinkHref) Then
		a.Click
		Exit For  ''# to stop after the first hit
	  End If
	Next
 
	Dim LinkHref2
	Dim b
 
	LinkHref2 = "http://img.root-top.com/entrer_voter_fr.png"
 
	For Each b In IE.Document.GetElementsByTName("input")
	  If LCase(b.GetAttribute("src")) = LCase(LinkHref2) Then
		b.Click
		Exit For  ''# to stop after the first hit
	  End If
	Next
 
End With
 
'Force la fermeture de ie
IE.Stop
Do While IE.busy
    Wscript.Sleep 50
Loop
IE.Quit
IE.Quit
Set IE=nothing
 
Wscript.Quit(status)

Est-il possible avec du vbs de cliquer sur cette ligne ? !!! :(

Code:

<div id="BA"><input name="CpfzPU0t3TR" src="http://img.root-top.com/entrer_voter_fr.png" style="border:inherit;background-color:inherit;" type="image"></div>

Merci

Script Internet Explorer - Click