Discussion :

[PiPo123]

Bonjour,

Je veux faire une recherche dans le code source d'une page web avec une extension .php dans mon cas c'est ici -> https://web.tmxmoney.com/earnings_cal.php

Ce n'est pas le code source du fichier .php mais bien le code envoyé pour créer la page web.

J'ai bien essayé avec ces deux exemples mais ce n'est pas la bonne approche, ça fonctionne pas les extensions .php

Code :

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

1
2
3
4
5
6
7
 
using (WebClient client = new WebClient())
{
  //string htmlCode = client.DownloadString("http://google.com");                             // Fonctionne parfaitement
  string htmlCode = client.DownloadString("http://web.tmxmoney.com/earnings_cal.php");       // La connexion sous-jacente a été fermée : Une erreur inattendue s'est produite lors de l'envoi.
 textBox1.Text = htmlCode;
}

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
string URL = "http://web.tmxmoney.com/earnings_cal.php";     // La connexion sous-jacente a été fermée : Une erreur inattendue s'est produite lors de l'envoi.
string URL = "http://google.com";                           // Fonctionne parfaitement
 
HttpWebRequest request = (HttpWebRequest)WebRequest.Create(URL);
 
HttpWebResponse response = (HttpWebResponse)request.GetResponse();
 
StreamReader sr = new StreamReader(response.GetResponseStream());
textBox1.Text = sr.ReadToEnd();
sr.Close();

Je veux voir la même chose que quand on clique sur Affichage -> Source dans IE après avoir chargé la page https://web.tmxmoney.com/earnings_cal.php


Quelqu'un a-t-il une idée de comment faire ?

[hackoofr]

Avec ce vbscript ça marche bien chez moi

Code vbs :

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
Option Explicit
Dim URL,Save2File,fso,Ws
URL = "https://web.tmxmoney.com/earnings_cal.php"
Save2File = "HTML_Code_earnings_cal.txt"
Call Download(URL,Save2File)
Set Ws = CreateObject("wscript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Save2File) Then Ws.Run Save2File
Set fso = Nothing
Set Ws = Nothing
Wscript.Quit()
'***********************************************************************************************
Sub Download(URL,Save2File)
    Dim File,Line,BS,ws
    On Error Resume Next
    Set File = CreateObject("WinHttp.WinHttpRequest.5.1")
    File.Open "GET",URL, False
    File.Send()
    If err.number <> 0 then
        Line  = Line &  vbcrlf & "Error Getting File"
        Line  = Line &  vbcrlf & "Error " & err.number & "(0x" & hex(err.number) & ") " &  vbcrlf &_
        err.description
        Line  = Line &  vbcrlf & "Source " & err.source 
        MsgBox Line,vbCritical,"Error getting file"
        Err.clear
        wscript.quit
    End If
    If File.Status = 200 Then ' File exists and it is ready to be downloaded
        Set BS = CreateObject("ADODB.Stream")
        Set ws = CreateObject("wscript.Shell")
        BS.type = 1
        BS.open
        BS.Write File.ResponseBody
        BS.SaveToFile Save2File, 2
    ElseIf File.Status = 404 Then
        MsgBox "File Not found : " & File.Status,vbCritical,"Error File Not Found"
    Else
        MsgBox "Unknown Error : " & File.Status,vbCritical,"Error getting file"
    End If
End Sub
'***********************************************************************************************

[PiPo123]

Pas mal du tout hackoofr mais je ne suis un expert avec les scripts VBS et je voulais le faire en C# mais je peux appeler ce script à partir de C# je pense et ensuite examiner le fichier .txt.

Maintenant comme tu semble très bon avec les scripts .vbs serait-ce possible de le modifier non pas pour afficher le code source mais pour rechercher une chaine dans le code source et si on trouve la chaine on affiche un boite dialogue. Je mettrais ce script dans mon répertoire de démarrage pour une exécution automatique au démarrage.

Merci c'est déjà super.

[hackoofr]

C'est quoi la chaîne à rechercher dans le code HTML ?

[PiPo123]

Bon il y aurait plusieurs chaines qui correspondent au titres listés sur la page des relevés trimestriels des actions en bourse, pour fin d'exemple disons
Hydropothecary et Canopy

Je trouve ça bizarre que le fichier txt soit affiché automatiquement je ne vois rien dans le code qui fait ça. Idéalement il ne devrait afficher que la boite de dialogue disant que la(les) chaine(s) sont trouvés


Merci, bye.

[hackoofr]

Je trouve ça bizarre que le fichier txt soit affiché automatiquement je ne vois rien dans le code qui fait ça.

Code vbs :

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

If fso.FileExists(Save2File) Then Ws.Run Save2File

[DotNetMatt]

J'ai bien essayé avec ces deux exemples mais ce n'est pas la bonne approche, ça fonctionne pas les extensions .php

Ton code ci-apres fonctionne correctement, ca ne fait pas de discrimination selon le type de fichier...

Code C# :

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

1
2
3
4
5
6
7
8
9
10
string URL = "http://web.tmxmoney.com/earnings_cal.php";     // La connexion sous-jacente a été fermée : Une erreur inattendue s'est produite lors de l'envoi.
string URL = "http://google.com";                           // Fonctionne parfaitement
 
HttpWebRequest request = (HttpWebRequest)WebRequest.Create(URL);
 
HttpWebResponse response = (HttpWebResponse)request.GetResponse();
 
StreamReader sr = new StreamReader(response.GetResponseStream());
textBox1.Text = sr.ReadToEnd();
sr.Close();

A noter, l'URL de ton fichier PHP utilise en fait HTTPS, et non HTTP... Donc si tu declares le type de certificat ca peut peut-etre resoudre ton souci :

Code C# :

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

1
2
ServicePointManager.SecurityProtocol = (SecurityProtocolType)768 | (SecurityProtocolType)3072; //768 for TLS 1.1 and 3072 for TLS 1.2
System.Net.ServicePointManager.ServerCertificateValidationCallback = delegate { return true; };

Tu peux aussi tenter de rajouter cette ligne juste avant de declarer ton objet response:

Code C# :

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

request.AutomaticDecompression = DecompressionMethods.GZip | DecompressionMethods.Deflate;

Si ca ne change rien alors peut-etre que tu tombes dans le scenario decrit par EricLaw ici (voir premiere reponse): The underlying connection was closed: - WebClient error

[PiPo123]

Excellent

J'ai ajouté le code suggéré et ça fonctionne parfaitement maintenant.


Merci DotNetMatt



Mais ou est passé le bouton Résolu ?