entete application

Question

Bonjour à tous, 
c'est  possible en VB de trouver l'entête d'une application en cours associé au handle du socket ?

drikce06 · Answer

Salut essaye ça!

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long


Dim MyStr As String


'Create a buffer


MyStr = String(100, Chr$(0))


GetWindowText Me.hwnd, MyStr, 100


MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)


End Sub








 Drikce 06

drikce06 · Answer

Décidément c'est pas mon fort les copier coller aujourd'hui

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Dim MyStr As String
MyStr = String(100, Chr$(0))
GetWindowText Me.hwnd, MyStr, 100
MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)

www.allapi.net

 Drikce 06

le cancre · Answer

merci bien Drikce ; )  mais....
mais je cherche pas le nom de l'application mais son entête, voici le schéma 

Application                                           Application
      \                                                   /
    Module Internet      Module Internet      Module Internet
          \                 /       \                /
          LNI-1          LNI-1      LNI-2         LNI-2
             \           /             \          /
            Réseau local 1           Réseau local 

programme A utilise un socket B ,quand l'ordi receptionne des données, il le transmet au bon programme ...grace à l'entête de l'application(A) qui est associé au handle du socket (B)

drikce06 · Answer

Ce que tu appelles entête c'est la barre de titre?
Mais logiquement ce que je t'ai mis ça fonctionne!
Par exemple si tu connais le handle d'un bouton avec cette fonction il te retrouve le texte du bouton.

 Drikce 06

drikce06 · Answer

Exemple:

2821194 c'est le handle du bouton google qu'il y a en haut à gauche de mon IE

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long


Private Sub CommandButton1_Click()
Dim MyStr As String
MyStr = String(100, Chr$(0))
GetWindowText 2821194, MyStr, 100
MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
MsgBox (MyStr) =Google
End Sub

 Drikce 06

le cancre · Answer

Ce que tu appelles entête c'est la barre de titre?

non, c'est pas la barre de  titre 
(sinon oui ton code marche bien...no problème ;)

(par rapport à mon dessin)
si tu veux le module internet détermine à quel programme applicatif le datagramme est destiné,un firewall et antivirus utilise cette technique
je veux faire la même que le module internet en gros

elguevel · Answer

Pas très clair pour moi vos explications !?  tu parle du modèle OSI ?

Tu veux savoir de quelle application est issu un paquet ?

le cancre · Answer

Tu veux savoir de quelle application est issu un paquet ?

oui

Entete application

8 réponses

Votre réponse

Discussions similaires