Center recherche

Soyez le premier à donner votre avis sur cette source.

Vue 2 990 fois - Téléchargée 422 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
zonebleue
Messages postés
73
Date d'inscription
samedi 15 janvier 2005
Statut
Membre
Dernière intervention
16 octobre 2007
-
comment on fait pour téléchatger le zip ? il est vide...
cs_protect
Messages postés
87
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
15 mai 2011
2 -
LE V2 EST FINI!!
POur voir la v2==>
http://www.vbfrance.com/code.aspx?ID=17104
J'vous conseil la v2 beaucoup plus meilleur
et le zip est la=)
cs_protect
Messages postés
87
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
15 mai 2011
2 -
Oups dsl!!
POur dll le zip allez ici
http://protect.jexiste.fr/source.zip

Encore dsl j'avais mal fait le truc!
nephix2003
Messages postés
84
Date d'inscription
mercredi 4 juin 2003
Statut
Membre
Dernière intervention
6 novembre 2004
-
en gros c'est un programme de recherche...que l'on recherche.

hum.
pardon, j'ai pas pu m'empêcher.
lol ;-D

Update le zip plz

@++

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.