[VB6] Détecter le navigateur par default

Version imprimable

07/12/2004, 20h49
GeDeon35

[VB6] Détecter le navigateur par default

Je souhaite savoir de quelle manière il est possible de connaître a coup sûr!!!
Le navigateur par default utiliser dans windows (toutes versions)?
Et pourvoir récuréper le nom de l'éxecutable du navigateur?
Ex: pour Internet Explorer => iexplorer.exe
J'espère être clair dans ma demande!

Je bloque totalement sur ce problème.
Il doit exister un API, pour ce que je souhaite effectuer, mais je n'arrive pas a le trouver!

Merci pour vos réponses.
13/12/2004, 15h56
Rohan Michel

Navigateur par défaut

Le petit prg suivant te permettra de loguer ton utilisateur sur l'URL de ton choix et quelque soit son navigateur. Si là n'est pas le but de ta question, tu laisses tomber. Il y a probablement plus simple, mais avec ces 2 API, c'est sûr, ça marche.

***********************
1 - Tu colles ce qui suit dans un module :

Option Explicit

Public 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

Public Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile _
As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

Public Enum T_WindowStyle
Maximized = 3
Normal = 1
ShowOnly = 5
End Enum

***********************************
2 - Dans une feuille tu mets un bouton et tu colles tout ce qui suit dedans :

Option Explicit

Private Sub Command1_Click()
GoToInternet Me, "http://www.google.com ", Normal
End Sub

Private Sub GoToInternet(Parent As Form, URL As String, WindowStyle As T_WindowStyle)
Dim lngReturn As Long

If fsGetBrowserInfo Then
lngReturn = ShellExecute(Parent.hwnd, "Open", URL, "", "", WindowStyle)
If lngReturn <= 32 Then ' Erreur
MsgBox "Page Web non accessible", vbExclamation + vbOKOnly, "Sheet !"
End If
Else
' On saute de joie
MsgBox "Yooopiiiie ! ", vbExclamation + vbOKOnly, "Moi content"
End If
End Sub

Private Function fsGetBrowserInfo() As Boolean
Dim strFileName As String, strDummy As String
Dim strBrowserExec As String * 255
Dim lngRetVal As Long
Dim intFileNumber As Integer
Dim Chemin As String

Chemin = App.Path & "\"
' On crée un fichier HTML bidon
strBrowserExec = Space(255)
strFileName = Chemin & "bidon.htm"
intFileNumber = FreeFile
Open strFileName For Output As #intFileNumber
Write #intFileNumber, "<HTML> <\HTML>"
Close #intFileNumber
' On recherche si une appli est associée à ce type de fichiers
lngRetVal = FindExecutable(strFileName, strDummy, strBrowserExec)
strBrowserExec = Trim(strBrowserExec)
' Si on trouve l'appli on saute de joie
If lngRetVal <= 32 Or strBrowserExec = "" Then ' Error
fsGetBrowserInfo = False
Else
fsGetBrowserInfo = True
End If
Kill strFileName
End Function

Si tu cliques sur le bouton, sauf grosse erreur de ma part, tu devrais te loguer sur Google, quelque soit ton navigateur.

il suffit simplement de lire dans la base de régistre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Const HKEY_CLASSES_ROOT = &H80000000
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
 
Private Sub Commande27_Click()
    Dim Ret         As Long
    Dim lResult     As Long
    Dim RetourType  As Long
    Dim buffer      As String
    Dim BufferSize  As Long
    RegOpenKey HKEY_CLASSES_ROOT, "http\Shell\Open\Command", Ret 'Ouverture
    lResult = RegQueryValueEx(Ret, "", 0, RetourType, ByVal 0, BufferSize)
    If lResult = 0 Then
        buffer = String(BufferSize, Chr$(0))
        lResult = RegQueryValueEx(Ret, "", 0, 0, ByVal buffer, BufferSize)
    End If
    MsgBox buffer
    RegCloseKey Ret 'Fermeture
End Sub

dans mon cas on peu voir que j'utilise firefox

Citation:

C:\PROGRA~1\MOZILL~1\FIREFOX.EXE -url "%1"

donc, a toi de te créé un parser pour lire ton buffer

Demande beaucoup moins de ressource que la méthode de notre collègue Rohan Michel