VB et Internet [Résolu]

Messages postés
344
Date d'inscription
mercredi 24 janvier 2007
Dernière intervention
27 octobre 2008
- - Dernière réponse : allthew3
Messages postés
552
Date d'inscription
samedi 8 janvier 2005
Dernière intervention
12 avril 2008
- 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
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Dernière intervention
27 août 2013
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")

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 97 internautes nous ont dit merci ce mois-ci

Commenter la réponse de lolokun
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
3
Merci
Salut,

Aussi :

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

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 97 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Exploreur
Messages postés
552
Date d'inscription
samedi 8 janvier 2005
Dernière intervention
12 avril 2008
3
Merci
euh y'a pas plus simple ?

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 97 internautes nous ont dit merci ce mois-ci

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

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

J'avais mis cette solution à la fin de mon post ^^
Commenter la réponse de lolokun
Messages postés
552
Date d'inscription
samedi 8 janvier 2005
Dernière intervention
12 avril 2008
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
Messages postés
24
Date d'inscription
dimanche 11 juin 2006
Dernière intervention
8 août 2008
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
Messages postés
552
Date d'inscription
samedi 8 janvier 2005
Dernière intervention
12 avril 2008
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.