Center recherche

Télécharger le projet
Commenter

Description

Ce programme sert a Faire des recherche sur plusieurs moteur de recherche
_google,vbfrance et telecharger.com
il utilise des list et surtout la commands shell ".."
CE PROGRAMME EST POUR DEBUANT

Source / Exemple : 


Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://telecharger.01net.com/cgi-bin/Total.pl?searchstring=" + (Text1.Text) + "&system=" + (List1)

End Sub

Private Sub Command2_Click()
MsgBox "Crée par protect!Tout droit  mllmhh@hotmail.com'"
End Sub

Private Sub Command3_Click()
Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.vbfrance.com/recherche.aspx?rech=" + (Text2.Text) + "&tr=" + (List2) + "&lng=1"
End Sub

Private Sub Command4_Click()
If OP1 = True Then Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.google.fr/search?q=" + (Text3.Text) + "&ie=UTF-8&oe=UTF-8&hl=fr&btnG=Recherche+Google&meta="
If OP1 = False Then Command4.Enabled = True
If OP2 = True Then Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.google.fr/search?q=" + (Text3.Text) + "&ie=UTF-8&oe=UTF-8&hl=fr&btnG=Recherche+Google&meta=lr%3Dlang_fr"
If OP2 = False Then Command4.Enabled = True
If OP3 = True Then Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.google.fr/search?q=" + (Text3.Text) + "&ie=UTF-8&oe=UTF-8&hl=fr&btnG=Recherche+Google&meta=cr%3DcountryFR"
If OP3 = False Then Command4.Enabled = True
If Text3.Text = "" Then MsgBox "Merci de précisez votre champ de recherche!"
End Sub

Private Sub Form_Load()
List1.AddItem "windows"
List1.AddItem "Mac"
List1.AddItem "Palm"
List1.AddItem "Linux"
List1.AddItem "pocket-pc"
List1.Refresh
List2.AddItem "Tout"
List2.AddItem "Source"
List2.AddItem "Forum"
List2.AddItem "Livre"
List2.AddItem "rfc"
List2.AddItem "news"
List2.AddItem "faq"
List2.AddItem "dico"
List2.Refresh
End Sub

Private Sub HELP_Click()
MsgBox "En premier vous devez choisir votre site ou vous voulez cherche une chose...     2)Vous selectionner dans la list une des options seulons vos choix  3)Vous cliquez sur le bouton RECHERCHER,Puis là une fenetre s'ouvre..."
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_protect)