SCANNER DE PORT VB.NET

Commentaire de NHenry le 13/06/2007 16:27:50 administrateur CS

Bonjour,

A la place d'utiliser un Timer, utilise un thread (System.Threading), si tu veux un exemple, recherche sur VBFrance, ou va voir sur mon site :
http://nhen0039.chez-alice.fr/

Commentaire de avatardu062 le 13/06/2007 19:04:57

Arf, c'est la première fois que j'utilise les thread je n'arrive pas encore a l'utiliser dans ce cas la, je vais bosser sa ce soir...

Commentaire de NHenry le 14/06/2007 08:10:22 administrateur CS

Bonjour, presque :

Je pensais plutôt à System.Threading.Thread .

Fais une recherche dans les sources avec le mot "thread", tu verras, tout y est indiqué.

Commentaire de avatardu062 le 14/06/2007 11:40:13

   J'ai modifié plusieurs choses mais cela ne marche toujours pas, en effet il va vite, il fonctionne, il n'y as pas de probleme mais il me dit tout le temps que les ports sont fermes et je ne comprend pas pourquoi !
   Peut-être va t-il trop vite et il n'as pas le temps de monter une connéxion sauf la première, je sais pas...



Dim StartScan As Integer



    'Variable du scanner
    Dim ScanPort As Integer
    Dim Scan As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, _
System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)



    Private Sub BackgroundWorkerScan_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorkerScan.DoWork
        'Définition des variables du Scanner
        Dim host As String
        Dim port As Integer
        Dim BoucleScan As Integer
        Dim CompScan As Integer
        Dim ThreadProgress As System.ComponentModel.BackgroundWorker = CType(sender, System.ComponentModel.BackgroundWorker)
        Dim ThreadResult As System.ComponentModel.BackgroundWorker = CType(sender, System.ComponentModel.BackgroundWorker)

        'Définition ou incrémentation des variables pour le scanner
        host = TextBoxScanIP.Text
        port = TextBoxScanPort.Text
        TextBoxScanPort.Text = ScanPort
        CompScan = 0

        For BoucleScan = 0 To 65000
            CompScan = CompScan + 1
            ScanPort = ScanPort + 1 'ScanPort est pour le timer

            Dim hostadd As System.Net.IPAddress = System.Net.Dns.GetHostEntry(host).AddressList(0)
            Dim EPhost As New System.Net.IPEndPoint(hostadd, port)
            Try
                Scan.Connect(EPhost)
            Catch
            End Try
            ThreadProgress.ReportProgress(1)

        Next BoucleScan
    End Sub



    Private Sub BackgroundWorkerScan_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorkerScan.ProgressChanged
        ProgressBarMain.Value = e.ProgressPercentage / 650

        'Définition des variables du Scanner
        Dim host As String
        Dim port As Integer
        Dim CompScan As Integer

        'Définition ou incrémentation des variables pour le scanner
        host = TextBoxScanIP.Text
        port = TextBoxScanPort.Text
        TextBoxScanPort.Text = ScanPort
        CompScan = 0

        If Not Scan.Connected Then
            ListBoxScan1.Items.Add("Port " + port.ToString + " est fermé...")
        Else
            ListBoxScan1.Items.Add("Port " + port.ToString + " est ouvert !")
            ListBoxScan2.Items.Add(port.ToString)
        End If
        lblScanOpenPort.Text = "Ports ouvert : " + ListBoxScan2.Items.Count.ToString
    End Sub

Commentaire de avatardu062 le 14/06/2007 13:42:31

For BoucleScan = 1 To 65000
            CompScan = CompScan + 1
            ScanPort = ScanPort + 1 'ScanPort est pour le timer
            port = BoucleScan

            Dim hostadd As System.Net.IPAddress = System.Net.Dns.GetHostEntry(host).AddressList(0)
            Dim EPhost As New System.Net.IPEndPoint(hostadd, port)
            Try
                Scan.Connect(EPhost)
            Catch
            End Try
            ThreadProgress.ReportProgress(1)

        Next BoucleScan

   Merci, en effet j'avais oublié d'assigner cette variable, mais il y a 2 problème, le scanner est presque aussi lent qu'avec le Timer (2 port/s), et dès qu'il trouve le premier port ouvert il recommence à speedé sans vérifier si les port sont ouvert :/
   J'avais pourtant réussi à faire un très bon scanner en VB6 (plus de 175 ports/s) mais pour l'instant je n'ai pas une assez bonne connaissance en VB.Net afin d'améliorer se scanner et à mon avis j'utilise une mauvaise méthode...
   Je me pencherai sur le problème ce soir ou demain soir et si cela ne marche pas j'essayerai de trouver une source toute faite, parfois sa fait pas de mal de copier :) afin de mieux comprendre.

   PS: Le scanner marche mais est très lent (2 a 3 ports/s)

Commentaire de NHenry le 14/06/2007 13:56:14 administrateur CS

A la place de n'utiliser qu'une seul Thread, utilises-en plusieurs.

Commentaire de OneHacker le 15/06/2007 11:36:41

TOute façon t'a oublié le zip car si on doit tout refaire le projet et changer les noms c'est pas terrible.

Commentaire de fdiedler2000 le 15/06/2007 23:46:34

Quand ton projet marchera, dis le nous mais vérifie au moins que ca marche :)

++

Commentaire de fdiedler2000 le 16/06/2007 19:55:30

Marche pas chez moi, il me dit que tous mes ports sont fermés alors que c'est pas possible ! Pourquoi ?

Commentaire de fdiedler2000 le 17/06/2007 11:19:39

J'ai la version win XP SP2 et ca marche pas :(

Commentaire de avatardu062 le 17/06/2007 13:00:42

   Voila, j'ai mis en ligne la source (de base) à télécharger afin que vous puissez facilement testez la source, la modifier, la comprendre et la compiler ...
   Je n'ai pas travailler le design, je l'ai simplifier au maximum afin de faciliter la compréhension.

Commentaire de allthew3 le 30/06/2007 11:47:11

merci !
exactement ce que je cherchais !
(bon pour mon utilisation faut modifier des trucs mais ça fonctionne parfaitement !)
merci bien @++

Commentaire de OneHacker le 30/06/2007 13:48:45

Désolé pour le double post mais on peut pas édité.

Il me dit que le port 80 est fermé alors que je suis sur ce site et d'autres sites.

Commentaire de allthew3 le 30/06/2007 16:23:00

par contre vous seriez pas comment accéler un peu tout ça ?
multithreading oui mais où ?

merci encore pour la source très utile ^^

Commentaire de OneHacker le 30/06/2007 17:10:05

Pour le multithreading déjà j'essaye de faire du monothreading car c'est lent, ne pas passer par un timer mais une boucle dans un thread aussi je vais faire un importation de port et description(idée en regarde le programme NetBrute)

Ensuite vais essayer que le programme puisse détecter l'IP locale(pas l'IP dans le programme qui est une IP locale résau je crois)

Et l'IP FAI(dite publique).

Je vous tiens au courant.

Commentaire de hvb le 02/07/2007 00:55:47

remarque, mieux, pourquoi ne pas utiliser la méthode asynchrone BeginConnect...?