Comment tester si IE est ouvert en VB6

September 17

Vérifiez si un Internet Explorer, ou IE, la fenêtre est ouverte en utilisant l'interface de programme d'application Windows, ou API. La fonction "FindWindowEx" inclus dans le fichier "user32.dll" vous permet d'identifier tous les programmes ouverts, y compris IE. Cette fonction de programmation permet aux développeurs d'inviter les utilisateurs à fermer des programmes incompatibles; vous pouvez également utiliser le programme ouvert au sein de votre logiciel personnalisé.

Instructions

1 Cliquez sur "Démarrer" et sélectionner "Tous les programmes" dans le menu. Cliquez sur "Microsoft Visual Basic" pour ouvrir l'éditeur.

2 Cliquez sur l'élément de menu "Fichier" et sélectionner "Ouvrir". Double-cliquez sur le fichier VB que vous souhaitez modifier.

3 Insérez le "user32.dll" référence de fichier vers le haut de votre fichier de code. Copiez et collez le code suivant au début du fichier de code VB:

Private Declare Function FindWindowEx Lib "user32" Alias ​​"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

4 Utilisez la fonction "FindWindowEx" pour identifier si la fenêtre IE est ouvert. La fonction retourne un gestionnaire de fenêtres, qui est un système d'identification numérique pour chaque fenêtre de programme ouvert. Tapez le code suivant:

Dim-à-dire As Long

ie = FindWindowEx (0 &, 0 &, "Internet Explorer", "Internet Explorer")

5 Identifier si la fenêtre est ouverte. Si Internet Explorer est pas ouvert, la variable "ie" contient le numéro "0" Le code suivant affiche une boîte de message si IE est ouvert:

Si ie <> = Ensuite,

MsgBox "IE est ouvert."

Fin si


          

Post a comment: