Discussion :

[CLeBeR]

Bonjour,
J'essaye depuis quelques mois de développer un contrôle parental, je bloque cependant sur une fonction que j'aimerais bien arriver à faire, l'analyse du texte sur la page où se trouve l'utilisateur. J'ai réussi à récupérer le code source de la page, ce qui me permet de trouver le texte qui s'y trouve. Cependant l'analyse des mots présents dans cette page peut être faussée par la présence des balises HTML ... J'ai donc pensé à supprimer toutes les balises HTML que récupère mon programme afin d'extraire uniquement le texte. Cette solution me semble correcte.
Mais c'est ici que commence le problème, en effet la récupération du code source est simple car dans mon programme, je défini telle ou telle adresse, il faudrait que l'utilisateur utiliser un navigateur que j'ai fais moi, mais je ne peux pas imposer une telle contrainte, donc peut-on récupérer les URL's des autres navigateurs ou récupérer les URL's (Ou IP) qui transitent sur l'ordinateur local ?
Pensez vous que c'est une bonne solution ou en avez vous une meilleure ? A moins de créer un add-on pour chaque navigateur ...
Merci.

[Ethan 0x21]

Bonjour,


La solution la plus simple serait de creer uniquement un programme mettant à jour le fichier c:\windows\system32\drivers\hosts, avec une liste de site que votre programme aurait identifié comme interdite, aprés une recherche automatique, ainsi il redirigerait les accés a ces adresses sur l'adresse de loopback (127.0.0.1).

Aussi non vous pouvez installer un driver de net filtering tiers, offrant une API permettant de modifier la pile TCP/IP avant les programmes applicatifs que sont les navigateurs.

Cdt

[tomlev]

Pour la lecture du texte, utilise une librairie comme HTML Agility Pack (voir tuto).

Pour la 2e partie, je sais pas trop... tu pourrais sans doute t'enregistrer comme proxy du système, comme le fait Fiddler, mais je suis pas sûr que tu puisses empêcher l'utilisateur de changer le proxy manuellement.

[CLeBeR]

Bonjour Ethan 0x21,
mon programme bloque déjà les sites indésirables via le hosts, ce que je souhaite ajouter c'est une analyse des textes présents sur la page que l'utilisateur est en train de consulter. Une filtre me semble une bonne solution mais cela m'a l'air très complexe pour mon niveau.

Bonjour tomlev,
effectivement sur un autre forum on m'a conseillé l'article de Developpez sur HTML Agility Pack.
On m'a également conseillé de m'enregistrer comme proxy mais je ne sais pas trop comment procéder, en plus de créer le proxy il faut le configurer de façon à ce qu'il filtre le bon et le mauvais. Tu parles de Fiddler qui analyse toutes les connexions entrantes et sortantes, hier parmi mes nombreuses recherches je suis tombé sur son API dont je ne connaissais absolument pas l'existence, j'ai ensuite cherché comment l'utiliser et je suis tombé sur une vidéo où le programmeur arrive dans une listbox à avoir toutes les connexions ! C'est exactement ce qu'il me faut mais je n'arrive pas à l'utiliser car c'est du C# et le code qu'écrit le programmeur ne fonctionne pas.
J'espère que tu pourra m'aider, voici l'API : http://fiddler2.com/fiddlercore
ainsi que la vidéo : https://www.youtube.com/watch?v=-ZCsuJtJc_o
Merci.

[tomlev]

Bah j'ai jamais utilisé FiddlerCore, donc j'en sais pas plus que toi. Il faut explorer l'API, tatonner un peu...
Le fait que la vidéo que tu as trouvé soit en C# ne devrait pas poser de problème, c'est facile à traduire en VB (http://www.developerfusion.com/tools.../csharp-to-vb/)

[DotNetMatt]

Pour la 2e partie, je sais pas trop... tu pourrais sans doute t'enregistrer comme proxy du système, comme le fait Fiddler, mais je suis pas sûr que tu puisses empêcher l'utilisateur de changer le proxy manuellement.

On peut peut-être empêcher l'utilisateur de modifier le proxy en appliquant une LGPO (Local Group Policy Object), qui est le pendant des GPO pour les Workgroups. A tester...

[CLeBeR]

C'est bon j'ai réussi à utiliser l'API de Fiddler (J'utilisais mal Intellisense et le double "Tab"), je suis satisfait du résultat ! Cependant j'ai du développer en C# et comme je dois utiliser des Webbrowser, et quelque bidouillage pour mettre en correspondance mon programme principal qui lui est en VB.NET, j'ai un peu du mal mais avec la motivation et en tonnant, pour l'instant ça va.
Je mettrai mon code final ainsi que le sujet résolu dès que j'ai terminé.

[tomlev]

Cependant j'ai du développer en C#

Pourquoi ça ? Si l'API est utilisable en C#, elle l'est aussi en VB.NET...

[CLeBeR]

Je sais mais quand tu ajoutes la référence en C#, l'API est appelée toute seule, alors qu'en VB.NET rien ne se passe, c'est assez étrange je ne comprends pas pourquoi, d'autant plus que je ne trouve pas de documentation sur le site de Fiddler pour utiliser l'API en VisualBasic.NET.

[CLeBeR]

Bonjour tout le monde,
je pense arrêter d'essayer de programmer avec l'API en C# car je galère trop.
Faire un proxy en VB.NET me semble une bonne solution (d'autant plus que Fiddler est un proxy). Le problème c'est que j'ai déjà cherché sur internet des projets afin d'intercepter le traffic HTTP mais je n'ai rien trouvé de concluant. Auriez-vous déjà été confronté à ce genre de programme ?
Merci d'avance.

[CLeBeR]

Bonjour à tous,
après une longue semaine de recherche, j'ai trouvé comment faire grâce à l'API de Fiddler : FiddlerCore

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
Option Explicit On
Imports Fiddler
Imports System.Net
Imports System.IO
 
Public Class Form1
 
    Dim url As String = Nothing
 
    Public Sub New()
        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
        AddHandler FiddlerApplication.BeforeResponse, AddressOf FiddlerBeforeResponseHandler
        AddHandler FiddlerApplication.BeforeRequest, AddressOf FiddlerBeforeRequestHandler
        AddHandler Application.ApplicationExit, AddressOf ShutdownFiddlerApp
        Dim oFlags As FiddlerCoreStartupFlags = FiddlerCoreStartupFlags.Default
        FiddlerApplication.Startup(0, oFlags)
        MsgBox("Started proxy on port " & FiddlerApplication.oProxy.ListenPort)
    End Sub
 
    Private Sub ShutdownFiddlerApp()
        FiddlerApplication.Shutdown()
        MsgBox("Unloaded proxy")
        Threading.Thread.Sleep(1000)
    End Sub
 
    Private Sub FiddlerBeforeRequestHandler(ByVal tSession As Session)
        RichTextBox1.BeginInvoke(New AsyncMethodCaller(AddressOf AddText), tSession.fullUrl)
    End Sub
 
    Private Sub FiddlerBeforeResponseHandler(ByVal tSession As Session)
    End Sub
 
    Public Sub Verification()
        Try
            ListeMot.AddRange(IO.File.ReadAllLines("C:\Users\Clément\Documents\ListeDeMots.txt"))
            Dim found As Boolean = False
            For Each s As String In ListeMot
                If url.ToLower.Contains("-" & s.ToLower & "-") Or url.ToLower.Contains("." & s.ToLower & ".") Or url.ToLower.Contains("." & s.ToLower & "-") Or url.ToLower.Contains("-" & s.ToLower & ".") Then
                    MsgBox("Un mot interdit dans l'URL a été détecté :" & s)
                End If
            Next
        Catch
        End Try
        Try
            Dim webClient As New System.Net.WebClient
            Dim result As String = webClient.DownloadString(url)
            Dim client As WebClient = New WebClient()
            Dim data As Stream = client.OpenRead(url)
            Dim reader As StreamReader = New StreamReader(data)
            Dim Page As String = reader.ReadToEnd
            ListeMot.AddRange(IO.File.ReadAllLines("C:\Users\Clément\Documents\ListeDeMots.txt"))
            Dim found As Boolean = False
            For Each s As String In ListeMot
                If Page.ToLower.Contains(" " & s.ToLower & " ") Then
                    MsgBox("Un mot interdit a été détecté :" & s)
                End If
            Next
        Catch
        End Try
    End Sub
 
    Dim ListeMot As New List(Of String)
 
    Private Sub AddText(sText As String)
        Dim url2 As Uri
        url2 = New Uri(sText)
        If url2.AbsolutePath.EndsWith(".js") = False And url2.AbsolutePath.EndsWith(".jpg") = False And url2.AbsolutePath.EndsWith(".gif") = False And url2.AbsolutePath.EndsWith(".png") = False And url2.AbsolutePath.EndsWith(".css") = False And url2.AbsolutePath.EndsWith(".ico") = False And url2.AbsolutePath.EndsWith(":443") = False Then
            RichTextBox1.AppendText(sText & vbCrLf)
            url = sText
            Dim Thread As New Threading.Thread(AddressOf Verification)
            Thread.Start()
        End If
    End Sub
 
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
End Class
 
Public Delegate Sub AsyncMethodCaller(sText As String)

[DotNetMatt]

Cool que ça marche ! Pour la LGPO qui empêche l'utilisateur de modifier son proxy, voici celle qu'il faut activer : http://lpakb.stbernard.com/webhelp/O...les/OD0070.htm

Il ne te reste plus qu'à l'appliquer lors de l'installation de ton soft sur le poste de l'utilisateur Bon après bien sûr, si ton utilisateur est admin de son poste, et s'il sait désactiver une LGPO tu n'y pourras pas grand chose, mais bon, il faut se dire que ce n'est pas à la portée de tout le monde.

[CLeBeR]

Cool que ça marche ! Pour la LGPO qui empêche l'utilisateur de modifier son proxy, voici celle qu'il faut activer : http://lpakb.stbernard.com/webhelp/O...les/OD0070.htm

Il ne te reste plus qu'à l'appliquer lors de l'installation de ton soft sur le poste de l'utilisateur Bon après bien sûr, si ton utilisateur est admin de son poste, et s'il sait désactiver une LGPO tu n'y pourras pas grand chose, mais bon, il faut se dire que ce n'est pas à la portée de tout le monde.

Salut,
merci pour l'info, je n'ai pas trouvé pour désactiver uniquement les options de connexion via le registre, mais j'ai trouvé comment bloquer toutes les paramètres d'internet !

[CLeBeR]

PS: Je posterai encore mon code modifié car je suis en train de le modifier afin de l'optimiser, et il faut surtout que je trouve un moyen de filtrer les URL's des vidéos car c'est un flux qui arrive en masse et me fait planter le programme.

[CLeBeR]

Bonjour,

j'ai optimisé encore une fois le code, le programme plantait lors de la lecture de vidéos, trop grand nombre d'URLs...

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
94
95
96
97
Option Explicit On
Imports Fiddler
Imports System.Net
Imports System.IO
Imports Microsoft.Win32
 
Public Class Form1
 
    Dim ListeMots As New List(Of String)
    Dim url As String = Nothing
    Public Delegate Sub AsyncMethodCaller(sText As String)
 
 
 
    Private Sub ShutdownFiddlerApp()
        FiddlerApplication.Shutdown()
        MsgBox("Unloaded proxy")
        Threading.Thread.Sleep(1000)
    End Sub
 
    Private Sub FiddlerBeforeRequestHandler(ByVal tSession As Session)
        RichTextBox1.BeginInvoke(New AsyncMethodCaller(AddressOf AddText), tSession.fullUrl)
    End Sub
 
    Private Sub FiddlerBeforeResponseHandler(ByVal tSession As Session)
    End Sub
 
    Public Sub VerificationPage()
        Try
            Dim webClient As New System.Net.WebClient
            Dim result As String = webClient.DownloadString(url)
            Dim client As WebClient = New WebClient()
            Dim data As Stream = client.OpenRead(url)
            Dim reader As StreamReader = New StreamReader(data)
            Dim Page As String = reader.ReadToEnd
            ListeMots.AddRange(IO.File.ReadAllLines("C:\Users\" & System.Environment.UserName & "\Documents\ListeDeMots.txt"))
            Dim found As Boolean = False
            For Each s As String In ListeMots
                If Page.ToLower.Contains(" " & s.ToLower & " ") = True Or Page.ToLower.Contains("<h1>" & s.ToLower & "</h1>") = True Then
                    RichTextBox1.Clear()
                    MsgBox("Un mot interdit a été détecté :" & s)
 
                End If
            Next
        Catch
        End Try
 
    End Sub
    Public Sub VerificationURL()
        Try
            Dim found As Boolean = False
            For Each s As String In ListeMots
                If url.ToLower.Contains("-" & s.ToLower & "-") = True Or url.ToLower.Contains("." & s.ToLower & ".") = True Or url.ToLower.Contains("." & s.ToLower & "-") = True Or url.ToLower.Contains("-" & s.ToLower & ".") = True Then
                    RichTextBox1.Clear()
                    MsgBox("Un mot interdit dans l'URL a été détecté :" & s)
 
                End If
            Next
        Catch
        End Try
    End Sub
    Private Sub AddText(sText As String)
        RichTextBox1.SelectAll()
        Dim nbrligne As Integer = RichTextBox1.GetLineFromCharIndex(RichTextBox1.SelectionLength())
        If nbrligne > 40 Then
            RichTextBox1.Clear()
        End If
        Dim url2 As Uri
        url2 = New Uri(sText)
        If url2.AbsolutePath.EndsWith(".js") = False And url2.AbsolutePath.EndsWith(".jpg") = False And url2.AbsolutePath.EndsWith(".gif") = False And url2.AbsolutePath.EndsWith(".png") = False And url2.AbsolutePath.EndsWith(".css") = False And url2.AbsolutePath.EndsWith(".ico") = False And url2.AbsolutePath.EndsWith(".jpeg") = False And RichTextBox1.Text.Contains(sText) = False And url2.ToString.Length < 200 = True Then
            RichTextBox1.AppendText(sText & vbCrLf)
            url = sText
            Dim ThreadVerificationPage As New Threading.Thread(AddressOf VerificationPage)
            ThreadVerificationPage.Start()
            Dim ThreadVerificationURL As New Threading.Thread(AddressOf VerificationURL)
            ThreadVerificationURL.Start()
        End If
 
    End Sub
 
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
 
    Public Sub New()
        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
        AddHandler FiddlerApplication.BeforeResponse, AddressOf FiddlerBeforeResponseHandler
        AddHandler FiddlerApplication.BeforeRequest, AddressOf FiddlerBeforeRequestHandler
        AddHandler Application.ApplicationExit, AddressOf ShutdownFiddlerApp
        Dim oFlags As FiddlerCoreStartupFlags = FiddlerCoreStartupFlags.Default
        FiddlerApplication.Startup(0, oFlags)
        MsgBox("Started proxy on port " & FiddlerApplication.oProxy.ListenPort)
 
    End Sub
End Class