1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Public Sub OuvreUrl(ByVal sFile As String, Optional ByVal sParameters As String = vbNullString)
ShellExecute 0&, "open", sFile, sParameters, vbNullString, 1&
End Sub
Public Sub AfficheUrl(Mot As String)
If ConnexionInternetActive Then OuvreUrl "http://dictionnaire.mediadico.com/traduction/dictionnaire.asp/definition/" & Mot & "/2007"
Sleep (2000)
OuvreUrl "http://francois.gannaz.free.fr/Littre/xmlittre.php?rand=&requete=" & Mot
OuvreUrl "http://free.mediadico.com/dictionnaire.asp/definition/" & Mot & "/dictionnaire"
OuvreUrl "http://atilf.atilf.fr/dendien/scripts/fast.exe?mot=" & Mot
OuvreUrl "http://dictionnaire.sensagent.com/" & Mot & "/fr-fr/"
OuvreUrl "http://dictionnaire.tv5.org/dictionnaires.asp?Action=1&mot=" & Mot & "&che=1"
OuvreUrl "http://fr.wiktionary.org/wiki/" & LCase(Mot)
End If
End Sub |
Partager