PARE-FEU BOUFFON KILLER

Messages postés
14594
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
16 novembre 2019
- - Dernière réponse : Moundir76
Messages postés
286
Date d'inscription
dimanche 3 octobre 2010
Statut
Membre
Dernière intervention
16 mai 2014
- 3 juin 2011 à 08:35
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/53235-pare-feu-bouffon-killer

Moundir76
Messages postés
286
Date d'inscription
dimanche 3 octobre 2010
Statut
Membre
Dernière intervention
16 mai 2014
-
+1. Aucun intérêt.
alihome
Messages postés
18
Date d'inscription
dimanche 22 octobre 2006
Statut
Membre
Dernière intervention
2 juin 2011
-
Même pas besoin de tester pour voir que cette source n'a aucun intérêt
NHenry
Messages postés
14594
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
16 novembre 2019
137 -
Bonjour,

As-tu testé ton code ?

Car je ne vois rien dans le dossier Bin\Release, en plus le code de ton timer est plus qu'étrange, tu assignes plusieurs fois des valeurs à des variables sans jamais utiliser ces valeurs.

As-tu activé Option Strict et Option Explicit ?

Bref, sans commentaires dans le code, on ne comprend strictement rien à ce que tu fais.
LightningStrike
Messages postés
49
Date d'inscription
mercredi 28 novembre 2007
Statut
Membre
Dernière intervention
27 avril 2009
-
Le code est en vb10, et en fait le timer ticke en faisant office de pare-feu ...
Pour les dossiers, les cookies peuvent être des trojans..
NHenry
Messages postés
14594
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
16 novembre 2019
137 -
Bonjour,

Code non commenté, avec plein d'élément créé mais inutilisé.
Noms des contrôles par défaut.

A quoi sert d'avoir Une demande de parcourir les dossier et demander un fichier ?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
OpenFileDialog1.ShowDialog()
FolderBrowserDialog1.ShowDialog()
End Sub

Que valent finalement ces variables :
# Dim Cache = HttpRequestCacheLevel.NoCacheNoStore
# Cache = RequestCacheLevel.NoCacheNoStore
# Cache = HttpRequestCacheLevel.BypassCache
# Cache = HttpRequestCacheLevel.BypassCache
# Dim Ethernet = Net.NetworkInformation.NetworkInterfaceType.Ethernet
# Dim Wireless80211 = Net.NetworkInformation.NetworkInterfaceType.Wireless80211
#
# Ethernet = RequestCacheLevel.NoCacheNoStore
# Ethernet = PowerState.Hibernate
# Ethernet = OperationalStatus.Down
#
# Wireless80211 = OperationalStatus.Down
#
# Ethernet = Net.Sockets.SocketShutdown.Both
# Wireless80211 = Net.Sockets.SocketShutdown.Both
# Wireless80211 = RequestCacheLevel.NoCacheNoStore
# Ethernet = Forbidden()
# Wireless80211 = Forbidden()

Ton code semble incorrect, et non terminé, et je pense qu'il n'a pas sa place ici.
Je ne comprend pas pourquoi les ressources font presque 6Mo pour ce type de programme.

J'attends ta réponse sur ces quelques questions.