Recherches google simplifiées multilingues (easygoogle v.2)

Soyez le premier à donner votre avis sur cette source.

Vue 4 717 fois - Téléchargée 447 fois

Description

Version améliorée de Easygoogle, maintenant possibilité de rechercher dans 10 langues
Améliorations:
-possibilité de faire plusieurs recherches à la suite (avant il faisait des erreurs dans l'Url)
-changement de l'interface (moins originale mais + simple pour plaire a tt le monde :-)

Source / Exemple :


Dim submit As String

Private Sub Form_Load()
submit = "C:\Program Files\Internet Explorer\iexplore.exe "
End Sub

Private Sub Command1_Click()
If Option1.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=fr&meta="
ElseIf Option2.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=fr&meta=lr%3Dlang_fr"
ElseIf Option3.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=de&meta="
ElseIf Option4.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=ar&meta="
ElseIf Option5.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=es&meta="
ElseIf Option6.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=it&meta="
ElseIf Option7.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=da&meta="
ElseIf Option8.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=xx-hacker&meta="
ElseIf Option9.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=fi&meta="
ElseIf Option10.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=ro&meta="
ElseIf Option11.Value = True Then
submit = submit & "http://www.google.fr/search?q=" & Text1.Text & "&ie=UTF-8&oe=UTF-8&hl=su&meta="
End If
Shell submit, vbNormalFocus
submit = "C:\Program Files\Internet Explorer\iexplore.exe "
End Sub

Private Sub Label3_Click()
MsgBox "Pour faire une recherche sur le meilleur moteur de recherche du monde :-) :" & vbCrLf & "tapez simplement les mots-clés à rechercher dans le champ rechercher, sélectionnez la langue de la page recherchée puis cliquez sur 'Va chercher Google!'." & vbCrLf & "Attention, Internet explorer doit être installé dans son répertoire par défaut, soit C:\Program Files\Internet Explorer\iexplore.exe, pour que ce programme fonctionne!", vbOKOnly, "Aide"
End Sub

Private Sub Label4_Click()
MsgBox "EasyGoogle - By Lord AsKy <first3132@yahoo.fr>" & "Pour toutes questions, suggestions, remarques, insultes, envoyez-moi un mail!" & vbCrLf & "Codé en vb6 par Lord Asky" & "Free rights.", vbOKOnly, "About"
End Sub

Private Sub Label5_Click()
submit = submit & "http://www.google.com"
Shell submit, vbNormalFocus
End Sub

Conclusion :


mise a jour probable pour integrer plusieurs moteurs de recherche
faites des propositions

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
4
Date d'inscription
jeudi 7 octobre 2004
Statut
Membre
Dernière intervention
12 juin 2005

Eh ben!! ta technique n'est pas terrible terrible! C'est pas pour critiquer mais ça ressemble pas mal à du bricolage... Tu ferais mieux de te renseigner sur l'objet 'HTMLObjectElement'. Cependant pour ne pas être trop sévère, ça peut toujours dépanner si l'on aller vite fait sur une page sans trop se casser la tête. Mais, bon les champs d'actions sont limités. Moi je met 4/10, ça peut toujours aider un débutant...

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 (LordAsky)