Crack-wifi.com FORUM

LE FORUM DU SITE

Wifi, Backtrack, crack WEP et WPA...

Vous n'êtes pas identifié(e).  

Annonce

Visitez la boutique Wifi-highpower.com, votre revendeur agr Alfa Network: du matriel Wifi slectionn, cartes Wifi USB Awus036h et Awus036nh, antennes omnis, yagis, panel, amplis wifi, accessoires...

#1 25-02-2013 18:20:36

Spectre
Membre Actif
Inscription : 03-06-2012
Messages : 33

Utilitaire de recherches [vb net]

Bonsoir à tous, un petit utilitaire de recherche qui use des options de recherches avancées de google (que vous pouvez retrouver au passage). L'intêret have fun... utile ou pas à vous de jugez.

tumblr_misd8mDLxu1rjr7r0o1_500.jpg

Telechargement


PS : Le code source en cadeau, avec des commentaires très... légers... c'est comme le beurre patissier faut pas en abuser ! big_smile

Imports System.Windows.Forms.CheckBox

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'séléction automatique de google (pour utilisateur crétin) 
        CheckBox1.Checked = True
        ComboBox4.Text = "any"
        ComboBox2.Text = "fr"
        ComboBox3.Text = "fr"
        ComboBox1.Text = "2"
        TextBox3.Visible = False
        TextBox4.Visible = False
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            CheckBox3.Enabled = True
            GroupBox1.Enabled = True
            GroupBox2.Enabled = True
            GroupBox3.Enabled = True
            TextBox4.Enabled = True
            CheckBox5.Enabled = True
            TextBox1.Enabled = True
        ElseIf CheckBox1.Checked = False Then
            CheckBox3.Enabled = False
            GroupBox1.Enabled = False
            GroupBox2.Enabled = False
            GroupBox3.Enabled = False
            CheckBox5.Enabled = False
            TextBox4.Enabled = False
            TextBox1.Enabled = False
        End If
    End Sub

    'choix du moteur de recherche et envoi de la recherche 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'configuration de la recherche 
        If CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = True And CheckBox4.Checked = False And CheckBox5.Checked = True And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & "site%3A" & TextBox4.Text & " " & TextBox1.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = True And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & "site%3A" & TextBox4.Text & " " & TextBox1.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & "site%3A" & TextBox4.Text & " " & TextBox1.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = False And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & "site%3A" & TextBox4.Text & " " & TextBox1.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = True And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = True Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & TextBox1.Text & " -" & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = True Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & TextBox1.Text & " -" & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = False And CheckBox6.Checked = True Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & TextBox1.Text & " -" & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = False And CheckBox4.Checked = True And CheckBox5.Checked = False And CheckBox6.Checked = True Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & TextBox1.Text & " -" & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = True And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & TextBox1.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & TextBox1.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = False And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & TextBox1.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = False And CheckBox2.Checked = False And CheckBox4.Checked = True And CheckBox5.Checked = False And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&q=" & TextBox1.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = False And CheckBox5.Checked = True And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & "site%3A" & TextBox4.Text & " " & TextBox3.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & "site%3A" & TextBox4.Text & " " & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = False And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & "site%3A" & TextBox4.Text & " " & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = True And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & "site%3A" & TextBox4.Text & " " & TextBox3.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = False And CheckBox6.Checked = True Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & TextBox3.Text & " -" & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = False And CheckBox6.Checked = True Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & TextBox2.Text & " -" & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = False And CheckBox4.Checked = True And CheckBox5.Checked = False And CheckBox6.Checked = True Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & TextBox2.Text & " -" & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = True Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & TextBox3.Text & " " & " -" & TextBox2.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & TextBox3.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = False And CheckBox4.Checked = True And CheckBox5.Checked = False And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & TextBox3.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_qdr=" & ComboBox7.Text)
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False Then
            Process.Start("http://www.google.fr/search?hl=" & ComboBox3.Text & "&lr=lang_" & ComboBox2.Text & "&as_epq=" & TextBox3.Text & "&num=" & ComboBox1.Text & "&restrict=country" & ComboBox3.Text & "&as_occt=" & ComboBox4.Text & "&as_fti&as_filetype=" & ComboBox6.Text)

        ElseIf CheckBox1.Checked = False Then
            MsgBox("Merci de sélectioner un moteur de recherche.")
        End If

        TextBox1.Clear()
        TextBox4.Clear()

    End Sub


    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            TextBox3.Visible = True
            TextBox1.Enabled = False
            CheckBox6.Enabled = False
            TextBox2.Enabled = False
            CheckBox6.Checked = False
            TextBox1.Clear()
            TextBox2.Clear()
        ElseIf CheckBox3.Checked = False Then
            TextBox3.Visible = False
            TextBox1.Enabled = True
            CheckBox6.Enabled = True
            TextBox2.Enabled = True
            TextBox3.Clear()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            TextBox4.Visible = True
        ElseIf CheckBox5.Checked = False Then
            TextBox4.Visible = False
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            CheckBox5.Checked = False
            CheckBox5.Enabled = False
        ElseIf CheckBox6.Checked = False Then
            CheckBox5.Enabled = True
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Form2.Visible = True Then
            Form2.Visible = False
        ElseIf Form2.Visible = False Then
            Form2.Visible = True
        End If
    End Sub
End Class

Une question ou une idée > [email protected]

Hors Ligne

Annonce

Visitez la boutique Wifi-highpower.com, votre revendeur agr Alfa Network: du matriel Wifi slectionn, cartes Wifi USB Awus036h et Awus036nh, antennes omnis, yagis, panel, amplis wifi, accessoires...

Sujets similaires

Discussion Réponses Vues Dernier message
3 821 27-08-2015 09:01:25 par syllar666
9 2496 12-10-2012 22:29:38 par antares145
0 1765 03-07-2010 14:02:03 par scarfays
11 1664 24-06-2010 20:18:31 par Syfer
11 2368 07-01-2010 17:22:41 par Dack

Pied de page des forums


Le coin des bonnes affaires, achats informatiques:


|   Alfa 1000 mW AWUS036H   |    Linksys WRT54GL   |    Misco, informatique   |   
 |    Ebay   |    PC portables   |    PC Gamers & Tuning   |    Cles USB   |   
|   Disques durs externes 2 To   |   
|   Wifi-highpower.com   |   


Server Stats - [ Generated in 0.026 seconds ]   Forum Stat - [ Most users ever online on the forum was : 150 on 20-09-2009 17:06:59 ]