Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Bloquer un port

Bloquer un port

7 réponses
Avatar
Simplibourse - Cornu Nicolas
Bonjour


J'aimerais bloquer un port, par exemple le port 80.

D'avance merci,


NC
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Il suffit de l'ouvrir (Listen()) puis de refuser les connexions entrantes.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a écrit :

Bonjour


J'aimerais bloquer un port, par exemple le port 80.

D'avance merci,


NC


Avatar
Simplibourse - Cornu Nicolas
Est-ce que tu peux me donner plus de détails.

tu fait réference à l'objet TcpListener ?


NC

"ng" a écrit dans le message de
news:%
Salut,

Il suffit de l'ouvrir (Listen()) puis de refuser les connexions entrantes.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a écrit :

> Bonjour
>
>
> J'aimerais bloquer un port, par exemple le port 80.
>
> D'avance merci,
>
>
> NC




Avatar
ng
Salut,


Essque ssch comme ça (non testé) :

'//2 imports :

Imports System.Net
Imports System.Net.Sockets

'//1 objet ds les déclarations de la classe :

Dim oSocket As Socket

'//Au démarrage :

Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)
Dim localEndPoint As New IPEndPoint(ipAddress, 80)

oSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp)

Call oSocket.Bind(localEndPoint)

Call oSocket.Listen(5) '//queue de 5 connexions max.

Call oSocket.BeginAccept(AddressOf AcceptCallback, oSocket)


'//est une petite sub pr le callback

Public Sub AcceptCallback(ByVal ar As IAsyncResult)
Call oSocket.Close()
Call oSocket.Listen(5)
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a écrit :

Est-ce que tu peux me donner plus de détails.

tu fait réference à l'objet TcpListener ?


NC

"ng" a écrit dans le message de
news:%
Salut,

Il suffit de l'ouvrir (Listen()) puis de refuser les connexions
entrantes.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a écrit
:

Bonjour


J'aimerais bloquer un port, par exemple le port 80.

D'avance merci,


NC






Avatar
Simplibourse - Cornu Nicolas
Merci,

Je test quand je peux.

Est-ce que tu s'aurais rediriger le traffic du port 80 vers un autre port ?

NC

"ng" a écrit dans le message de
news:
Salut,


Essque ssch comme ça (non testé) :

'//2 imports :

Imports System.Net
Imports System.Net.Sockets

'//1 objet ds les déclarations de la classe :

Dim oSocket As Socket

'//Au démarrage :

Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)
Dim localEndPoint As New IPEndPoint(ipAddress, 80)

oSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp)

Call oSocket.Bind(localEndPoint)

Call oSocket.Listen(5) '//queue de 5 connexions max.

Call oSocket.BeginAccept(AddressOf AcceptCallback, oSocket)


'//est une petite sub pr le callback

Public Sub AcceptCallback(ByVal ar As IAsyncResult)
Call oSocket.Close()
Call oSocket.Listen(5)
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a écrit :

> Est-ce que tu peux me donner plus de détails.
>
> tu fait réference à l'objet TcpListener ?
>
>
> NC
>
> "ng" a écrit dans le message de
> news:%
>> Salut,
>>
>> Il suffit de l'ouvrir (Listen()) puis de refuser les connexions
>> entrantes.
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> Simplibourse - Cornu Nicolas a écrit
>> :
>>
>>> Bonjour
>>>
>>>
>>> J'aimerais bloquer un port, par exemple le port 80.
>>>
>>> D'avance merci,
>>>
>>>
>>> NC




Avatar
Simplibourse - Cornu Nicolas
J'ai testé, ca bloc pas le port 80
Je peux toujours surfer.

"ng" a écrit dans le message de
news:
Salut,


Essque ssch comme ça (non testé) :

'//2 imports :

Imports System.Net
Imports System.Net.Sockets

'//1 objet ds les déclarations de la classe :

Dim oSocket As Socket

'//Au démarrage :

Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)
Dim localEndPoint As New IPEndPoint(ipAddress, 80)

oSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp)

Call oSocket.Bind(localEndPoint)

Call oSocket.Listen(5) '//queue de 5 connexions max.

Call oSocket.BeginAccept(AddressOf AcceptCallback, oSocket)


'//est une petite sub pr le callback

Public Sub AcceptCallback(ByVal ar As IAsyncResult)
Call oSocket.Close()
Call oSocket.Listen(5)
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a écrit :

> Est-ce que tu peux me donner plus de détails.
>
> tu fait réference à l'objet TcpListener ?
>
>
> NC
>
> "ng" a écrit dans le message de
> news:%
>> Salut,
>>
>> Il suffit de l'ouvrir (Listen()) puis de refuser les connexions
>> entrantes.
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> Simplibourse - Cornu Nicolas a écrit
>> :
>>
>>> Bonjour
>>>
>>>
>>> J'aimerais bloquer un port, par exemple le port 80.
>>>
>>> D'avance merci,
>>>
>>>
>>> NC




Avatar
ng
Salut,

Ce n'étais pas censé empeché de "surfer" !!! Cela bloque le port 80 au cas
où tu utiliserait un serveur web (donc sur le port 80). Le faites de
"surfer" se connecte en tant que client au port 80 d'un serveur.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a écrit :

J'ai testé, ca bloc pas le port 80
Je peux toujours surfer.

"ng" a écrit dans le message de
news:
Salut,


Essque ssch comme ça (non testé) :

'//2 imports :

Imports System.Net
Imports System.Net.Sockets

'//1 objet ds les déclarations de la classe :

Dim oSocket As Socket

'//Au démarrage :

Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)
Dim localEndPoint As New IPEndPoint(ipAddress, 80)

oSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp)

Call oSocket.Bind(localEndPoint)

Call oSocket.Listen(5) '//queue de 5 connexions max.

Call oSocket.BeginAccept(AddressOf AcceptCallback, oSocket)


'//est une petite sub pr le callback

Public Sub AcceptCallback(ByVal ar As IAsyncResult)
Call oSocket.Close()
Call oSocket.Listen(5)
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a écrit
:

Est-ce que tu peux me donner plus de détails.

tu fait réference à l'objet TcpListener ?


NC

"ng" a écrit dans le message de
news:%
Salut,

Il suffit de l'ouvrir (Listen()) puis de refuser les connexions
entrantes.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a
écrit




Bonjour


J'aimerais bloquer un port, par exemple le port 80.

D'avance merci,


NC










Avatar
Simplibourse - Cornu Nicolas
Est-ce que tu saurais bloquer le traffic en provenance d'un port 80 ?

"ng" a écrit dans le message de
news:
Salut,

Ce n'étais pas censé empeché de "surfer" !!! Cela bloque le port 80 au cas
où tu utiliserait un serveur web (donc sur le port 80). Le faites de
"surfer" se connecte en tant que client au port 80 d'un serveur.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Simplibourse - Cornu Nicolas a écrit :

> J'ai testé, ca bloc pas le port 80
> Je peux toujours surfer.
>
> "ng" a écrit dans le message de
> news:
>> Salut,
>>
>>
>> Essque ssch comme ça (non testé) :
>>
>> '//2 imports :
>>
>> Imports System.Net
>> Imports System.Net.Sockets
>>
>> '//1 objet ds les déclarations de la classe :
>>
>> Dim oSocket As Socket
>>
>> '//Au démarrage :
>>
>> Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
>> Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)
>> Dim localEndPoint As New IPEndPoint(ipAddress, 80)
>>
>> oSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream,
>> ProtocolType.Tcp)
>>
>> Call oSocket.Bind(localEndPoint)
>>
>> Call oSocket.Listen(5) '//queue de 5 connexions max.
>>
>> Call oSocket.BeginAccept(AddressOf AcceptCallback, oSocket)
>>
>>
>> '//est une petite sub pr le callback
>>
>> Public Sub AcceptCallback(ByVal ar As IAsyncResult)
>> Call oSocket.Close()
>> Call oSocket.Listen(5)
>> End Sub
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> Simplibourse - Cornu Nicolas a écrit
>> :
>>
>>> Est-ce que tu peux me donner plus de détails.
>>>
>>> tu fait réference à l'objet TcpListener ?
>>>
>>>
>>> NC
>>>
>>> "ng" a écrit dans le message de
>>> news:%
>>>> Salut,
>>>>
>>>> Il suffit de l'ouvrir (Listen()) puis de refuser les connexions
>>>> entrantes.
>>>>
>>>> --
>>>> Nicolas G.
>>>> FAQ VB : http://faq.vb.free.fr
>>>> API Guide : http://www.allapi.net
>>>> Google Groups : http://groups.google.fr/
>>>> MZ-Tools : http://www.mztools.com/
>>>> http://apisvb.europe.webmatrixhosting.net/
>>>>
>>>>
>>>>
>>>> Simplibourse - Cornu Nicolas a
>>>> écrit
>>>>>
>>>>
>>>>> Bonjour
>>>>>
>>>>>
>>>>> J'aimerais bloquer un port, par exemple le port 80.
>>>>>
>>>>> D'avance merci,
>>>>>
>>>>>
>>>>> NC