gerer une page web

Version imprimable

29/08/2006, 18h38
porthos082

gerer une page web

Bonjour à tous

J'aimerai me lancer dans le dévelloppement d'un programme qui permet de remplacer l'utilisateur pour jouer à un jeu online. Je dois, pour cela, ouvrir des fenetres firefox mais aussi récuperer des infos(chiffres) sur une page en php or je ne trouve pas le moyen de récuperer ces infos.
Il y a-t-il une fonction dont j'ignorerais l'existence?

S'il vous plait, éclairez ma lanterne
29/08/2006, 18h44
SfJ5Rpw8

et vu l'endroit ou tu poste tu ve faire cela en VB6 ou VBA ..? ...
pourquoi firefox... tu sais VB et VBA ont plus d'atomes crochus avec internet explorer...
29/08/2006, 18h51
porthos082

Je vais le faire en VB6 et j'utilise firefox car j'ai déjà une extension en javascript qui ne fonctionne pas sur Internet explorer. Cependant, le programme étant pourra tout utilisé Internet explorer si cela est plus simple à mettre en place.
31/08/2006, 12h36
porthos082

1 pièce(s) jointe(s)

Etant donné le nombre de réponse, je pense ne pas avoir été assez clair.
Je vous fait donc parvenir une page du jeu en question : http://img178.imageshack.us/img178/7259/dorf1ti9.jpg
ainsi que le fichier source en html en pièce jointe. L'information à récupérer est le temps du timer de la ligne 38 qui correspond au terme "Assist." 2 ligne plus haut.
31/08/2006, 12h42
SfJ5Rpw8

j'aurai essayé avec IE.. fais une recherche sur IE et Internet.Explorer sur ce forum... histoire de voir ce que tu trouve...

tiens pour le principe ..:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
' Penser à
' Rajouter la référence "Microsoft Internet control"
' et Microsoft HTML Object libraru
Dim IE As InternetExplorer
 
Sub Lance()
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  IE.Navigate "http://www.travian.fr/"
  While Not IE.ReadyState = READYSTATE_COMPLETE And bAttenteOuverture
      DoEvents
   Wend
End Sub
 
Sub RecupCompteur()
  Dim MonDoc As HTMLDocument
  Dim He As IHTMLElement
  Set MonDoc = IE.Document
  Set He = MonDoc.getElementById("timer1")
  MsgBox He.innerText
End Sub

aprés lancement de la procédure "lance", positionne toi sur la bonne page puis exécute la procédure RecupCompteur..