Soyez le premier à donner votre avis sur cette source.
Vue 4 717 fois - Téléchargée 447 fois
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
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.