accés à la page d'un site

**epaminondas** · 21/04/2008, 10h32

Bonjour,
j'essaie, avec un programme VBA de franchir les différentes pages d'un site qui n'est pas le mien mais auquel j'accède normalement, dans le cadre de mon activité de bénévole.
J'arrive à une page ou le code source affiche Href="Mission/menu.asp".
Est-ce que le programme suivant me permet de progresser ?

Dim xmlHttp As new XMLHTTPRequest
Dim xmlDoc As DOMDocument
'On ouvre la connexion POST (ou GET) avec le serveur web
xmlHttp.Open "POST", "http://localhost/xmlcode/menu.asp", False
'On établit la connexion
xmlHttp.Send
'On reçoit la réponse Set xmlDoc = xmlHttp.responseXML

Merci de me répondre.

**Immobilis** · 23/04/2008, 00h24

Salut,

Tu peux expliquer un peu plus stp? Je comprend pas bien.

A+

**epaminondas** · 23/04/2008, 08h23

Bonjour Immobilis,
je suis dans une association de bénévoles et je travaille sur un programme, sur un intranet, qui nous sert à établir des conventions besoins propres de l'équipe. Pour les besoins propres de l'équipe avec laquelle je travaille, il faut que je mette en place, avec VBA, un pogramme , en amont et en aval,mais en intégrant ce programme "convention" sans toucher à lui (programme établi par un consultant extérieur).
J'ai remarqué que les boîtes de dialogue fonctionnaient comme des formulaires.
Je pourrai donc renseigner les zones avec les informations que j'aurai intégré dans mon programme amont et je reprendrai la main après pour le traitement aval (lettres de transmission, édition de documents, etc.
J'ai pénétré dans la première partie du programme (page authentification) grâce aux input du code source et au fait que j'ai les accréditations nécessaires.
Mais je débouche sur une page de menus ou je n'ai plus d'input. L'item auquel je voudrais accéder s'appelle Missions et le code source est le suivant :

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
<html>
<head>
<link type="text/css" rel=stylesheet href="../CSS/style_ie.css">
<title>Page principale</title>
</head>
<body>
<center>
<table cellpadding="0" cellspacing="0" border="0" width="100%">
  <tr>
	<td><img src="..\img\logo_ecti.gif" border="0" ></td>
	<td valign="bottom" align="right"><img src="..\img\professionnels_seniors.gif" border="0" ></td>
  </tr>
  <tr><td colspan="2"><hr></td></tr>
  <tr><td colspan="2" align="center"><img src="..\img\titre_menu.gif"></td></tr>
  <tr><td colspan="2"><hr></td></tr>
  <tr>
    <td align="right" valign="top">
 
<table cellpadding="5" cellspacing="0" border="0">
<!--
<tr>
  <td align="right"><a class="aAction" href="News/display.asp"><img src="../img/icone_news.gif" border="0"></a></td>
  <td><a class="aAction" href="News/display.asp"><font size="4">LES NOUVELLES</font></a></td>
</tr>
-->
<tr>
  <td align="right"><a class="aAction" href="Presse/display.asp"><img src="../img/icone_journal.gif" border="0"></a></td>
  <td><a class="aAction" href="Presse/display.asp"><font size="4">REVUE DE PRESSE</font></a></td>
</tr>
<tr>
  <td align="right"><a class="aAction" href="GestionDoc/fileslisting.asp" onclick="window.open('GestionDoc/newDocs.asp','NouveauxDocuments','width=500,height=450,left=350,top=350,scrollbars=yes,titlebar=no')"><img src="../img/icone_gestion_explorer.gif" border="0"></a></td>
  <td><a class="aAction" href="GestionDoc/fileslisting.asp" onclick="window.open('GestionDoc/newDocs.asp','NouveauxDocuments','width=500,height=450,left=350,top=350,scrollbars=yes,titlebar=no')"><font size="4">DOCUMENTS ECTI</font></a></td>
</tr>
<tr>
  <td align="right"><a class="aAction" href="OrganisationSimple/menu.asp"><img src="../img/icone_organigramme.gif" border="0"></a></td>
  <td><a class="aAction" href="OrganisationSimple/menu.asp"><font size="4">DEMANDE D'EXPERT & RECHERCHE RAPIDE<br>DELEGATIONS ET EXPERTS</font></a></td>
</tr>
 
<tr>
  <td align="right"><a class="aAction" href="PersonnesMoralesSimple/filtre.asp"><img src="../img/icone_clients.gif" border="0" align="center"></a></td>
  <td><a class="aAction" href="PersonnesMoralesSimple/filtre.asp"><font size="4">RECHERCHE DE PERSONNES MORALES</font></a></td>
</tr>
 
<tr>
  <td align="right"><a class="aAction" href="Organisation/menu.asp"><img src="../img/icone_organigramme_general.gif" border="0"></a></td>
  <td><a class="aAction" href="Organisation/menu.asp"><font size="4">LES PERMANENCES D'ECTI</font></a></td>
</tr>
 
<tr>
  <td align="right"><a class="aAction" href="motDePasse/modif.asp?NumExp=14298"><img src="../img/icone_mot_passe.gif" border="0" align="center"></a></td>
  <td><a class="aAction" href="motDePasse/modif.asp?NumExp=14298"><font size="4">INFO PERSONNELLES ET MOT DE PASSE</font></a></td>
</tr>
</table>
 
</td>
<td>
 
 
<table cellpadding="5" cellspacing="0" border="0">
 
 
<tr>
  <td align="right"><a class="aAction" href="Experts/menu.asp"><img src="../img/icone_experts.gif" border="0"></a></td>
  <td><a class="aAction" href="Experts/menu.asp"><font size="4">LES EXPERTS</font></a></td>
</tr>
 
<tr>
  <td align="right"><a class="aAction" href="PersonnesMorales/menu.asp"><img src="../img/icone_clients_general.gif" border="0" align="center"></a></td>
  <td><a class="aAction" href="PersonnesMorales/menu.asp"><font size="4">GESTION DES PERSONNES MORALES</font></a></td>
</tr>
 
<tr>
  <td align="right"><a class="aAction" href="Missions/menu.asp"><img src="../img/icone_mission.gif" border="0" align="center"></a></td>
  <td><a class="aAction" href="Missions/menu.asp"><font size="4">MISSIONS</font></a></td>:cry:
  <!--
  <td align="right"><a class="aAction" href="#"><img src="../img/icone_mission.gif" border="0" align="center"></a></td>
  <td><a class="aAction" href="#"><font size="4">MISSIONS</font></a><br>La gestion des missions est exceptionnellement<br> indisponible le 2 et le 3 mars 2006.</td>
  -->
</tr>
<!--
<tr>
  <td align="right"><a class="aAction" href="NotesDeFrais/menu.asp"><img src="../img/icone_notesfrais.gif" border="0" align="center"></a></td>
  <td><a class="aAction" href="NotesDeFrais/menu.asp"><font size="4">NOTES DE FRAIS</font></a></td>
</tr>
-->
   </table>
  </td>
</tr>
<tr><td colspan="2"><br><hr></td></tr>
</table>
<center>
</body>
</html>

Faut-il simplement ouvrir un fichier.asp pour accéder à la page suivante ?
Que faut-il faire pour accéder à ce menu ?

J'espère que c'est plus clair.
Merci de me répondre.

**epaminondas** · 25/04/2008, 09h24

salut Immobilis,
je crois avoir progressé en utilisant un FileSsystemObject, mais je dois mal l'utiliser car je débouche sur une erreur 424 : "objet requis".
Voila le programme :
'Créer un objet
Dim FSO, fnm

Set FSO = CreateObject("Scripting.FileSystemObject")

'Composer le chemin complet du fichier
Set fnm = FSO.GetFile(server.MapPath("Missions/menu.asp/"))

'Attention au \

'Vérifier que ce fichier existe bien et l'ouvrir
If FSO.FileExists(fnm) Then Set inF = FSO.OpenTextFile(fnm, 1, False)

' Lire tout le fichier d'un coup
fnm = inF.readAll

Je devrais déboucher sur le menu, non ?

Peux-tu m'aider ?
Merci

**roro06** · 25/04/2008, 09h43

Bonjour

Mis a part

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Le reste me semble correct

**epaminondas** · 25/04/2008, 17h48

Salut RORO06,
Je l'avais bien mis puisque c'est l'instruction, mais VBA ne le reconnait pas et me déclare une valeur inconnue, d'ailleurs il ne corrige pas les erreurs minuscule, majuscules.
Et quand je fais des dim comme tu vois, ci-dessous, il me déclare objet requis.

'Créer un objet
Dim FSO, fnm, Server, inf

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

'Composer le chemin complet du fichier
Set fnm = FSO.GetFile(Server.MapPath("Missions/menu.asp/"))

'Attention au \

'Vérifier que ce fichier existe bien et l'ouvrir
If FSO.FileExists(fnm) Then Set inf = FSO.OpenTextFile(fnm, 1, False)

' Lire tout le fichier d'un coup
fnm = inf.readAll

S'agit-il d'un complot international ?

accés à la page d'un site

ASP

Discussions similaires

Partager

Partager