Savoir si l'appli tourne sur vb
Soyez le premier à donner votre avis sur cette source.
Snippet vu 2 587 fois - Téléchargée 38 fois
Contenu du snippet
Un code tout simple qui détermine si l'appli est en train de tounée sur VB6 ou en .exe
C'est tout
Source / Exemple :
Public Function VBRun() As Boolean
On Error GoTo Bogue
Debug.Print 1 / 0
VBRun = False 'Si l'appli est compilé
Exit Function
Bogue:
VBRun = True 'Si l'appli tourne sur VB6
End Function
Conclusion :
C'est tout
A voir également
- Savoir si l'appli tourne sur vb
- Savoir si votre appli tourne seule ou sous vb - Codes sources - Visual Basic / VB.NET (Exécution)
- Visual Basic / VB.NET : Changer la priorite de l'appli - CodeS SourceS - Guide
- Visual Basic / VB.NET : Enlever son appli de la liste des taches - CodeS SourceS - Guide
- Visual Basic / VB.NET : Terre en 3d qui tourne sur son axe avec texture (directx) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Vecteurs tournants de fresnel - CodeS SourceS - Guide
- Messages postés
-
117
- Date d'inscription
- mercredi 3 décembre 2003
- Statut
- Membre
- Dernière intervention
- 11 octobre 2007
1mais la solution que je présente n'est pas dénuée d'intérêt: elle détermine réellement l'application qui execute la procédure courante.
ta source est plus simple, mais elle ne détermine pas directement l'appli en cours. elle reconnait une différence de traitement entre l'interprétation faite pas vb6 d'un code non compilé et un code compilé /executé.
mais je le répète: ta source me plait.
comment as-tu découvert ca ? (Debug.Print 1/0)
- Messages postés
-
117
- Date d'inscription
- mercredi 3 décembre 2003
- Statut
- Membre
- Dernière intervention
- 11 octobre 2007
1Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Function IsInIDE() As Boolean
Dim strFileName As String
Dim lngCount As Long
strFileName = String(255, 0)
lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
strFileName = Left(strFileName, lngCount)
IsInIDE = UCase$(Right$(strFileName, 8)) Like "\VB#.EXE"
End Function
:)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.