Accueil > Forum > > > > "encapsuler" un exe dans une form vb
"encapsuler" un exe dans une form vb
lundi 18 juin 2007 à 12:33:27 |
"encapsuler" un exe dans une form vb

thephil
|
Bonjour à tous et toutes,
voilà ma question, toujours sans réponse après de multiples recherches : est'il possible dans une feuille vb, à travers un controle bien précis par exemple, d'insérer/encapsuler un exécutable ? c'est à dire de faire en sorte qu'il s'éxécute dans un cadre de la feuille et non en tant qu'application tierce à l'application vb.
si quelqu'un d'entre vous à une idée, tenez moi au courant et merci d'avance pour toutes vos réponses.
|
|
lundi 18 juin 2007 à 12:36:20 |
Re : "encapsuler" un exe dans une form vb

niky
|
Réponse acceptée !
Parmi les API Windows, tu devrait en trouver une qui s'appelle SetParent (ou un truc du genre) : elle permet de donner à une fenêtre le handle de ta fenêtre comme parent (et donc elle s'exécute à l'intérieur).
|
|
lundi 18 juin 2007 à 12:39:38 |
Re : "encapsuler" un exe dans une form vb

jmfmarques
|
Bonjour,
J'ai peut-être mal compris ta question... S'il ne s'agit que de faire exécuter une application tierce dans la tienne : tu peux insérer un objet OLE, tout simplement, et elle tournera dans ton appli si la machine cliente possède également ce logiciel tiers. S'il s'agit par contre d'englober dans ton application un exécutable tiers sans que la machine cliente ne possède le dit exécutable, ce n'est pas possible, bien évidemment (et quid, de toutes manières, du Copyright ?)
|
|
lundi 18 juin 2007 à 13:32:24 |
Re : "encapsuler" un exe dans une form vb

thephil
|
niky --> ok je vais regarder pour l'api jmfmarques --> oui tu as très bien compris, (c'est dans le but de regrouper deux applis dans un même 'utilitaires'), dans ce cas quel est l'ocx/dll à ajouter dans les composants pour avoir un tel controle ?, n'ayant jamais fais de choses similaires ...
encore merci
|
|
lundi 18 juin 2007 à 13:43:17 |
Re : "encapsuler" un exe dans une form vb

jmfmarques
|
Regrouper dans un même utilitaire : oui, certainement... Mais à condition que l'utilitaire "inséré" soit présent sur la machine cliente (et sans que tu ne le distribues... car ce serait illégal). Est-ce celà que tu veux : réponse oui ou réponse non . Une autre fois : si réponse non : pas de solution Si réponse oui : deux solutions (objet OLE et une autre). Tu dis ... et je te donne la solution simple (si, une autre fois, le logiciel appelé est bien déjà présent sur la machine cliente... hein ...)
|
|
lundi 18 juin 2007 à 13:57:34 |
Re : "encapsuler" un exe dans une form vb
|
lundi 18 juin 2007 à 16:12:02 |
Re : "encapsuler" un exe dans une form vb

jmfmarques
|
Réponse acceptée !
Parler ? Oui ! Mais tu auras bien deux applis (et pas une seule), bien que la deuxième s'exécutrera dans la première ...
Voilà commentr (exemple, donc) :
ACHTUNG ! Prends connaissance des commentaires mis en rouge dans ce qui suit (Muy importante !!!)
'ATTENTION :' '' La ligne de code suivante :' 'TerminateProcess GetCurrentProcess, 0 ' on met ici fin à l'application appelante)>> 'met fin à l'application appelante.' 'Il convient donc bien évidemment de compiler la présente application puis de lancer 'son exécutable. 'Il est sinon bien clair que serait fermé VB.Exe (car c'est bien VB.exe qui est 'l'application en cours, au "design Time ' Il convient bien évidemment, par ailleurs, de remplacer la ligne : ' Shell("d:\monoutil\modeles\utut\util.exe", vbNormalFocus)) 'en y mettant le chamin complet de l'application de ton choix, 'pour faire ton test !
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Private Sub Form_Activate() Dim sSave As String sSave = String(255, 0) ' création d'un buffer GetCurrentDirectory 255, sSave ' extraction du répertoire en cours MsgBox "le répertoire en cours est : " & sSave
Dim Pid As Long LockWindowUpdate GetDesktopWindow ' verrouillage de la fenêtre principale 'Execution de l'exécutable Windows de votre choix 'Pid = Shell("c:\winnt\notepad.exe", vbNormalFocus) Pid = Shell("d:\monoutil\modeles\utut\util.exe", vbNormalFocus) If Pid = 0 Then MsgBox "Erreur / démarrage de l'application" mWnd = InstanceToWnd(Pid) ' extraction du handle de la fenêtre SetParent mWnd, Me.hwnd ' définition du parent de l'application à ouvrir Putfocus mWnd ' on donne maintenant le focus à l'application ouverte LockWindowUpdate False ' déverrouillage de la fenêtre principale End Sub
Function InstanceToWnd(ByVal target_pid As Long) As Long Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long test_hwnd = FindWindow(ByVal 0&, ByVal 0&) ' recherche de la premère fenêtre Do While test_hwnd <> 0 If GetParent(test_hwnd) = 0 Then ' on vérifie que la fenêtre n'est pas une fenêtre fille 'on recherche le fil (thread) de la fenêtre test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid) If test_pid = target_pid Then InstanceToWnd = test_hwnd Exit Do End If End If test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT) ' on extrait le handle de la fenêtre suivante Loop End Function Private Sub Form_Unload(Cancel As Integer) DestroyWindow mWnd ' déchargement de la fenêtre de l'application ouverte TerminateProcess GetCurrentProcess, 0 ' on met ici fin à l'application appelante End Sub
Voilà donc ! Lis tout bien et applique en connaissance de cause . Une précision : tu restes responsable et seul responsable de tout geste inconsidéré, dans cette affaire. (alors lis bien)...
|
|
lundi 18 juin 2007 à 16:21:27 |
Re : "encapsuler" un exe dans une form vb

thephil
|
Je viens d'essayer, c'est parfait, c'est exactement ce dont j'avais besoin donc merci beaucoup Jmfmarques
-->> MP
|
|
lundi 6 octobre 2008 à 00:51:50 |
Re : "encapsuler" un exe dans une form vb

xpert12
|
Comment positionner le programme encapsulé par exemple avec top=0 et left=0
|
|
jeudi 26 mai 2011 à 11:58:40 |
Re : "encapsuler" un exe dans une form vb

lafume
|
Salut,
4 ans plus tard, il y a toujours des gens qui bossent en vb6, mais oui !
Et mon soucis est que le code mentionné plus haut ne fonctionne pas en W7. Quelqu'un aurait-il une solution ?
Merci.
|
|
Cette discussion est classée dans : exe, form, vb, feuille, encapsuler
Répondre à ce message
Sujets en rapport avec ce message
Feuille avec graphisme d'une image [ par Allan007 ]
Bonsoir à tous,Il y a environ un an de ça, j'avais trouvé sur Codes-Sources VB, un Code ou un Tutorial, qui expliquait comment faire une form/feuille
Imiter un Plein Ecran avec VB [ par PaulVB ]
SltPour Imiter Un plein Ecran avec ta feuille Form, tu peux procéder comme suit:>Fais Afficher le présentateur de feuille de VB sur ton WorkSpace>modi
Concepteur VERSUS Form !!??!! [ par mateo77 ]
Salut tout le mondeMon problème est le suivant :- j'ai créé une form dans une appli en VBA- je l'ai exporter pour pouvoir la récupérer dans un nouveau
Créer un exe avec passage de paramètres [ par magdayde ]
Bonjour,J'aurais besoin de créer un p'tit programme en VB qui me permet de générer un exe. (je suis débutante en VB)En fait, je voudrais faire apparai
Appel Procédure d'événement [ par Galain ]
Salut à tousExposé du problèmeSoit 3 Forms Frm1,Frm2 et FRm3 en VB 6.0Sur chacune des formes 3 contrôles Tetbox : TextBox1,TextBox2,TextBox3Dans un mo
pivoter une form? [ par Finality ]
Bonjour tout le monde,dans le cadre d'une application (un jeu en VB) j'aimmerais savoir si il serait possible, en vb 2005, de pouvoir faire pivoter au
VB.Net Position d'un GroupeBox [ par MagDix ]
Salut...J'ai un problème très bête.J'ai 2 Form dans mon code... quand je clqieu sur un bouton ca fais disparaitre la premiere form et apparaitre la se
Relation entre Deux form.vb [ par buddydublin ]
Bonjour,Je travaille en vb.net, j'ai une from1.vb dans laquelle j'ai un bouton qui calcule des fréquences et des gains correspondant pour chaque fréqu
ou est passé l'assistant feuille de données dans VB.NET [ par hmecode ]
salut,j'utilisais dans vb6 l'assistant de feuille de données pour créer des formulaires de type principale/secondaire,ceci ne m'est plus possible car
form htm sous Vb.NET [ par AVI17 ]
je voudrais savoir :1/ comment lancer une form htm dans une appli vb.NET2/ s'il est possible dans une forme htm de mettre des variables communes entre
Livres en rapport
|
Derniers Blogs
DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|