Un volontaire pour annoncer ses regrets [MAJ]

Délaissée depuis quelques temps, la campagne de regrets a un adepte.

Afin de lui faire honneur, je reprendrai une campagne de récupération d’annonces récentes et ferai un mass mailing. Je n’aurai malheureusement pas les retours…

[MAJ] je récupère depuis le site regionsjob.com les annonces avec un mail pour regretter de ne pas pouvoir répondre à leurs attentes… Déjà plus de 2700 annonces !

[MAJx2] Si vous aussi vous voulez vous mettre au hack de premier niveau de sites web, vous pouvez le faire à mondre frais sous Office grâce au langage VBA et au composent Web Browser (le moteur d’IE). En effet, Office possède son propre langage de macro, qui permet non seulement d’attaquer les applications Office (Word, Excel, etc.) mais aussi créer ses propres programmes avec des formulaires et tout et tout…

Lancez Office, et faites Alt+F11…

Voici un exemple de code pour accéder à une URL et lister son code HTML dans une zone de texte :

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

Private Sub Navigate(sURL As String)

    wb.Navigate sURL
    
    Dim dDeb As Date
    
    dDeb = Now
    
    While wb.ReadyState <> READYSTATE_COMPLETE
        DoEvents
        If DateDiff("s", dDeb, Now()) > 5 Then
            Navigate sURL
            Exit Sub
        End If
    Wend
    
    txt = wb.Document.all(1).innerHTML

End Sub

Amusez-vous bien !