VB et Internet [Résolu]

Marneus73 344 Messages postés mercredi 24 janvier 2007Date d'inscription 27 octobre 2008 Dernière intervention - 29 août 2007 à 12:55 - Dernière réponse : allthew3 552 Messages postés samedi 8 janvier 2005Date d'inscription 12 avril 2008 Dernière intervention
- 29 août 2007 à 20:43
Bonjour à tous,
Est il possible qu'un clique sur un bouton déclenche l'ouvertue d'une page web (avec le navigateur par defaut) et ouvre un lien ex: www.google.fr (Le lien serait présent dans un TextBox) ?
Merci d'avance.
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
lolokun 1241 Messages postés mardi 10 octobre 2006Date d'inscription 27 août 2013 Dernière intervention - 29 août 2007 à 13:34
3
Merci
Tu déclares la fonction:



Private






Declare



Function
ShellExecute

Lib



"shell32.dll"



Alias



"ShellExecuteA"
( _


ByVal
hWnd

As
IntPtr, _


ByVal
lpOperation

As



String
, _


ByVal
lpFile

As



String
, _


ByVal
lpParameters

As



String
, _


ByVal
lpDirectory

As



String
, _


ByVal
nShowCmd

As



Integer
)

As
IntPtr

Puis dans ton code tu l'appelles :
ShellExecute(0, "open", www.google.fr, vbNullString, vbNullString, 0)

Sinon en vb.net tu peux aussi passer par Process.start("www.google.fr")

Merci lolokun 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 118 internautes ce mois-ci

Commenter la réponse de lolokun
Meilleure réponse
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 29 août 2007 à 13:39
3
Merci
Salut,

Aussi :

 Shell "rundll32.exe url.dll,FileProtocolHandler " & "http://www.google.fr"

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Merci cs_Exploreur 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 118 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
Meilleure réponse
allthew3 552 Messages postés samedi 8 janvier 2005Date d'inscription 12 avril 2008 Dernière intervention - 29 août 2007 à 13:42
3
Merci
euh y'a pas plus simple ?

Process.Start(http://www.google.fr) => google entre " "

Merci allthew3 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 118 internautes ce mois-ci

Commenter la réponse de allthew3
lolokun 1241 Messages postés mardi 10 octobre 2006Date d'inscription 27 août 2013 Dernière intervention - 29 août 2007 à 13:30
0
Merci
Salut,

Fais une recherche sur le site de shellexecute et tu trouveras ton bonheur.
Commenter la réponse de lolokun
lolokun 1241 Messages postés mardi 10 octobre 2006Date d'inscription 27 août 2013 Dernière intervention - 29 août 2007 à 14:15
0
Merci
Salut  allthew3

J'avais mis cette solution à la fin de mon post ^^
Commenter la réponse de lolokun
allthew3 552 Messages postés samedi 8 janvier 2005Date d'inscription 12 avril 2008 Dernière intervention - 29 août 2007 à 14:17
0
Merci
ah j'avais pas vu désolé

quand j'ai vu tout ce code pour simplement lancer une page web j'ai halluciné lol
Commenter la réponse de allthew3
welcometomyheaven 24 Messages postés dimanche 11 juin 2006Date d'inscription 8 août 2008 Dernière intervention - 29 août 2007 à 16:45
0
Merci
voila une solution efficace
copier ce code

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 Sub Command1_Click()
    VBHref Text1.Text
End Sub



Private Sub VBHref(Commande$)
    Dim Foo&
    Foo = ShellExecute(hwnd, "Open", Commande, "", "", 1)
End Sub

n'oubli pas d'ajouter un textbox et un button de command

bonne chance
Commenter la réponse de welcometomyheaven
allthew3 552 Messages postés samedi 8 janvier 2005Date d'inscription 12 avril 2008 Dernière intervention - 29 août 2007 à 20:43
0
Merci
c'est du VB.net ne l'oublie pas welcometomyheaven
Commenter la réponse de allthew3

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.