Discussion :

[Lord - Nelson]

Salut, voilà, en vb.net, j'ai créer une fenêtre avec un textbox dedans, j'ai compiler le tout et récupérer le exe.
Ensuite j'ai créer un nouveau projet vb.net et je souhaiterais depuis se nouveau programme écrire dans le suivent (le exe)

Mais je ne sais pas comment accéder à l'autre programme compiler (exe) et pas comment écrire dans le texbox.
Savez-vous comment procéder ?

[Beowulf59]

Bonjour,

Je vois deux solutions : soit créer un fichier commun qui sera manipulé par les deux programmes, soit passer en paramètre ton texte au lancement de ton application Textbox, ce qui est à mon sens plus propre (exemple en C#, à adapter).

[Lord - Nelson]

En faite ma fenêtre externe dois pouvoir recevoir du texte n'importe quand !
C'est une fenêtre Débug en faite, depuis mon programme sous VB.Net, j’enverrais le texte vers cet fenêtre de sortie.

J'ai pas envie de passer par un fichier non, je veux lui envoyer le texte directement voilà

[chaparo]

Bonjour,

Il y a la fonction Debug.writeLine qui s'affiche dans la fenêtre de sortie dans visual studio si tu veux.
Mais ca ne sera accesible que par toi du coup.
Sinon il faut voir la gestion des socket pour un systeme de tchat, voir ici

[Lord - Nelson]

Non je veux pas faire ça, je connais le débug de VB
Je veux faire le mien

J'ai trouvé ça pour ouvrir mon programme:

Code :

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

FenêtreDébug = Shell("C:\Users\xxx\Desktop\Débug.exe", vbNormalFocus)

Mais je ne sais pas comment écrire dedans mon texbox !
Je ne sais pas non plus comment fermer mon programme !

[wallace1]

Bonjour,

Si tu veux interagir avec d'autre programmes compilés tu peux regarder du côté des API.


---> Voilà un exemple qui permet d'écrire dans un fichier texte ouvert dans notepad :

http://www.developpez.net/forums/d12...envoyer-texte/

---> La bible des fonctions Natives Window (Pinvoke ou API) :

http://www.pinvoke.net/


PS : tu devras certainement utiliser l'API GetClassName lorsque tu auras récupérer le handle de ta fenêtre de programme

Il n'existe pas d'autres solutions pour ce genre d'interaction avec un binaire compilé !

+

[Pol63]

moi j'aurais plutot vu parmis tcp ip/wcf/canaux nommés ; technologies qui permettent de faire du dialogue entre 2 processus, pour certaines même entre 2 pc différents

[wallace1]

moi j'aurais plutot vu parmis tcp ip/wcf/canaux nommés ; technologies qui permettent de faire du dialogue entre 2 processus, pour certaines même entre 2 pc différents

Je ne connaissais pas ..o_O

Merci, je vais glaner l'info de ce pas.

[Pol63]

wcf est une surcouche de tcp/ip
le tcp/ip permet le dialogue sur le réseau, mais ca fonctionne très bien en local aussi

les canaux nommés j'ai jamais utilisé mais à priori c'est pour du local seulement, et ca serait peut etre plus simple à mettre en oeuvre


enfin tout ca est plus courant que l'utilisation d'api je pense ^^
le cas typique c'est entre un service windows qui permet l'unicité du traitement et une appli dans system tray qui permet de faire le lien entre l'utilisateur et le service (report et command)

[Lord - Nelson]

Hum merci mais ça va pas m'aider je pense......

[wallace1]

Hum merci mais ça va pas m'aider je pense......

C'est en se renseignant et en lisant des ressources techniques qu'on apprends.....

[Pol63]

Hum merci mais ça va pas m'aider je pense......

pourquoi donc ?

[Lord - Nelson]

Bha... pas simple quoi...

wallace1 ton message avec ton premier lien ma été en faite très utile et mis +1, merci
Si ce n'est que c'est pas dans un fichier mais bien dans le bloc note que ça écrit hein

J'ai essayer ça et ça fonctionne bien mais ça écrie qu'une seule fois et une seule ligne peut importe le nombre de commande Send:

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
Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <DllImport("User32.dll")> _
    Public Shared Function SendMessage(hWnd As IntPtr, uMsg%, wParam%, lParam$) As Integer
    End Function
 
    <DllImport("user32.dll")> _
    Public Shared Function FindWindowEx(hwndParent As IntPtr, hwndChildAfter As IntPtr, lpszClass$, lpszWindow$) As IntPtr
    End Function
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim processes As Process() = Process.GetProcessesByName("Débug")
        If processes(0) IsNot Nothing Then
            Dim Handle As IntPtr = FindWindowEx(processes(0).MainWindowHandle, New IntPtr(0), "WindowsForms10.EDIT.app.0.2bf8098_r13_ad1", Nothing)
            SendMessage(Handle, 12, 0, "Ceci est 1 test !")
        End If
    End Sub
 
End Class

A noté que c'est quand même assez pointu car il faut rechercher le nom de la classe du contrôle, ici WindowsForms10.EDIT.app.0.2bf8098_r13_ad1 pour mon cas que j'ai trouver grace à AutoIt
Sa fonctionne mais avec petit problème cité, ya moyen de faire quelque chose avec tous ça quand même.

Donc "Débug" c'est le texte de la form, le titre quoi, et "WindowsForms10.EDIT.app.0.2bf8098_r13_ad1" le nom du contrôle (ici nommer dans mon projet sous VB.Net -> texbox1).
Les autres truc j'y comprends rien xd

[Lord - Nelson]

Bonsoir,

Serait-il possible d'avoir une petite aide svp
Sa écris dans mon texbox mais une seule fois et c'est tout !

Comment faire pour ajouter du texte dedans ?