Je suis un rêveur, j'aimerais que les spammeur s'épuisent.....
Ce code n'a rien de technique, c'est juste un générateur de mailTo bidon qui va creer une centaine de mailto à copier coller dans vos pages webs.
Le code généré ne va pas changer vos pages web, mais si un jour un tracker de mailto se promène sur votre site il risque de surcharger sa base inutilement. voir faire un effacement de masse des adresses provenant de votre site.
Évidement si je suis le seul à faire ça, rien ne va changer... par contre le même principe est appliqué sur qques milliers de site ca peut faire une différence.
Source / Exemple :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim boucle As Int16
RichTextBox1.Clear()
For boucle = 1 To TextBox1.Text
RichTextBox1.AppendText(get_mailTo(CheckBox1.Checked) & vbCrLf)
Next
End Sub
Function get_mailTo(ByVal vraiDomaine As Boolean) As String
Dim domaine(100) As String
domaine(0) = "meetic.fr"
domaine(1) = "free.fr"
domaine(2) = "orange.fr"
domaine(3) = "dailymotion.com"
domaine(4) = "skyrock.com"
domaine(5) = "ebay.fr"
domaine(6) = "pagesjaunes.fr"
domaine(7) = "linternaute.com"
domaine(8) = "commentcamarche.net"
domaine(9) = "01net.com"
domaine(10) = "doctissimo.fr"
domaine(11) = "priceminister.com"
domaine(12) = "meteofrance.com"
domaine(13) = "allocine.fr"
domaine(14) = "impots.gouv.fr"
domaine(15) = "mappy.com"
domaine(16) = "laredoute.fr"
domaine(17) = "msn.fr"
domaine(18) = "aufeminin.com"
domaine(19) = "over-blog.com"
domaine(20) = "mappy.fr"
domaine(21) = "leboncoin.fr"
domaine(22) = "cdiscount.com"
domaine(23) = "clubic.com"
domaine(24) = "voyages-sncf.com"
domaine(25) = "voila.fr"
domaine(26) = "infos-du-net.com"
domaine(27) = "aol.fr"
domaine(28) = "lequipe.fr"
domaine(29) = "pagesperso-orange.fr"
domaine(30) = "amazon.fr"
domaine(31) = "fnac.com"
domaine(32) = "jeuxvideo.com"
domaine(33) = "windowslive.fr"
domaine(34) = "canalblog.com"
domaine(35) = "lycos.fr"
domaine(36) = "viamichelin.fr"
domaine(37) = "deezer.com"
domaine(38) = "meetic.fr"
domaine(39) = "neuf.fr"
domaine(40) = "prizee.com"
domaine(41) = "bouyguestelecom.fr"
domaine(42) = "ciao.fr"
domaine(43) = "programme-tv.net"
domaine(44) = "vente-privee.com"
domaine(45) = "caisse-epargne.fr"
domaine(46) = "lemonde.fr"
domaine(47) = "vivastreet.fr"
domaine(48) = "aliceadsl.fr"
domaine(49) = "anpe.fr"
domaine(50) = "fdjeux.com"
domaine(51) = "excite.fr"
domaine(52) = "hardware.fr"
domaine(53) = "tf1.fr"
domaine(54) = "ems6.net"
domaine(55) = "forum-auto.com"
domaine(56) = "lachainemeteo.com"
domaine(57) = "3suisses.fr"
domaine(58) = "credit-agricole.fr"
domaine(59) = "eurosport.fr"
domaine(60) = "france2.fr"
domaine(61) = "neufportail.fr"
domaine(62) = "rueducommerce.fr"
domaine(63) = "sfr.fr"
domaine(64) = "journaldunet.com"
domaine(65) = "smartadserver.com"
domaine(66) = "yes-messenger.com"
domaine(67) = "kelkoo.fr"
domaine(68) = "kijiji.fr"
domaine(69) = "wanadoo.fr"
domaine(70) = "leguide.com"
domaine(71) = "pixmania.com"
domaine(72) = "www.assedic.fr"
domaine(73) = "finances.gouv.fr"
domaine(74) = "lefigaro.fr"
domaine(75) = "laposte.net"
domaine(76) = "marmiton.org"
domaine(77) = "affistats.com"
domaine(78) = "jeuxvideopc.com"
domaine(79) = "spinpalace.com"
domaine(80) = "ados.fr"
domaine(81) = "france3.fr"
domaine(82) = "lci.fr"
domaine(83) = "m6.fr"
domaine(84) = "bnpparibas.net"
domaine(85) = "futura-sciences.com"
domaine(86) = "ifrance.com"
domaine(87) = "jeuxvideo-flash.com"
domaine(88) = "sncf.com"
domaine(89) = "caf.fr"
domaine(90) = "lacentrale.fr"
domaine(91) = "unblog.fr"
domaine(92) = "caradisiac.com"
domaine(93) = "emv2.com"
domaine(94) = "gamekult.com"
domaine(95) = "nouvelobs.com"
domaine(96) = "seloger.com"
domaine(97) = "trombi.com"
domaine(98) = "banquepopulaire.fr"
domaine(99) = "canalplus.fr"
Dim prenom As String = get_syllabe() & get_syllabe() & get_syllabe()
Dim nom As String = get_syllabe() & get_syllabe() & get_syllabe()
Dim dom As String
If vraiDomaine Then
dom = domaine(Int(Rnd() * 99))
Else
dom = get_syllabe() & get_syllabe() & get_syllabe() & ".com"
End If
Dim mail As String = prenom & "." & nom & "@" & dom
Return "<a href=""mailto:" & mail & """></a>"
End Function
Function get_syllabe() As String
Dim v(5) As String
Dim c(20) As String
v(0) = "a"
v(1) = "e"
v(2) = "i"
v(3) = "o"
v(4) = "u"
v(5) = "y"
c(0) = "b"
c(1) = "c"
c(2) = "d"
c(3) = "f"
c(4) = "g"
c(5) = "h"
c(6) = "k"
c(7) = "l"
c(8) = "m"
c(9) = "n"
c(10) = "p"
c(11) = "q"
c(12) = "r"
c(13) = "s"
c(14) = "t"
c(15) = "v"
c(16) = "w"
c(17) = "x"
c(18) = "y"
c(19) = "z"
Return c(Int(Rnd() * 20)) & v(Int(Rnd() * 6))
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Clipboard.SetText(RichTextBox1.Text)
End Sub
End Class
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.