sendmessage

Question

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Sub Command1_Click()


Dim Title As String * 256
hWndform1& = FindWindow("#32770", "Remote Connect")
If (hWndform1& = 0) Then
MsgBox ("Application fermer")
Else

hwndtxt1& = FindWindowEx(hWndform1&, 0&, "Edit", "")


Call SendMessageByString(hwndtxt1&, WM_SETTEXT, 0&, Text1.Text)

End If

End Sub




voici le code que j'utilise pour modifier le champ edit d'une application externe

ce code me permet de modifier seulement le 1er edit quil trouve

ma question est comment saisir du text sur un 2eme edit qui se trouve sur la meme fenetre 

+---------------------++  prog_sofiane   ++---------------------+

ucfoutu · Answer

Bonjour, 
ton problème n'est donc pas lié à la fonction SendMessage (ton titre), mais à celui de l'extraction du handle de la fenêtre (une zone de saisie) destinée à recevoir ce message; 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_sofiane2 · Answer

sur la meme fenetre quand je regarde avec winspector j'ai la meme class name
qu est Edit pour tout les textbox que je dois remplir avec des API

qqn peux m'aider svp

+---------------------++  prog_sofiane   ++---------------------+

ucfoutu · Answer

sur la meme fenetre quand je regarde avec winspector j'ai la meme class name
qu est Edit pour tout les textbox que je dois remplir avec des API 

Bien évidemment ! Il te faudra donc probablement énumérer toutes les fenêtres, relever celles de cette classe, etc ... Et pas au bout de tes peines, pour savoir laquelle est laquelle, sauf (mais encore plus long) à l'aide de leurs positions (si tu les connais !).
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

mais tu as peut-être un peu de chance, si les deux zones de saisie de suivent exactement et qu'elles réagissent à la tabulation (ou autre). Si tel est le cas, tente d'envoyer cette séquence après ton 1er message puis envoie le second.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_sofiane2 · Answer

j'ai trouvé 
il faut ajouter 2 ligne comme celle d'en dessous
hwndtxt1& = FindWindowEx(hWndform1&, 0&, "Edit", "")
et faire un sendmessage
Call SendMessageByString(hwndtxt1&, WM_SETTEXT, 0&, Text1.Text)

sauf que voila un autre pb sur XP  sa fonctinne mais pas sur WIN7 32/64bite
a part le WM_COMMAND
SendMessage hwndtxt1&, WM_COMMAND, 32801, ByVal 0&  '32801 handle connect


qqn peut il m'aider pr que cela fonctionne avec windows 7 sachant que rien n'a changé tjr la meme appli et la meme lpClassName "#32770"




+---------------------++  prog_sofiane   ++---------------------+

cs_sofiane2 · Answer

Voici mon code 

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendNotifyMessage Lib "user32.dll" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
 
Private Const WM_SETTEXT = &HC
Private Const WM_COMMAND = &H111
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101




Private Sub Command1_Click()
Dim dameware&
Dim mrccclass&
Dim appli&
Dim edit&
dameware& = FindWindow("MRCC_v7Class", vbNullString)
If dameware& = 0 Then
If MsgBox("L'application Dameware n'est pas encore lancé " & vbCrLf & vbCrLf & "Voullez Vous lancer l'application Dameware ?", vbYesNo + 32 + 0, "Confirmation !") = vbYes Then
Command3_Click
Else
MsgBox "Dameware n'est pas lancé!  ", vbInformation, "Information !!!"
End If
Else
'mrccclass& = FindWindow("mrcc_class", vbNullString)
appli& = FindWindow("#32770", vbNullString)
edit& = FindWindowEx(appli&, ByVal 0&, "edit", vbNullString)
Call SendMessageByString(edit&, WM_SETTEXT, ByVal 0&, Text1)

edit& = FindWindowEx(appli&, edit&, "edit", vbNullString)
edit& = FindWindowEx(appli&, edit&, "edit", vbNullString)
Call SendMessageByString(edit&, WM_SETTEXT, ByVal 0&, Text2)
edit& = FindWindowEx(appli&, edit&, "edit", vbNullString)
Call SendMessageByString(edit&, WM_SETTEXT, ByVal 0&, Text3)
edit& = FindWindowEx(appli&, edit&, "edit", vbNullString)
Call SendMessageByString(edit&, WM_SETTEXT, ByVal 0&, Text4)

SendMessage appli&, WM_COMMAND, 32801, ByVal 0&  '32801 handle connect
Me.WindowState = 1
End If

End Sub




sa marche tres bien avec windows XP mais sur windows 7 tous les SendMessageByString ne marche pas

une solution ???
+---------------------++  prog_sofiane   ++---------------------+

cs_sofiane2 · Answer

j'ai essaye sa 
SendMessage edit&, WM_SETTEXT, 256, Text1.Text

sa ne marche pas

+---------------------++  prog_sofiane   ++---------------------+

cs_sofiane2 · Answer

Je viens d'installer virtualbox sur mon xp et j'ai installé windows 7 en virtuel 
j'ai fais des testes et sa marche sur un windows 7 virtualisé mais tjr pas sur un vrai poste windows 7 


si qqn a des indice la dessus ???

+---------------------++  prog_sofiane   ++---------------------+

cs_sofiane2 · Answer

enfin j'ai trouvé pourquoi sa ne marche pas sur le poste Windows 7
quand je ferme l'application "internet download manager" tous fonctionne 
et pour m&#8217;assurer que c bien internet download manager qui bloque je l'ai installé sur un poste XP et la pareil plus rien ne marche sauf si je ferme idm

ils ont la meme class #32770
pour les différencier il fallait que j'ajoute le titre a la place de vbNullString

appli& = FindWindow("#32770", "Remote Connect")

:(
voila enfin sa fonctionneeeeeeeeeeeeeeeeeeeee
+---------------------++  prog_sofiane   ++---------------------+

Sendmessage

9 réponses

Votre réponse

Discussions similaires