Discussion :

[aymeric21]

Bonjour, voilà, je ne suis pas débutant car j'ai déjà fait des programme en VB.net / C#. Mon problèmes et que je me souvient plus quelle codage je doit mettre pour exécuter un logiciel externe comme Google Chrome et d'autres logiciel

Mon projet et en VB.net, voici le code si dessous :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub B_OpenChrome_Click(sender As Object, e As EventArgs) Handles B_OpenChrome.Click
        Try
            Process.Start("https://www.facebook.com")
        Catch ex As Exception
            '' x86''
            Process.Start("C:\Program Files\Google\Chrome\Application\chrome.exe")
        End Try
    End Sub

Dans le codage, je voudrais supprimer (C:\Program Files\Google\Chrome\Application\) et garder le chrome.exe car l'application et en Any CPU donc exécutable sur les systèmes x86 et x64. Je sais juste que la destination du fichier n'est pas la même donc c'est pour celà que je veux enlever (C:\Program Files\Google\Chrome\Application\)

J'ai juste besoin d'un conseil, juste pour savoir si celà va fonctionner ou afficher un message d'erreur. si je garde (Process.Start("https://www.facebook.com")), sa risque d'ouvrir un autres programme comme Microsoft Edge ou un autre navigateur par défault donc je ne veux pas.

Le codage au niveau du lien Facebook, sur mon PC ouvre facebook mes sur Google Chrome, j'ai r'ajouter en dessous, l'ouverture de Google chrome, mes je pence que se code et du n'import quoi, j'ai donc besoins d'un conseil, et savoir quelle code mettre.

Je vous remercie d'avance

[jcdentons]

Bonjour aymeric21,

Vous pourriez utiliser une variable dans le fichier app.config, des instructions de précompilation (#if en C#) ou encore mettre à jour une variable du projet dans le csproj ou le vbproj.

[aymeric21]

Bonjour aymeric21,

Vous pourriez utiliser une variable dans le fichier app.config, des instructions de précompilation (#if en C#) ou encore mettre à jour une variable du projet dans le csproj ou le vbproj.

Oui, mes au niveau du codage, car c'est di vb.net, je me demande si sa va fonctionner, et j'ai mis en Any CPU mes les repertoires sur x86 & x64 ne sont pas les même, si je fait :

Code :

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

1
2
 
Process.Start("chrome.exe")

Sur x86 le code ne fonctionne pas. Si vous voulez le code complet, je peut le publié.

Cordialement

[wallace1]

Bonjour,

Il n'y a pas de remède miracle, il faut juste se poser les bonnes questions dès le départ ......

--> Déjà il faut savoir si ta problématique concerne uniquement l'exécution d'une url à partir d'un navigateur spécifié (Chrome, Opéra, Mozilla, Edge, IE, etc...) ????
Lequel cas il te faudra énumérer exhaustivement tous les navigateur existants pour connaitre l'emplacement de l'exécutable, exemple :
- pour chrome sur OS x32 : "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" ou OS X64 : "C:\Program Files\Google\Chrome\Application\chrome.exe"
- Pour IE sur OS x86 : "C:\Program Files (x86)\Internet Explorer\iexplore.exe" ou OS X64 : "C:\Program Files\Internet Explorer\iexplore.exe"

Pour énumérer les applications installées sur l'OS tu peux parcourir la clé de registre suivante :
- Pour OS x64 :

Code :

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

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

et/ou

Code :

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

HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall

- Pour OS x32 :

Code :

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

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

--> Veux-tu que ton url soit exécutée depuis le navigateur par défaut de l'utilisateur ???

Lequel cas il faut que tu parcours la base de registre pour savoir si l'utilisateur a déterminer un navigateur par défaut sinon tu utilises IE car il existe dans tous les OS Windows :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
    Public Shared sub ExecUrl()
        Process.Start(GetDefaultBrowserPath,"TON_URL")
    End Sub
 
    Public Shared Function GetDefaultBrowserPath() As String
        Dim defaultBrowserPath As String = String.Empty
        Dim regkey As RegistryKey = Nothing
        Try
            regkey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\shell\Associations\UrlAssociations\http\UserChoice", False)
            If regkey IsNot Nothing Then
                Dim ProgId = regkey.GetValue("Progid").ToString()
                regkey = Registry.ClassesRoot.OpenSubKey(ProgId & "\Shell\open\command", False)
                defaultBrowserPath = If(Not regkey Is Nothing,
                    regkey.GetValue("").ToString(),
                    Registry.ClassesRoot.OpenSubKey("HTTP\Shell\open\command", False).GetValue("").ToString())
            Else
                defaultBrowserPath = Registry.ClassesRoot.OpenSubKey("HTTP\Shell\open\command", False).GetValue("").ToString()
            End If
        Catch ex As Exception
 
        Finally
            If Not regkey Is Nothing Then regkey.Close()
        End Try
        Return CleanupPath(defaultBrowserPath)
    End Function
 
    Private Shared Function CleanupPath(path$) As String
        path = path.ToLower().Replace("""", "")
        If Not path.EndsWith(".exe") Then
            path = path.Substring(0, path.LastIndexOf(".exe", StringComparison.Ordinal) + ".exe".Length)
        End If
        Return path
    End Function

++