[R] Validation d'un formulaire avec IE

[Iste]

Salutations,

En ce moment j'ai vraiment peu de temps et aurai aimé automatiser un envoi de formulaire sur un site.
Mais ô joie, le site en question est bourré de JS et autres merdes.
Du coup, pas le temps de fouiller les sources pour trouver la requête qu'il faut...
Enfin bref, j'ai donc pensé utiliser IE pour simuler une action humaine, mais je suis bien loin de maitriser ces fonctions :s

Aussi, si quelqu'un avait un peu de temps, j'aurai aimé avoir un script d'automatisation d'envoi du formulaire de réservation de cette page :
https://www.hotel-bb.com/reservation-hotel
Avec en retour la source de la page d'info que je saurai traiter.

Le code n'a ni besoin d’être léger ou rapide, il tournera que de temps en temps et sur un gros pc.

merci d'avance !

[sksbir]

hello

Je n'ai pas très bien compris ce que tu veux faire... Tu parles d'envoyer un formulaire, et moi, je ne vois que la recherche d'un hotel, puis la réservation de cet hotel..
En tout cas, rien que la 1ere page est déjà coton.
Ceci dit, une fois que tu as choisi l'hotel, on voit que l'URL de la page affichée avec les disponibilités est facile à construire:
Exemple: https://www.hotel-bb.com/reservation-ho ... tsNumber=3
Après quoi, je ne vois pas ce que tu peux encore automatiser, vu que la réponse du site va bien sur dépendre de la disponibilité de l'hotel que tu auras choisi...

Je te laisse le code que j'ai déja écrit juste pour essayer de remplir les champs de la 1ere page... ( la date et le bouton sont vraiment rétifs, je n'ai pas réussi pour eux. OK pour l'hotel et le nombre de nuits...)

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>
#include "Array.au3"


; Register a customer error handler
_IEErrorHandlerRegister("MyErrFunc")

Func MyErrFunc()
    ; Important: the error object variable MUST be named $oIEErrorHandler
    $ErrorScriptline = $oIEErrorHandler.scriptline
    $ErrorNumber = $oIEErrorHandler.number
    $ErrorNumberHex = Hex($oIEErrorHandler.number, 8)
    $ErrorDescription = StringStripWS($oIEErrorHandler.description, 2)
    $ErrorWinDescription = StringStripWS($oIEErrorHandler.WinDescription, 2)
    $ErrorSource = $oIEErrorHandler.Source
    $ErrorHelpFile = $oIEErrorHandler.HelpFile
    $ErrorHelpContext = $oIEErrorHandler.HelpContext
    $ErrorLastDllError = $oIEErrorHandler.LastDllError
    $ErrorOutput = ""
    $ErrorOutput &= "--> COM Error Encountered in " & @ScriptName & @CR
    $ErrorOutput &= "----> $ErrorScriptline = " & $ErrorScriptline & @CR
    $ErrorOutput &= "----> $ErrorNumberHex = " & $ErrorNumberHex & @CR
    $ErrorOutput &= "----> $ErrorNumber = " & $ErrorNumber & @CR
    $ErrorOutput &= "----> $ErrorWinDescription = " & $ErrorWinDescription & @CR
    $ErrorOutput &= "----> $ErrorDescription = " & $ErrorDescription & @CR
    $ErrorOutput &= "----> $ErrorSource = " & $ErrorSource & @CR
    $ErrorOutput &= "----> $ErrorHelpFile = " & $ErrorHelpFile & @CR
    $ErrorOutput &= "----> $ErrorHelpContext = " & $ErrorHelpContext & @CR
    $ErrorOutput &= "----> $ErrorLastDllError = " & $ErrorLastDllError
    MsgBox(0, "COM Error", $ErrorOutput)
    SetError(1)
    Return
EndFunc   ;==>MyErrFunc


Func affiche_infos_objet_HTML($o_refobj)
    $TEXTE = ""

    $oframes = _IEFrameGetCollection($o_refobj)
    $nbobj = @extended
    If @error = 0 Then
        $TEXTE &= $nbobj & " Frames détectées" & @CRLF & "====================="
        For $CPT = 0 To $nbobj - 1
            $otemp = _IEFrameGetCollection($o_refobj, $CPT)
            $INFO = $otemp.href
            $TEXTE &= "Frame " & $CPT & ":lien=" & $INFO & @CRLF
            $INFO = _IEPropertyGet($otemp, "locationurl")
            $TEXTE &= "Frame " & $CPT & ":URL=" & $INFO & @CRLF

        Next
        $TEXTE &= "............." & @CRLF
    Else
        $TEXTE &= "Pas de frames........" & @CRLF
    EndIf

    $otest = _IEFormGetCollection($o_refobj)
    $nbobj = @extended
    If @error = 0 Then
        $TEXTE &= $nbobj & " Forms détectées" & @CRLF & "====================="
        For $CPT = 0 To $nbobj - 1
            $otemp = _IEFormGetCollection($o_refobj, $CPT)
            $INFO = $otemp.name
            $TEXTE &= "Form " & $CPT & ":nom=" & $INFO & @CRLF
        Next
        $TEXTE &= "............." & @CRLF
    Else
        $TEXTE &= "Pas de forms........"
    EndIf

    $otest = _IELinkGetCollection($o_refobj)
    $nbobj = @extended
    If @error = 0 Then
        $TEXTE &= $nbobj & " Liens détectées" & @CRLF & "====================="
        For $CPT = 0 To $nbobj - 1
            $otemp = _IELinkGetCollection($o_refobj, $CPT)
            $INFO = $otemp.href
            $INFO2 = $otemp.innertext
            $TEXTE &= "Lien " & $CPT & ":ref=" & $INFO & ",innertext=" & $INFO2 & @CRLF
        Next
        $TEXTE &= "............." & @CRLF
    Else
        $TEXTE &= "Pas de liens........"
    EndIf

    $otest = _IETableGetCollection($o_refobj)
    $nbobj = @extended
    If @error = 0 Then
        $TEXTE &= $nbobj & " Tables détectées" & @CRLF & "====================="
        For $CPT = 0 To $nbobj - 1
            $otemp = _IETableGetCollection($o_refobj, $CPT)
            $tableau = _IETableWriteToArray($otemp)
            _ArrayDisplay($tableau)
        Next
    Else
        $TEXTE &= "Pas de tables........"
    EndIf


    MsgBox(0, "affiche_infos_objet_HTML", $TEXTE)
EndFunc   ;==>affiche_infos_objet_HTML






; http://www.autoitscript.com/forum/topic/124113-getting-a-reference-to-a-inner-div/
Func _IEGetObjByClass($oIE, $sClass, $sTag = "*")
    Local $aRet[1] = [0]

    Local $allHTMLTags = _IETagNameGetCollection($oIE, $sTag)
    If @error = 0 Then
        For $o In $allHTMLTags
            If IsString($o.className) And $o.className = $sClass Then
                $aRet[0] += 1
                ReDim $aRet[$aRet[0] + 1]
                $aRet[$aRet[0]] = $o
            EndIf
        Next
    EndIf
    Return $aRet
EndFunc   ;==>_IEGetObjByClass




;; $OIE = _IECreate("https://www.hotel-bb.com/reservation-hotel")
$OIE = _IEAttach("https://www.hotel-bb.com/reservation-hotel","URL")
If @error<>0 Then
    $OIE = _IECreate("https://www.hotel-bb.com/reservation-hotel")
EndIf

_IELoadWait($OIE)

;
; la page est réellement chargée quand le 1er élément qu'on y cherche est trouvé( on va supposer que les autres éléments y sont alors aussi...)
$O_Combo_hotel=_IEGetObjById($OIE,"idHotelCombo")
$CPT=200
While ($CPT>0) And (Not(IsObj($O_Combo_hotel)))
    Sleep(50)
    $O_Combo_hotel=_IEGetObjById($OIE,"idHotelCombo")
WEnd

If Not(IsObj($O_Combo_hotel)) Then
    MsgBox(16,"Erreur","Erreur chargement page")
    Exit 8
EndIf

Sleep(1000) ; malgré tout ceci, la page n'est pas finie de charger...

 ; chargement de la valeur "AVIGNON (2) " ( c'est un exemple )
 _IEFormElementOptionSelect($O_Combo_hotel, "AVIGNON (2) ", 1, "byvalue") ; value et text sont identiques dans cette page.


;
; DATE DE BOOKING...
;

;attributes
;class : bookingDateBox
;style : null
;tabindex : 0
;__uiobjectid : 3
;__listener : <INPUT class=bookingDateBox style="WIDTH: 150px" tabIndex=0 value=20/02/12 __uiObjectID="3" __eventBits="6529" so_prevBGColor
;so_prevWidth="156" so_prevTitle>
;__eventbits : 6529
;dimensions
;Width : 156px
;Height : 22px
;Top : 230px
;Left : 218px
;parent structure
;html
;body
;div id="actualContent"
;div class="main"
;table class="container"
;tbodytrtd id="resawidget"
;divdiv id="bookingWidget"
;formtabletbodytrtd

$O_DateBooking=_IEGetObjByClass($OIE,"bookingDateBox")
affiche_infos_objet_HTML($O_DateBooking)
;; _IEFormElementSetValue($O_DateBooking,"28/02/2012")


$O_night_number=_IEGetObjById($OIE,"idNightsNumber")
; chargement de la valeur "AVIGNON (2) " ( c'est un exemple )
_IEFormElementOptionSelect($O_night_number, "2", 1, "byvalue") ; value et text sont identiques dans cette page.



$O_cliquer=_IEGetObjByClass($OIE,"link2")
affiche_infos_objet_HTML($O_cliquer)
;; _IEAction($O_cliquer, "Click")
;; $O_cliquer=_IELinkClickByText($OIE,"Tarifs et disponibilités")

 

[Iste]

Ha mais, ton url marche, etrange, j'avais fais le test justement, et apres changement de navigateur je n'avais pas de page. J'en avais déduis que certaine info devaient etre présentes dans les cookies ou session...

Bah merci bien du coup, t'as sans le comprendre résolu un probleme que j'avais pas en fait ^^

L'idée c'est de récup la liste des chambre dispo pour un hotel et une date, ca m'éviterai de lancer le navigateur juste pour ca chaque foi.

Problème résolu, pour la suite je saurais me démerder...

Désolé pour le temps perdu a essayer de remplir cette s*loprie de formulaire juste immonde :s

[TopXm]

Hello

Ah ben tiens je viens de commencer à faire mumuse sur B&B et en fait je m'amuse pas tant que ça pour récupérer les HotelId

@Iste accessoirement tu voudras bien me montrer comment tu vas gérer le cas STP

[Iste]

j'ai pas le temps de faire un truc poussé, j'ai pris l'url qui m’intéresse a la main, et je découpe a la regexp la source pour avoir mes infos...
Si ca peut intéresser quelqu’un, voici l'architecture du tableau des disponibilités :

► Afficher le texte

Code : Tout sélectionner

<table cellspacing="0">
    <colgroup>
        <col/>
    </colgroup>
    <tbody>
        <tr class="chambresDispoEntete">
            <td align="center">
                <div class="label">
                    Type de chambre
                </div>
            </td>
            <td align="center">
                <div class="label">
                    Descriptif
                </div>
            </td>
            <td align="center">
                <div class="label">
                    Nombre de chambres
                </div>
            </td>
            <td align="center">
                <div class="label">
                    Prix unitaire
                </div>
            </td>
        </tr>
        <tr class="chambresDispo">
            <td align="center">
                <img class="gwt-Image" src="/templates/hotelbb_templates/images/static/pictos/C12F.gif" style="width: 50px; height: 45px;"/>
            </td>
            <td align="left">
                <div class="label">
                    Chambre 1-2 pers. 1 Grand Lit Fumeur
                </div>
            </td>
            <td align="center">
                <img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/stock.gif" style="width: 83px; height: 34px;"/>
            </td>
            <td align="center">
                <div class="label">
                    39,00 €
                </div>
            </td>
            <td align="center">
                <img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/100.gif" style="width: 50px; height: 45px;"/>
            </td>
        </tr>
        <tr class="chambresDispo">
            <td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/static/pictos/C12FH.gif" style="width: 50px; height: 45px;"/></td><td align="left"><div class="label">Chambre 1-2 pers. 1 Grand Lit (Accès Handicapé) Fumeur</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/stock.gif" style="width: 83px; height: 34px;"/></td><td align="center"><div class="label">39,00 €</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/100.gif" style="width: 50px; height: 45px;"/></td></tr>
        <tr class="chambresDispo">
            <td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/static/pictos/C12N.gif" style="width: 50px; height: 45px;"/></td><td align="left"><div class="label">Chambre 1-2 pers. 1 Grand Lit Non Fumeur</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/stock.gif" style="width: 83px; height: 34px;"/></td><td align="center"><div class="label">39,00 €</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/100.gif" style="width: 50px; height: 45px;"/></td></tr>
        <tr class="chambresDispo">
            <td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/static/pictos/C12NH.gif" style="width: 50px; height: 45px;"/></td><td align="left"><div class="label">Chambre 1-2 pers. 1 Grand Lit (Accès Handicapé) Non Fumeur</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/stock.gif" style="width: 83px; height: 34px;"/></td><td align="center"><div class="label">39,00 €</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/100.gif" style="width: 50px; height: 45px;"/></td></tr>
        <tr class="chambresDispo">
            <td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/static/pictos/C22F.gif" style="width: 50px; height: 45px;"/></td><td align="left"><div class="label">Chambre 1-2 pers. 2 Petits Lits Fumeur</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/stock.gif" style="width: 83px; height: 34px;"/></td><td align="center"><div class="label">39,00 €</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/100.gif" style="width: 50px; height: 45px;"/></td></tr>
        <tr class="chambresDispo">
            <td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/static/pictos/C22N.gif" style="width: 50px; height: 45px;"/></td><td align="left"><div class="label">Chambre 1-2 pers. 2 Petits Lits Non Fumeur</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/stock.gif" style="width: 83px; height: 34px;"/></td><td align="center"><div class="label">39,00 €</div></td><td align="center"><img class="gwt-Image" src="/templates/hotelbb_templates/images/Fr/100.gif" style="width: 50px; height: 45px;"/></td></tr>
    </tbody>
</table>   

[TopXm]

Oki

Bon comme je suis joueur j'ai encore fait un truc qui sert à rien, néanmoins si tu as besoin un jour j'ai récupéré la liste des hôtels et leur ID

cela permet derrière, concaténé avec la date et le nombre de personne d'accéder direct au code source d'une page pour un Hôtel en particulier

Je les ai stockés dans un Ini sous la forme Nom Hôtel=HotelID

► Afficher le texteINI des Hôtel B&B

Code : Tout sélectionner

[HOTELS]
B&B Hotel COLMAR=0493
B&B Hotel MULHOUSE=4518
B&B Hotel MULHOUSE Ile Napoléon=0543
B&B Hotel STRASBOURG Nord Artisans=0495
B&B Hotel STRASBOURG Nord Industrie=0531
B&B Hotel STRASBOURG Sud Geispolsheim=4129
B&B Hotel STRASBOURG Sud Ostwald=0387
B&B Hotel Agen=4320
B&B Hotel Bayonne=4120
B&B Hotel Bordeaux Bruges=4403
B&B Hotel Bordeaux Lormont=4080
B&B Hotel Bordeaux Mérignac=4182
B&B Hotel Bordeaux Mios=4527
B&B Hotel Bordeaux Sud=0492
B&B Hotel Pau Lescar=4524
B&B Hotel Perigueux Boulazac=4132
B&B Hotel Clermont Ferrand Gerzat 1=4713
B&B Hotel Clermont Ferrand Gerzat 2=4186
B&B Hotel Clermont Ferrand Le Brezet=0491
B&B Hotel Moulins=4364
B&B Hotel Alençon=4162
B&B Hotel Avranches=4362
B&B Hotel Caen Mémorial=0556
B&B Hotel Caen Sud=4121
B&B Hotel Cherbourg=4123
B&B Hotel Honfleur=4335
B&B Hotel Auxerre 1=4147
B&B Hotel Auxerre 2=4711
B&B Hotel Beaune Nord=4703
B&B Hotel Beaune Sud 1 Palais des Congres=4369
B&B Hotel Beaune Sud 2=0376
B&B Hotel Chalon sur Saone Nord=4287
B&B Hotel Chalon sur Saone Sud=4243
B&B Hotel Dijon Centre=4706
B&B Hotel Dijon Nord=0304
B&B Hotel Dijon Sud 1=4161
B&B Hotel Dijon Sud 2=0162
B&B Hotel Paray le Monial=4708
B&B Hotel Brest Port=4219
B&B Hotel Lorient Caudan=0574
B&B Hotel Lorient Lanester=0344
B&B Hotel Morlaix=0438
B&B Hotel Quimper Nord=0284
B&B Hotel Quimper Sud=4083
B&B Hotel Rennes Est Cesson Sevigne=4318
B&B Hotel Rennes Nord Saint Gregoire=4118
B&B Hotel Rennes Ouest Villejean Champeaux=4512
B&B Hotel Rennes Sud Chantepie=4406
B&B Hotel Saint Brieuc=4145
B&B Hotel Saint Malo Centre La Découverte=0155
B&B Hôtel Saint Malo Saint Jouan=4521
B&B Hotel Vannes Est Chapeau Rouge=4124
B&B Hotel Vannes Ouest=4502
B&B Hotel Blois=4185
B&B Hotel Bourges 1=0550
B&B Hotel Bourges 2=4267
B&B Hotel Chartres 1=0516
B&B Hotel Chartres 2=0564
B&B Hotel Chateauroux 1=4702
B&B Hotel Chateauroux 2=4192
B&B Hotel Dreux=4239
B&B Hotel Orléans=0483
B&B Hotel Tours Nord 1=4067
B&B Hotel Tours Nord 2=0520
B&B Hotel Tours Saint Avertin=4338
B&B Hotel Tours Sud=4094
B&B Hotel Châlons en Champagne=4531
B&B Hotel Reims Bezannes=4526
B&B Hotel Troyes Barberey=4190
B&B Hotel Troyes Saint Parres=0464
B&B Hotel Belfort=4510
B&B Hotel Besancon=4402
B&B Hotel Dieppe Saint Aubin=4354
B&B Hotel Evreux=4511
B&B Hotel Le Havre 1=4419
B&B Hotel Le Havre 2=4241
B&B Hotel Rouen Parc des Expos=4043
B&B Hotel Rouen Saint Etienne Du Rouvray=4204
B&B Hotel Aulnay sous Bois=4519
B&B Hotel Bretigny sur Orge=4148
B&B Hotel Corbeil=4142
B&B Hotel Evry Lisses 1=0526
B&B Hotel Evry Lisses 2=4503
B&B Hotel Goussainville=4387
B&B Hotel Herblay=4146
B&B Hotel La Queue en Brie=4150
B&B Hotel Louveciennes=4143
B&B Hotel Marne la Vallée=4709
B&B Hotel Maurepas=0558
B&B Hotel Montlhery=4171
B&B Hotel Noisy le Grand=0565
B&B Hotel Orgeval=4070
B&B Hotel Orly Chevilly Larue=4500
B&B Hotel Orly Rungis Aéroport=4193
B&B Hotel Paris La Courneuve=4525
B&B Hotel Paris Malakoff Parc des Expostions=4301
B&B Hotel Paris Porte de la Villette=4244
B&B Hotel Paris Saint Denis Pleyel=4520
B&B Hotel Pontault Combault=4149
B&B Hotel Roissy CDG=4216
B&B Hotel Saclay=4141
B&B Hotel Saint Michel sur Orge=0475
B&B Hotel Saint Witz=4340
B&B Hotel Villepinte=0563
B&B Hotel Beziers=4423
B&B Hotel Montpellier 1=0368
B&B Hotel Montpellier 2=4263
B&B Hotel Narbonne 1=4198
B&B Hotel Narbonne 2=4700
B&B Hotel Nimes Centre=4537
B&B Hotel Perpignan Nord=4535
B&B Hotel Perpignan Sud=4066
B&B Hotel Brive la Gaillarde=4710
B&B Hotel Limoges 1=0553
B&B Hotel Limoges 2=0487
B&B Hotel Freyming Merlebach=4508
B&B Hotel Metz Augny=4128
B&B Hotel Metz Jouy aux Arches=0362
B&B Hotel Metz Semecourt=4705
B&B Nancy Frouard 1=4350
B&B Nancy Frouard 2=4701
B&B Nancy Laxou=0496
B&B Hotel Montauban=4506
B&B Hotel Toulouse Basso Cambo=4513
B&B Hotel Toulouse Centre=4194
B&B Hotel Toulouse Cité de l'Espace=4168
B&B Hotel Arras=4517
B&B Hotel Boulogne sur Mer=4217
B&B Hotel Calais Coquelles=4130
B&B Hotel Calais Saint Pierre=4221
B&B Hotel Douai Cuincy=4407
B&B Hotel Dunkerque Centre Gare=4530
B&B Hotel Lens Noyelles Godault=4349
B&B Hotel Lille Centre Grand Palais=4514
B&B Hotel Lille Lezennes=4187
B&B Hotel Lille Seclin=4262
B&B Hotel Lille Tourcoing Centre=4523
B&B Hotel Valenciennes=4516
B&B Hotel Angers 1=4045
B&B Hotel Angers 2=4352
B&B Hotel Cholet=4119
B&B Hotel Laval=4399
B&B Hotel Le Mans Nord 1=0380
B&B Hotel Le Mans Nord 2=4363
B&B Hotel Le Mans Sud=0518
B&B Hotel Nantes Aéroport=4257
B&B Hotel Nantes Centre=4304
B&B Hotel Nantes La Beaujoire=4035
B&B Hotel Nantes La Chapelle=4151
B&B Hotel Nantes Saint Herblain=4504
B&B Hotel Nantes Saint Sebastien=4342
B&B Hotel Saint Nazaire=4107
B&B Hotel Amiens=4218
B&B Hotel Beauvais=4501
B&B Hotel Creil Chantilly=4509
B&B Hotel Saint Quentin=4251
B&B Hotel Chatellerault=4321
B&B Hotel La Rochelle Angoulins=0478
B&B Hotel La Rochelle Centre=4253
B&B Hotel Poitiers 1=4206
B&B Hotel Poitiers 2=0528
B&B Hotel Poitiers 3=4376
B&B Hotel Aix en Provence=0569
B&B Hotel Avignon 1=4265
B&B Hotel Avignon 2=0571
B&B Hotel Brignoles=4707
B&B Hotel Frejus=4280
B&B Hotel Frejus Roquebrune sur Argens=0546
B&B Hotel Hyeres=4334
B&B Hotel Marseille La Valentine=4409
B&B Hotel Marseille La Joliette=4522
B&B Hotel Marseille Estaque=0572
B&B Hotel Orange=4507
B&B Hotel Salon de Provence=4515
B&B Hotel Sophia Antipolis=4532
B&B Hotel Toulon La Seyne sur Mer=0523
B&B Hotel Toulon Ollioules=4712
B&B Hotel Villeneuve Loubet Plage=4211
B&B Hotel Villeneuve Loubet Village=4281
B&B Hotel Annecy=0455
B&B Hotel Chambery=4220
B&B Hotel Grenoble Université=4131
B&B Hotel Grenoble Verlaine=4529
B&B Hotel Lyon Est Aeroport=0369
B&B Hotel Lyon Eurexpo=4316
B&B Hotel Lyon Gambetta=4183
B&B Hotel Lyon Monplaisir=4195
B&B Hotel Lyon Saint Priest=4093
B&B Hotel Lyon Venissieux=4505
B&B Hotel Montelimar=0568
B&B Hotel Saint Etienne=4127
B&B Hotel Valence Nord=4095
B&B Hotel Valence Sud=4704
 

Je me doute que tu en auras pas l'utilité mais bon plutôt que de le jette direct, je le poste

[mikell]

OMG ne me dis pas que tu te les es tapés un par un ...

[TopXm]

Héhé, hello Mikell

OMG ne me dis pas que tu te les es tapés un par un ..

Pire ! Je l'ai codé et quelle galère c'est pour ça que je l'ai posté. en gros j'ai fait
=> Lecture code Source de http://www.hotel-bb.com/reservation-hot ... tel_search
=> Récup des URL pour chaque région (si si même pas peur )
=> A chaque URL de région, même combat, récup du code Source et j'extirpe les infos pour chaque ville
J'avoue, faut être un peu maso

[mikell]

Alors là, et ce même si certaines formes d'aliénation peuvent laisser rêveur.... respect !

[TopXm]

Re

Merci D'autant qu'il n'y avait quasiment aucune page source qui se ressemblait.

Le code est sans aucun doute optimisable à souhait ... Mon but premier était que ça fonctionne, donc j'avoue c'est pas très propre comme code

► Afficher le texteChoper les HotelId de B&B

Code : Tout sélectionner

;
; GetResa pour Iste
;
; Le but est de récupérer tous les ID / Noms des hôtels disponibles
; mais vu que c'est long je les colles dans un fichier Ini
; pour éviter de les recharger à tous les coups

#include <array.au3>

; Transcription HTLM vers Code char de base
; ====> Merci Mat http://autoitscript.fr/forum/viewtopic.php?f=21&t=9009 <====
Global $__HTML_SpecialChars[131][3] = _
    [ _
        [130, "", ""], _
        ['"', '"', '"'], _
        ['&', '&', '&'], _
        ['€', '&#128;', '&euro;'], _
        ['', '&#129;', ''], _
        ['‚', '&#130;', ''], _
        ['ƒ', '&#131;', ''], _
        ['„', '&#132;', ''], _
        ['…', '&#133;', ''], _
        ['†', '&#134;', ''], _
        ['‡', '&#135;', ''], _
        ['ˆ', '&#136;', ''], _
        ['‰', '&#137;', ''], _
        ['Š', '&#138;', ''], _
        ['‹', '&#139;', '<'], _
        ['Œ', '&#140;', ''], _
        ['', '&#141;', ''], _
        ['Ž', '&#142;', ''], _
        ['', '&#143;', ''], _
        ['', '&#144;', ''], _
        ['‘', '&#145;', ''], _
        ['’', '&#146;', ''], _
        ['“', '&#147;', ''], _
        ['”', '&#148;', ''], _
        ['•', '&#149;', ''], _
        ['–', '&#150;', ''], _
        ['—', '&#151;', ''], _
        ['˜', '&#152;', ''], _
        ['™', '&#153;', ''], _
        ['š', '&#154;', ''], _
        ['›', '&#155;', '>'], _
        ['œ', '&#156;', '&oelig;'], _
        ['', '&#157;', ''], _
        ['ž', '&#158;', ''], _
        ['Ÿ', '&#159;', '&Yuml;'], _
        [' ', '&#160;', '&nbsp;'], _
        ['¡', '&#161;', '&iexcl;'], _
        ['¢', '&#162;', '&cent;'], _
        ['£', '&#163;', '&pound;'], _
        ['¤', '&#164;', '&curren;'], _
        ['¥', '&#165;', '&yen'], _
        ['¦', '&#166;', '&brvbar;'], _
        ['§', '&#167;', '&sect;'], _
        ['¨', '&#168;', '&uml;'], _
        ['©', '&#169;', '&copy;'], _
        ['ª', '&#170;', '&ordf;'], _
        ['«', '&#171;', '&laquo;'], _
        ['¬', '&#172;', '&not;'], _
        ['­', '&#173;', '&shy;'], _
        ['®', '&#174;', '&reg;'], _
        ['¯', '&#175;', '&masr;'], _
        ['°', '&#176;', '&deg;'], _
        ['±', '&#177;', '&plusmn;'], _
        ['²', '&#178;', '&sup2;'], _
        ['³', '&#179;', '&sup3;'], _
        ['´', '&#180;', '&acute;'], _
        ['µ', '&#181;', '&micro;'], _
        ['¶', '&#182;', '&para;'], _
        ['·', '&#183;', '&middot;'], _
        ['¸', '&#184;', '&cedil;'], _
        ['¹', '&#185;', '&sup1;'], _
        ['º', '&#186;', '&ordm;'], _
        ['»', '&#187;', '&raquo;'], _
        ['¼', '&#188;', '&frac14;'], _
        ['½', '&#189;', '&frac12;'], _
        ['¾', '&#190;', '&frac34;'], _
        ['¿', '&#191;', '&iquest;'], _
        ['À', '&#192;', '&Agrave;'], _
        ['Á', '&#193;', '&Aacute;'], _
        ['Â', '&#194;', '&Acirc;'], _
        ['Ã', '&#195;', '&Atilde;'], _
        ['Ä', '&#196;', '&Auml;'], _
        ['Å', '&#197;', '&Aring;'], _
        ['Æ', '&#198;', '&Aelig'], _
        ['Ç', '&#199;', '&Ccedil;'], _
        ['È', '&#200;', '&Egrave;'], _
        ['É', '&#201;', '&Eacute;'], _
        ['Ê', '&#202;', '&Ecirc;'], _
        ['Ë', '&#203;', '&Euml;'], _
        ['Ì', '&#204;', '&Igrave;'], _
        ['Í', '&#205;', '&Iacute;'], _
        ['Î', '&#206;', '&Icirc;'], _
        ['Ï', '&#207;', '&Iuml;'], _
        ['Ð', '&#208;', '&eth;'], _
        ['Ñ', '&#209;', '&Ntilde;'], _
        ['Ò', '&#210;', '&Ograve;'], _
        ['Ó', '&#211;', '&Oacute;'], _
        ['Ô', '&#212;', '&Ocirc;'], _
        ['Õ', '&#213;', '&Otilde;'], _
        ['Ö', '&#214;', '&Ouml;'], _
        ['×', '&#215;', '&times;'], _
        ['Ø', '&#216;', '&Oslash;'], _
        ['Ù', '&#217;', '&Ugrave;'], _
        ['Ú', '&#218;', '&Uacute;'], _
        ['Û', '&#219;', '&Ucirc;'], _
        ['Ü', '&#220;', '&Uuml;'], _
        ['Ý', '&#221;', '&Yacute;'], _
        ['Þ', '&#222;', '&thorn;'], _
        ['ß', '&#223;', '&szlig;'], _
        ['à', '&#224;', '&agrave;'], _
        ['á', '&#225;', '&aacute;'], _
        ['â', '&#226;', '&acirc;'], _
        ['ã', '&#227;', '&atilde;'], _
        ['ä', '&#228;', '&auml;'], _
        ['å', '&#229;', '&aring;'], _
        ['æ', '&#230;', '&aelig;'], _
        ['ç', '&#231;', '&ccedil;'], _
        ['è', '&#232;', '&egrave;'], _
        ['é', '&#233;', '&eacute;'], _
        ['ê', '&#234;', '&ecirc;'], _
        ['ë', '&#235;', '&euml;'], _
        ['ì', '&#236;', '&igrave;'], _
        ['í', '&#237;', '&iacute;'], _
        ['î', '&#238;', '&icirc;'], _
        ['ï', '&#239;', '&iuml;'], _
        ['ð', '&#240;', '&eth;'], _
        ['ñ', '&#241;', '&ntilde;'], _
        ['ò', '&#242;', '&ograve;'], _
        ['ó', '&#243;', '&oacute;'], _
        ['ô', '&#244;', '&ocirc;'], _
        ['õ', '&#245;', '&otilde;'], _
        ['ö', '&#246;', '&ouml;'], _
        ['÷', '&#247;', '&divide;'], _
        ['ø', '&#248;', '&oslash;'], _
        ['ù', '&#249;', '&ugrave;'], _
        ['ú', '&#250;', '&uacute;'], _
        ['û', '&#251;', '&ucirc;'], _
        ['ü', '&#252;', '&uuml;'], _
        ['ý', '&#253;', '&yacute;'], _
        ['þ', '&#254;', '&thorn;'], _
        ['ÿ', '&#255;', '&yuml;'] _
    ]

Global $MonIni = @ScriptDir & '\B_And_B_Hotel.ini'
If FileExists($MonIni) Then FileDelete($MonIni)
Global $Host = 'http://www.hotel-bb.com'
Global $URL_H = 'http://www.hotel-bb.com/reservation-hotel/home/hotel_search'
Global $HOTELS[1][2]    ; on vas y coller les noms des hotels et leur ID
Global $Ch, $Ch1, $nPattern, $NbPage = 0

_Load_Url_Hotel()   ;Alimentation du fichier INI

ConsoleWrite(@CRLF & 'Nb Pages : ' & $NbPage & @CRLF)
_ArrayDisplay($HOTELS)

; Lecture des source de B&B
Func _Load_Url_Hotel()
    GUISetCursor(15, 1)
    ; je récup le code source par région puis à c haque région je récup
    $Src = _GetSourceCode($URL_H)
    $Src = StringRegExpReplace($Src, '(?s)(.*?)<td><a id=', '<a id=')
    $Src = StringLeft($Src, StringInStr($Src, '</p>') -5)
    $URL_1 = StringRegExp($Src, '(?s)href="(.*?)">', 3)

    If Not IsArray($URL_1) Then
        ConsoleWrite('Problème de lecture du code source' & @CRLF)
        Exit
    EndIf

    ; A chaque URL on lit la page dans le but de recup l'ID et le nom des villes
    ; Le seul souci c'est qu'il n'y a pas une seule page de code source identique
    ; au finalç afait grave bidouille mais ça a l'air de fonctionner
    $HOTELS[0][0] = 0
    Local $Type
    For $A = 0 To UBound($URL_1)-1
        $Src = _GetSourceCode($Host & $URL_1[$A])
        If StringInStr($URL_1[$A], 'pas-cher') > 0 Then
            $Type = 1
            $nPattern = '<p><a title="B&'
            $Src = 'title="B&' & StringBetween($Src, $nPattern, 'tatayoyoyo')
            $Src = StringLeft($Src, StringInStr($Src, '</a> </p>') -1)
            $URL_2 = StringRegExp($Src, '(?s)title=(.*?)">', 3)
        Else
            $Type = 2
            $nPattern = '<div><span style="font-size: 9pt;">'
            if StringInStr($Src, $nPattern) < 1 Then $nPattern = '<span style="font-size: 9pt;">'
            If StringInStr($Src, $nPattern) < 1 Then $nPattern = '<p><a href='
            $Src = StringBetween($Src, $nPattern, 'tatayoyo')
            $nPattern = '</span></div></p>'
            If StringInStr($Src, $nPattern) < 1 Then $nPattern = '<div>&nbsp;</div>'
            If StringInStr($Src, $nPattern) < 1 Then $nPattern = '<p>&nbsp;</p>'
            If StringInStr($Src, $nPattern) < 1 Then $nPattern = '</div>'
            $Src = StringLeft($Src, StringInStr($Src, $nPattern) -1)
            $URL_2 = StringRegExp($Src, '(?s)href=(.*?)</a>', 3)
        EndIf
        If IsArray($URL_2) Then
            $NbPage += 1
            ConsoleWrite(@CRLF & 'Page : ' & $Host & $URL_1[$A] & @crlf & @CRLF)
            For $B = 0 To UBound($URL_2) -1
                _Array2D_PlusUn($URL_2[$B], $Type)
            Next
        Else
            ConsoleWrite('Page : ' & $Host & $URL_1[$A] & @crlf & @CRLF)
            ConsoleWrite($Src & @CRLF)
            MsgBox(0, '', 'ça m....')
        EndIf
    Next
    GUISetCursor(2, 1)
EndFunc

;J'ajoute un elem dans l'INI / l'array
Func _Array2D_PlusUn($StrHotel, $Type)
;ConsoleWrite($StrHotel & @CRLF)
    If $Type = 1 Then
        $Ch = StringBetween($StrHotel, '"', '"')
        _HTML_StringToChars($Ch)
        $Ch1 = StringBetween($StrHotel, 'hotelId=', '#')
    Else
        $Ch = StringBetween($StrHotel, '">', '"', True)
        _HTML_StringToChars($Ch)
        $Ch1 = StringBetween($StrHotel, 'hotelId=', '#')
    EndIf
    $Ch = StringRegExpReplace($Ch, '   ', ' ', 1)
    If StringInStr($Ch, '<') > 0 Then $Ch = StringLeft($Ch, StringInStr($Ch, '<')-1)
    If StringInStr($Ch1, '<') > 0 Then $Ch1 = StringLeft($Ch1, StringInStr($Ch1, '<')-1)
    If StringInStr($Ch1, '"') > 0 Then $Ch1 = StringLeft($Ch1, StringInStr($Ch1, '"')-1)
    $Ch1 = StringRegExpReplace($Ch1, ' ', '', 1)
    $Ch1 = StringRegExpReplace($Ch1, @CRLF, '', 1)
    If $Ch1 > 0 Then
        $HOTELS[0][0] += 1
        ReDim $HOTELS[$HOTELS[0][0]+1][2]
        $HOTELS[$HOTELS[0][0]][0] = $Ch
        $HOTELS[$HOTELS[0][0]][1] = $Ch1
        IniWrite($MonIni, "HOTELS", $Ch, $Ch1)
        ConsoleWrite($Ch & ' ' & $Ch1 & @CRLF)
    Else
        ConsoleWrite('ERREUR ON ' & $Ch & ' n°=' & $Ch1 & @CRLF & 'Source=' & $StrHotel & @CRLF)
    EndIf
EndFunc

;Lecture code source
Func _GetSourceCode($nUrl)
    Local Const $txt = BinaryToString(InetRead($nUrl, 1), 4)
    ;ConsoleWrite('$url=' & $nUrl & @CRLF & $txt)
    Return $txt
EndFunc   ;==>_GetSourceCode

;Mon StringBetWeen à moi :)
Func StringBetween($nStr, $StrStart, $StrEnd, $StartGetLast = False, $EndGetLast = False)
    If $StartGetLast Then
        Local $nStart = StringInStr($nStr, $StrStart, 0, -1)
    Else
        Local $nStart = StringInStr($nStr, $StrStart)
    EndIf
    Local $Ret = $nStr
    If $nStart > 0 Then $Ret = StringTrimLeft($nStr, $nStart + StringLen($StrStart) - 1)
    If $EndGetLast Then
        Local $nEnd = StringInStr($Ret, $StrEnd, 0, -1)
    Else
        Local $nEnd = StringInStr($Ret, $StrEnd)
    EndIf
    If $nEnd > 0 Then $Ret = StringLeft($Ret, $nEnd - 1)
    Return $Ret
EndFunc   ;==>StringBetween

;UDF taxée à Mat :)
;http://autoitscript.fr/forum/viewtopic.php?f=21&t=9009&p=60829

; ##############################################################

; Remplace tous les caractères spéciaux contenus dans $sString par leur code HTML correspondant
Func _HTML_StringToCode(ByRef $sString)
    For $i = 1 To $__HTML_SpecialChars[0][0]
        If $__HTML_SpecialChars[$i][0] Then
            If $__HTML_SpecialChars[$i][2] Then
                $sString = StringReplace($sString, $__HTML_SpecialChars[$i][0], $__HTML_SpecialChars[$i][2], 0, 1)
            Else
                $sString = StringReplace($sString, $__HTML_SpecialChars[$i][0], $__HTML_SpecialChars[$i][1], 0, 1)
            EndIf
        EndIf
    Next
    ; ---
    Return 1
EndFunc

; Remplace tous les codes de caractères spéciaux contenus dans $sString (code HTML) par le caractère correspondant
; PS: Utile par exemple pour afficher un texte HTML dans un Edit
Func _HTML_StringToChars(ByRef $sString)
    For $i = 1 To $__HTML_SpecialChars[0][0]
;        If $__HTML_SpecialChars[$i][1] Then _
 ;           $sString = StringReplace($sString, $__HTML_SpecialChars[$i][1], $__HTML_SpecialChars[$i][0], 0, 1)
        If $__HTML_SpecialChars[$i][2] Then _
            $sString = StringReplace($sString, $__HTML_SpecialChars[$i][2], $__HTML_SpecialChars[$i][0], 0, 1)
    Next
    ; ---
    Return 1
EndFunc

; ##############################################################

; Converie un caractère spécial en son code HTML correspondant
Func _HTML_CharToCode($Chr)
    If Not $Chr Then Return $Chr
    ; ---
    For $i = 1 To $__HTML_SpecialChars[0][0]
        If $Chr == $__HTML_SpecialChars[$i][0] Then
            If $__HTML_SpecialChars[$i][2] Then
                Return $__HTML_SpecialChars[$i][2]
            Else
                Return $__HTML_SpecialChars[$i][1]
            EndIf
        EndIf
    Next
    ; ---
    Return SetError(1, 0, 0)
EndFunc

; Convertie un code de caractère spécial HTML en son caractère correspondant
Func _HTML_CodeToChr($code)
    If Not $code Then Return $code
    ; ---
    For $i = 1 To $__HTML_SpecialChars[0][0]
        If $code == $__HTML_SpecialChars[$i][1] Or $code == $__HTML_SpecialChars[$i][2] Then
            Return $__HTML_SpecialChars[$i][0]
        EndIf
    Next
    ; ---
    Return SetError(1, 0, 0)
EndFunc
 

[mikell]

Au secours ce mec est un grand malade

Cela dit ce script (même si pas optimisé) est quand même bien sympa et intéressant
Manque juste un Splash pour prévenir que le script n'a pas planté alors qu'en fait il est au boulot

[TopXm]

Au secours ce mec est un grand malade

Maman ! sors du corps de Mikell de suite

[sksbir]

hé bé, je vois qu'on s'amuse ici

Quelqu'un a t'il réussi à coder le script pour passer la page d'accueil après avoir saisi les infos ?
Comme je le disais, je ne suis pas arrivé à simuler la saisie de la date ni le clic sur le bouton de validation...

[TopXm]

Salut Skbir,

Comme je le disais, je ne suis pas arrivé à simuler la saisie de la date ni le clic sur le bouton de validation...

Perso je n'étais pas parti sur cette voie là, donc pour ma part c'est non

[Iste]

Bah content que ce thread ai servi a quelque chose alors ^^
Avec tout ça on pourrait presque créer un UDF b&b :p
Mais bon, leur site peut changer a tout moment et certain risquerai d'en abuser... autant pas déployer autant d’énergie pour ca alors.

Par contre, l'envoi du formulaire a la main reste un bon défis ^^

[sksbir]

Bah content que ce thread ai servi a quelque chose alors ^^
Avec tout ça on pourrait presque créer un UDF b&b :p
Mais bon, leur site peut changer a tout moment et certain risquerai d'en abuser... autant pas déployer autant d’énergie pour ca alors.

Par contre, l'envoi du formulaire a la main reste un bon défis ^^

Oui, c'est un défi, et je me demande vraiment si c'est réalisable.

ça mériterait presque un autre topic sur les outils qu'on utilise pour inspecter les pages qu'on veut manipuler ainsi.
En attendant, j'en fais une petite liste ici :

- modi v2 : A utiliser avec IE : ajoutez le lien dans vos favoris , allez sur la page à inspecter, puis cliquez sur le favoris, il vous affiche alors en plus une fenêtre affichant des infos sur les éléments de la page que vous survolez avec la souris.

- Dom inspector / Firefox : ce plugin permet d'obtenir une arborescence des objets de la page dans une fenêtre séparée. L'objet qu'on inspecte clignote en rouge.

- "afficher le code source" : les navigateurs permettent d'afficher le code source. Si on active cette options via le clic droit pas trop loin de l'objet que vous voulez manipuler, ça peut limiter l'affichage et donc faciliter la recherche dans le code source. exemple : affichage seulement de la frame "intéressante" sur une page avec des frames.