Effectuer une rechercher sur Google.frRésolu

Question

Violent Ken
Bonjour &#224; tous.
Ma question est des plus simple : comment effectuer une recherche sur Google.fr &#224; partir de mon programme ?
Quelques conditions cependant &#224; respecter, sinon je n'aurais pas eu de probl&#232;me :
-utilisation minimale de ressource en CPU et m&#233;moire (autrement dit pas d'insertion de Winsosk, pas de composant Iexplorer...)
-la recherche doit g&#233;rer les guillemets
-la r&#233;sultat de la recherche doit s'ouvrir dans une nouvelle instance de iexplorer.exe.
-pas d'ajout d'OCX ou de r&#233;f&#233;rence au projet.

En fait, j'ai essay&#233; la commande
Shell "explorer http://www.google.fr" pour g&#233;rer l'ouverture de la page Web.
Malheureusement, ce proc&#233;d&#233; ne g&#232;re pas les URL plus complexe comme
"http://www.google.fr/search?hl=fr&q=%22oodag.exe%22&meta="

J'ai effectu&#233; de nombreuses recherche, mais je n'ai rien trouv&#233; de l&#233;ger en m&#233;moire pour effectuer cette t&#226;che.

Je vous remercie par avance de toute suggestion qui ne consomme que tr&#232;s peu de m&#233;moire !
Merci, @+

violent_ken · Accepted Answer

Violent Ken
Finalement, j'ai trouv&#233; tout seul.

Private Sub Command1_Click()
On Error Resume Next
Shell "C:\Program Files\Internet Explorer\IEXPLORE.exe " & "http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q=" & Text1.Text, vbNormalFocus
End Sub

Il suffisait de contenir le nom des &#233;l&#233;ments &#224; chercher dans une textbox (ou une variable) pour que la concat&#233;nation soit possible sans erreur.

@+

cs_ghuysmans99 · Answer

C'est une très mauvaise idée d'utiliser Shell pour ce que tu fais : Windows n'est pas forcément installé sur la partition C, ça peut tout aussi bien être D ou même H !
Ouvre plutôt le lien via ShellExecute :Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const GoogleBaseURL As String = "http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q="

Public Function OpenGoogleSearch(Criteria As String) As Long
 OpenURL = ShellExecute(Me.hWnd,"open",GoogleBaseURL & Criteria,"","",0)
End Function

---
VB.NET is good ... VB6 is better

Claiyah · Answer

salut 
ghuysmans99 a forcément raison
on sait meme pas si la partition c existe ni si IE est installé sur le pc ou pas 
et shellexecute lancera le lien avec le navigateur par defaut aussi.

violent_ken · Answer

Heu... bien évidemment oui... la réponse que j'ai donnée date de 3 ans et à l'époque j'étais tellement nul que je savais même pas ce que signifiait "API Win32"...

Bref tout çà a changé depuis, mais ce n'est pas le problème : honnêtement, quel est l'intérêt de répondre à une question aussi minable et qui plus est vieille de 3 ans 
? D'autant plus que c'est du VB6 qui est aujourd'hui d'un intérêt très limité (à n'utiliser que pour maintenir de vieille applications faites en VB6).

cs_ghuysmans99 · Answer

Ben j'avais même pas regardé la date 
---
VB.NET is good ... VB6 is better

Claiyah · Answer

lol moi non plus j'ai crue que sa date d'hier quand j'ai répondu vue que le sujet été placer au début mdrrrr


 No comment

Effectuer une rechercher sur Google.fr

6 réponses

Discussions similaires