Ouvrir une page web en VB.NET

**MrPARODIE100** · 04/03/2020, 00h35

Bonjour tout monde,

J'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim url As String = "https://www.google.com/"
Process.Start(url)

Mais, quand je clique sur le button1 dans la form1. Il me met une erreur. Je ne comprend pas pourquoi du comment.
J'ai regardé des vidéos et ça fonctionnais ?

Merci d'avance

**Phil Rob** · 04/03/2020, 09h00

Bonjour,

Une URL n'est pas un exécutable et les vidéos que tu as pu voir étaient des Fakes News ...

Essaie donc ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Process.Start("IExplore.exe", "https://www.google.com")

Bonne journée,

**MrPARODIE100** · 05/03/2020, 02h39

Comment fait-on pour utiliser le navigateur par défaut de l'utilisateur ?

**Christophe** · 05/03/2020, 09h16

Tu remplaces iexplore.exe par explore.exe et tu ajoutes le préfixe https:// à l'URL

**Phil Rob** · 14/03/2020, 09h53

Bonjour MrParodie100,

J'ai installé Brave !
Ce navigateur me semble très intéressant, notamment parce qu'il supprime presque toutes les publicités. Cette fonctionnalité m'est très utile pour mes activités sur un autre de site de programmation constamment envahi de bannières publicitaires.
J'y ai transférés tous mes raccourcis depuis FireFox et je l'ai déclaré "par défaut". Je le garde.

Merci de m'avoir donné l'idée.

Au passage, après l'installation de Brave comme navigateur par défaut, j'ai à nouveau testés des codes de Wallace.
Les clés concernées du registre contiennent bien les valeurs requises et les codes de Wallace fonctionnent correctement.
Peut-être y a-t-il une "anomalie" dans ton système si Brave ne s'est pas installé "normalement" ...

Encore merci pour Brave et très bon week-end

**Phil Rob** · 13/03/2020, 09h20

Merci pour le feedback.
Je ne connais pas ce "Brave". Je vais m'informer.
Bonne continuation

**Selve** · 05/03/2020, 12h09

Envoyé par MrPARODIE100

Bonjour tout monde,

J'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim url As String = "https://www.google.com/"
Process.Start(url)

Mais, quand je clique sur le button1 dans la form1. Il me met une erreur. Je ne comprend pas pourquoi du comment.
J'ai regardé des vidéos et ça fonctionnais ?

Merci d'avance

Bonjour Moi je fais comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If My.Computer.Network.IsAvailable Then
Dim P As New Process
P.StartInfo.FileName = "https://www.google.com/"
P.StartInfo.Verb = "Open"
P.StartInfo.CreateNoWindow = False
P.Start()
Else MessageBox.Show("Vous n'etes pas connecté à Internet")
End If

**MrPARODIE100** · 06/03/2020, 06h24

Envoyé par Selve

Bonjour Moi je fais comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If My.Computer.Network.IsAvailable Then
Dim P As New Process
P.StartInfo.FileName = "https://www.google.com/"
P.StartInfo.Verb = "Open"
P.StartInfo.CreateNoWindow = False
P.Start()
Else MessageBox.Show("Vous n'etes pas connecté à Internet")
End If

Bonjour,

Sa fait une erreur dans P.Start()

**Selve** · 06/03/2020, 11h01

Les imports ont été déclarés ?

Y a t'il un message d'erreur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Imports System.IO.File
 
Imports System.IO

**wallace1** · 06/03/2020, 19h46

Envoyé par Selve

Bonjour Moi je fais comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If My.Computer.Network.IsAvailable Then
Dim P As New Process
P.StartInfo.FileName = "https://www.google.com/"
P.StartInfo.Verb = "Open"
P.StartInfo.CreateNoWindow = False
P.Start()
Else MessageBox.Show("Vous n'etes pas connecté à Internet")
End If

Bonsoir,

@Selve : La connexion au réseau et l'accès à Internet sont deux choses différentes
My.Computer.Network.IsAvailable vérifie si le PC est relié à un réseau

Alors que la fonction API InternetGetConnectionState vérifie qu'Internet est disponible

@Phil Rob :

Une autre solution ICI

++

**Phil Rob** · 06/03/2020, 11h30

Bonjour,

Si tu ne veux pas IExplorer, mais bien le navigateur par défaut de l’utilisateur, tu dois chercher dans le registry quel est ce navigateur.

Voici le code qui répond à ta demande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
        Dim Cle As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser
        Dim SCle As Microsoft.Win32.RegistryKey
 
        SCle = Cle.OpenSubKey("Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice")
        Dim Valeur As String = SCle.GetValue("ProgId")
 
        Dim Navigateur As String = Valeur.Substring(0, Valeur.IndexOf("URL"))
 
        Process.Start(Navigateur, "https://www.google.com")

Bonne journée,

**Phil Rob** · 06/03/2020, 16h30

Il peut en effet y avoir problème, notamment si la clé http n'existe pas, mais alors il faut voir la clé https.
En tous cas, il est incontournable d'explorer la registry et d'adapter le traitement de la chaine récupérée dans la variable Valeur.

Voir la registry selon l'adresse exprimée dans le code, ça donne ± ceci :

Nom : Registry.jpg
Affichages : 1414
Taille : 105,2 Ko

Nom : Registry.jpg
Affichages : 1414
Taille : 105,2 Ko

Bon amusement

**Phil Rob** · 06/03/2020, 19h16

Ma solution précédente n'est pas satisfaisante car elle impose de connaître la manière dont les navigateurs "s'inscrivent" dans la registry.
Pour mon navigateur par défaut, c'est FirefoxURL. Sur un autre ordi, avec Chrome, c'est ChromeHTML. Et je suppose donc que IExplorer, Safari, .. et les autres ont chacun leur truc !

Je trouve une autre solution avec la registry : il s'agit ici d'identifier le programme associé par défaut à une extension de fichier, en l'occurrence .html.

Voici mon code modifié dans ce sens et ensuite, l’illustration de la registry à cet endroit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
        Dim Cle As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser
        Dim SCle As Microsoft.Win32.RegistryKey
 
        SCle = Cle.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.html\OpenWithList")
        Dim Valeur As String = SCle.GetValue("b")
        Dim Navigateur As String = Valeur
 
        Process.Start(Navigateur, "https://www.google.com")  ' Je garde Navigateur pour rester cohérent avec l'exemple précédent

Nom : Registry2.jpg
Affichages : 1429
Taille : 102,9 Ko

J'espère que cette version sera plus polyvalente ...

**Phil Rob** · 06/03/2020, 22h41

@Wallace
Merci pour ta solution.
Bon week-end

**Phil Rob** · 07/03/2020, 09h47

Mea culpa, mea maxima culpa !!!

Ce problème de navigateur par défaut ne m'a pas lâché de toute la nuit (ou presque

). Aussi, ce matin, j'ai complété mes essais.

Si ma dernière version (hier à 18h16) semblait parfaite (retrouver le programme par défaut pour ouvrir les html), elle ne résiste pas aux essais multiples.
Elle parfaite pour les fichiers HTML mais le navigateur par défaut est celui qui ouvre les liens HTTP (c'est vrai qu'il n'y a pas que du html dans ce qu'on ouvre avec le navigateur, il y a aussi des TXT, des ASP, ...).

Bref, la meilleure version que nous ayons est celle proposée par Wallace. Elle un peu plus complexe mais elle donne le bon navigateur !

Bon week-end à tous

**MrPARODIE100** · 10/03/2020, 03h35

Bonjour,

Je ne sais pas pourquoi j'ai encore une erreur? Quand sa load j'ai le MessageBox.show qui s'ouvre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Try
            Dim Cle As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser
            Dim SCle As Microsoft.Win32.RegistryKey
 
            SCle = Cle.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.html\OpenWithList")
            Dim Valeur As String = SCle.GetValue("b")
            Dim Navigateur As String = Valeur
 
            Process.Start(Navigateur, "https://www.google.com")
 
        Catch ex As Exception
            MessageBox.Show("Erreur du site web", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        End Try

**Phil Rob** · 10/03/2020, 09h01

Bonjour,

S'il te plait, relis les derniers messages et prends la solution de Wallace : dans son message du 6/3, 18h46, suivre le lien Une autre solution ICI.

Tu as utilisé ma deuxième version mais comme je l’indiquais dans mon message précédent, elle peut poser des problèmes, et c'est manifestement le cas chez toi.

N'hésite pas à nous faire savoir si tu ne trouves pas.

Bonne journée,

**MrPARODIE100** · 10/03/2020, 15h33

Bonjour,

J'ai mis aussi le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports Microsoft.Win32

mais on dirait que sa ne fonctionne pas plus...

**Phil Rob** · 10/03/2020, 15h55

Je vois que tu as utilisé cette fois le bon code et que tu as encore une erreur !
Ne peux-tu pas envoyer ton projet en ZIP, ou au moins un copier-coller de ta page de code, que je puisse tester ?
Note que l'erreur ne se situe dans la syntaxe du code que tu as ajouté, mais bine lors de l'exécution. C'est pourquoi sans tester, je ne peux rien te suggérer.

**MrPARODIE100** · 10/03/2020, 16h25

Salut,

C'est le code source. Je n'ai pas encore fini le code.

Ouvrir une page web en VB.NET

VB.NET

Vue hybride

Discussions similaires

Partager

Partager