Discussion :

[sizzlarr]

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 :

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
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 :

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

<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

[tsuji]

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

Il est possible, tout à fait. La raison qu'il n'etait pas marché est à cause d'un typo ici.

For Each b In IE.Document.GetElementsByTName("input")

Il doit être evidemment ceci, bien entendu.

Code :

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

For Each b In IE.Document.GetElementsByTagName("input")

Toutefois, vous pouvez fournir une expression plus précise comme ça.

Code :

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

For Each b In IE.Document.getElementById("BA").GetElementsByTagName("input")

Juste quelques remarques supplémentaires.

Quand on fait comparer le parcours, il faut faire attention si le navigateur ne allait pas mettre les caractères supplémentaires ou non par lui-même. Dans ce cas où tous les parcours sont absolus, cela ne poserait aucun problème, heureusement.

Et puis, quand on fait soumettre la forme par automatisation comme le cas-ci, le serveur va reçevoir les données de (x,y) toujours (0,0).

Code :

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

1
2
Request.Form("CpfzPU0t3TR.x")    '=0
Request.Form("CpfzPU0t3TR.y")    '=0

Si l'auteur de l'application n'aimait pas qu'on la soumet par un robot, il peut facilement rejeter les soumissions de ce genre.

Voilà!