Ouvrir une page web en VB.NET

Version imprimable

Voir 40 message(s) de cette discussion en une page

03/03/2020, 23h35
MrPARODIE100

Ouvrir une page web en VB.NET
Bonjour tout monde,

J'ai le code suivant :
Code:

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
04/03/2020, 08h00
Phil Rob
Bonjour,

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

Essaie donc ceci :
Code:

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

:)
05/03/2020, 01h39
MrPARODIE100

Comment fait-on pour utiliser le navigateur par défaut de l'utilisateur ?
05/03/2020, 08h16
Christophe

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

Citation:
Envoyé par MrPARODIE100
Bonjour tout monde,

J'ai le code suivant :
Code:

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:

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

Citation:

Envoyé par Selve

Bonjour Moi je fais comme ça

Code:

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()

06/03/2020, 10h01
Selve
Les imports ont été déclarés ?

Y a t'il un message d'erreur ?
Code:

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

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:

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,

:D

06/03/2020, 15h30
Phil Rob

1 pièce(s) jointe(s)

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 :

Pièce jointe 543659

Bon amusement

1 pièce(s) jointe(s)

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:

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
Pièce jointe 543694

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

Citation:
Envoyé par Selve
Bonjour Moi je fais comme ça
Code:

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 : :plusser:
Une autre solution ICI

++

06/03/2020, 21h41
Phil Rob

@Wallace
Merci pour ta solution.
Bon week-end :D
07/03/2020, 08h47
Phil Rob

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 :D

Bonjour,

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

Code:

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

10/03/2020, 08h01
Phil Rob

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,

:D
10/03/2020, 14h33
MrPARODIE100

1 pièce(s) jointe(s)

Bonjour,

J'ai mis aussi le

Code:

Imports Microsoft.Win32

mais on dirait que sa ne fonctionne pas plus...
10/03/2020, 14h55
Phil Rob

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.
10/03/2020, 15h25
MrPARODIE100

1 pièce(s) jointe(s)

Salut,

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

2 pièce(s) jointe(s)

Pas de chance, il n'y a aucun problèlme chez moi ... :(
Ci-joint, la vidéo de mon test : Pièce jointe 544711.
Je n'ai rien changé au code, seulement ajouté un MessageBox pour examiner la chaine fournie par le code.
Je te propose de faire le même test chez toi pour essayer de mettre le doigt sur le problème.

Il serait bien aussi de fournir les copies d'écran de Regedit ouvert sur les clés utilisées (illustration ci-dessous) :
CurrentUser\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice\ProdId
et
ClassesRoot\ ... Valeur du ProgId de la clé précédente ... \shell\open\command
Code:

1 2 3 4 5 6 7 Public Shared Sub ExecUrl() Dim Navigateur As String = GetDefaultBrowserPath() ' Juste pour voir ... MessageBox.Show("Navigateur = " & Navigateur) Process.Start(Navigateur, "https://www.google.be/") ' Process.Start(GetDefaultBrowserPath, "http://3dotdevcoder.blogspot.fr/") ' Fonctionne aussi End Sub
Pièce jointe 544721

10/03/2020, 16h48
MrPARODIE100

Salut,

Dans la vidéo on ne voit pas l'ouverture de la page web.

Voir 40 message(s) de cette discussion en une page