IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

[SendMessage] Envoyer du texte


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut [SendMessage] Envoyer du texte
    Bonjour à tous,
    Je cherche à envoyer du texte à une fenêtre dont je connais le Handle.
    Je sais très bien que l'on peut s'y prendre avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    SendKeys.SendWait("Mon texte")
    Mais je cherche à cibler un Handle en particulier, il me faut à tout pris utiliser SendMessage.
    Voilà, en vous remerciant.
    Bonne soirée

  2. #2
    Membre Expert
    Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes
    Inscrit en
    Octobre 2008
    Messages
    1 966
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 966
    Billets dans le blog
    7
    Par défaut
    Citation Envoyé par Patak Voir le message
    Bonjour à tous,
    Je cherche à envoyer du texte à une fenêtre dont je connais le Handle.
    Je sais très bien que l'on peut s'y prendre avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    SendKeys.SendWait("Mon texte")
    Mais je cherche à cibler un Handle en particulier, il me faut à tout pris utiliser SendMessage.
    Voilà, en vous remerciant.
    Bonne soirée
    Voilà un exemple avec Notepad :

    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("Notepad")
            If processes(0) IsNot Nothing Then
                Dim Handle As IntPtr = FindWindowEx(processes(0).MainWindowHandle, New IntPtr(0), "Edit", Nothing)
                SendMessage(Handle, 12, 0, "Ceci est 1 test !")
            End If
        End Sub
    End Class
    Q : Comment récupérer le ClassName "Edit" du Hande de fenêtre ?
    R : Moi j'utilise Autoit :




  3. #3
    Invité
    Invité(e)
    Par défaut
    Woaw bravo
    C'est toi qui l'a fait où tu l'as trouvé quelque part ?
    Dernière modification par Invité ; 05/01/2013 à 11h48.

  4. #4
    Membre Expert
    Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes
    Inscrit en
    Octobre 2008
    Messages
    1 966
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 966
    Billets dans le blog
    7
    Par défaut
    Citation Envoyé par Patak Voir le message
    Woaw bravo
    C'est toi qui l'a fait où tu l'as trouvé quelque part ?
    quelle question.....lol je developpe en c# et vbnet depuis 2004 donc l utilisation des fonctions API sont plutot monnaie courante.....et c est une tres tres bonne habitude a prendre que je te conseil vivement d adopter
    MSDN, Technet, ItPro,..... sont mes principales docs de resources il n en existe pas des mieux fournies.

    Mon dernier projet de dev : http://wallace87000.upd.fr/M8FU.exe



    cordialement sharp

  5. #5
    Invité
    Invité(e)
    Par défaut
    J'ai téléchargé ton projet et tu es vraiment très fort
    J'aurai bien aimé voir le code source, mais tu as obfusqué le projet

    Moi aussi, j'adore les API !
    Dalleurs, j'ai modifié les déclarations, je les préfère ainsi :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
        Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
     
        Declare Auto Function FindWindowEx Lib "user32.dll" (ByVal hwndParent As IntPtr, ByVal hwndChildAfter As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As IntPtr) As IntPtr
    Y a t-il une différence entre les déclarations d'API que tu me proposais et celles-là ?
    Et pourquoi elles ne fonctionnent pas si j’enlève le mot "Auto" ?

  6. #6
    Membre Expert
    Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes
    Inscrit en
    Octobre 2008
    Messages
    1 966
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 966
    Billets dans le blog
    7
    Par défaut
    Citation Envoyé par Patak Voir le message
    J'ai téléchargé ton projet et tu es vraiment très fort
    J'aurai bien aimé voir le code source, mais tu as obfusqué le projet

    Moi aussi, j'adore les API !
    Dalleurs, j'ai modifié les déclarations, je les préfère ainsi :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
        Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
     
        Declare Auto Function FindWindowEx Lib "user32.dll" (ByVal hwndParent As IntPtr, ByVal hwndChildAfter As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As IntPtr) As IntPtr
    Y a t-il une différence entre les déclarations d'API que tu me proposais et celles-là ?
    Et pourquoi elles ne fonctionnent pas si j’enlève le mot "Auto" ?
    Il n'y a pas de différence excepté que l'importDLL depuis l'espace de nom "System.Runtime.InteropServices" gère la conversion unicode vers ansi, c'est en quelque sorte automatique alors que la fonction comme tu la déclares requiert le "charsetmodifier" --> Auto ou Unicode pour que la conversion soit implicite lors de l'appel.


+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Comment envoyer du texte dans une fenêtre spéciale ?
    Par Coussati dans le forum Composants VCL
    Réponses: 11
    Dernier message: 25/10/2005, 09h00
  2. [VB.NET] Comment envoyer du texte enrichi(couleurs,style...)
    Par fdiedler dans le forum Windows Forms
    Réponses: 14
    Dernier message: 17/03/2005, 14h49
  3. [VB.NET] Comment envoyer un texte modifié(couleurs,style...)
    Par fdiedler dans le forum Windows Forms
    Réponses: 8
    Dernier message: 14/03/2005, 18h11
  4. [Rave5] Comment envoyer un text ver un label
    Par pacs dans le forum Rave
    Réponses: 2
    Dernier message: 03/03/2005, 14h55
  5. Socket:Envoyer du texte d'un serveur vers tout les clients
    Par cedm78 dans le forum Web & réseau
    Réponses: 7
    Dernier message: 01/08/2002, 16h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo