Windows will only marshal messages in the range 0..WM_USER across processes.
The messages you are trying to use here are above WM_USER. So you are passing to the other process an address (in the lParam of the SendMessage) in your memory space - you are lucky not to crash the other process :-) See this thread: http://groups.google.com/group/microsoft.public.vc.mfc/browse_frm/thread/40c00794fa444323/291326274362ef36?lnk=st&q=dcsoft+sendmessageremote&rnum=1#291326274362ef36 for information about how to use VirtualAllocEx() and ReadProcessMemory() to achieve what you want. Summary: (1) Use VirtualAllocEx() to allocate some memory in the remote process, and then use the address of that memory as the lParam to the SnedMessage() call. (2) Use ReadProcessMemory() to read the remote process memory back into local memory. HTH. Rob. On 27 May 2010 11:03, Kevin Marshall <kejoh...@hotmail.com> wrote: > Selva, > > I created a C/C++ version of my script and it still doesn't work. The > problem, it seems, is with the underlying Win32 API function calls. It may > be that what you are looking to do isn't possible. Perhaps you could search > C/C++ Windows programming websites, etc. for your problem. Other than that, > I am sorry that I can't be of more help. If you do manage to find a > solution, I wouldn't mind hearing about it. > > Here is my code if you are interested: > > #define WIN32_LEAN_AND_MEAN > > #include <windows.h> > #include <windowsx.h> > #include <commctrl.h> > #include <stdio.h> > > HWND g_hWnd; > HWND g_hButton; > HWND g_hTextfield; > > int WINAPI WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR > lpCmdLine, int nCmdShow ); > LRESULT CALLBACK WindowProc( HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM > lParam ); > void Append( HWND handle, char * text ); > > int WINAPI WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance,LPSTR > lpCmdLine, int nCmdShow ){ > WNDCLASSEX winClass; > MSG Msg; > > ZeroMemory( &Msg, sizeof(MSG) ); > > winClass.lpszClassName = "MY_CLASS"; > winClass.cbSize = sizeof(WNDCLASSEX); > winClass.style = CS_HREDRAW | CS_VREDRAW; > winClass.lpfnWndProc = WindowProc; > winClass.hInstance = hInstance; > winClass.hIcon = LoadIcon( NULL, IDI_APPLICATION ); > winClass.hIconSm = LoadIcon( NULL, IDI_APPLICATION ); > winClass.hCursor = LoadCursor( NULL, IDC_ARROW ); > winClass.hbrBackground = (HBRUSH)(COLOR_3DFACE + 1); > winClass.lpszMenuName = NULL; > winClass.cbClsExtra = 0; > winClass.cbWndExtra = 0; > > if( !RegisterClassEx(&winClass) ) > return E_FAIL; > > g_hWnd = CreateWindowEx( > NULL, "MY_CLASS", "Window Finder", > WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX, > CW_USEDEFAULT, CW_USEDEFAULT, 320, 240, NULL, NULL, hInstance, NULL > ); > > if( g_hWnd == NULL ) > return E_FAIL; > > RECT hwndRect; > GetClientRect( g_hWnd, &hwndRect ); > g_hButton = CreateWindowEx( > NULL, "BUTTON", "Find Window", > WS_VISIBLE | WS_CHILD | BS_PUSHBUTTON, > hwndRect.right / 2 - 40, 5, 80, 25, > g_hWnd, NULL, hInstance, NULL > ); > if( g_hButton == NULL ) > return E_FAIL; > > g_hTextfield = CreateWindowEx( > WS_EX_CLIENTEDGE | WS_EX_NOPARENTNOTIFY , "EDIT", "", > WS_VISIBLE | WS_CHILD | WS_BORDER | WS_HSCROLL | WS_VSCROLL | > ES_LEFT | ES_AUTOHSCROLL | ES_AUTOVSCROLL | ES_MULTILINE, > 5, 35, hwndRect.right - 10, hwndRect.bottom - 40, > g_hWnd, NULL, hInstance, NULL > ); > if( g_hTextfield == NULL ) > return E_FAIL; > > ShowWindow( g_hWnd, nCmdShow ); > UpdateWindow( g_hWnd ); > > while( Msg.message != WM_QUIT ){ > if( GetMessage( &Msg, NULL, 0, 0 ) ){ > TranslateMessage( &Msg ); > DispatchMessage( &Msg ); > } > } > > UnregisterClass( "MY_CLASS", winClass.hInstance ); > > return Msg.wParam; > } > > LRESULT CALLBACK WindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM > lParam ){ > static bool bMouseDown = false; > static HWND hFoundHandle = NULL; > static HPEN hPenHilight = CreatePen( PS_SOLID, 5, RGB(0,0,0) ); > switch( uMsg ){ > case WM_KEYDOWN: { > switch( wParam ){ > case VK_ESCAPE: { > PostQuitMessage(0); > break; > } > } > break; > } > case WM_PARENTNOTIFY: { > int x = LOWORD(lParam); > int y = HIWORD(lParam); > > switch( LOWORD(wParam) ){ > case WM_LBUTTONDOWN: { > bMouseDown = true; > ShowWindow( g_hWnd, SW_HIDE ); > SetCapture( g_hWnd ); > break; > } > } > return 0; > break; > } > case WM_LBUTTONUP: { > bMouseDown = false; > if(hFoundHandle){ > InvalidateRect( hFoundHandle, NULL, true ); > UpdateWindow( hFoundHandle); > RedrawWindow( hFoundHandle, NULL, NULL, 1 ); > ShowWindow( g_hWnd, SW_SHOW ); > ReleaseCapture(); > char ClassName[MAX_PATH]; > GetClassName( hFoundHandle, ClassName, MAX_PATH ); > if(strcmp( ClassName, "ToolbarWindow32" ) == 0){ > Append( g_hTextfield, "Found toolbar\r\n" ); > int count = SendMessage( hFoundHandle, TB_BUTTONCOUNT, > 0, 0 ); > char string[MAX_PATH]; > sprintf( string, "Button count: %d\r\n", count ); > Append( g_hTextfield, string ); > for(int i = 0; i < count; i++){ > TBBUTTON button; > TBBUTTONINFO buttoninfo; > char text[MAX_PATH]; > SendMessage( hFoundHandle, TB_GETBUTTON, (WPARAM)i, > (LPARAM)&button ); > //SendMessage( hFoundHandle, TB_GETBUTTONINFO, > (WPARAM)button.idCommand, (LPARAM)&buttoninfo ); > //Append( g_hTextfield, buttoninfo.pszText ); > } > } > } > return 0; > break; > } > case WM_MOUSEMOVE: { > if( bMouseDown ){ > POINT point; > GetCursorPos( &point ); > HWND found = WindowFromPoint( point ); > if(found){ > hFoundHandle = found; > InvalidateRect( found, NULL, true ); > UpdateWindow( found ); > RedrawWindow( found, NULL, NULL, 1 ); > HDC hdc = GetDC( found ); > if(hdc){ > RECT rect; > GetWindowRect( found, &rect ); > HGDIOBJ oldpen = SelectObject( hdc, hPenHilight ); > HGDIOBJ oldbrush = SelectObject( hdc, > GetStockObject(HOLLOW_BRUSH) ); > Rectangle( hdc, 0, 0, rect.right - rect.left, > rect.bottom - rect.top ); > SelectObject( hdc, oldpen ); > SelectObject( hdc, oldbrush ); > ReleaseDC( found, hdc); > } > } > } > return 0; > break; > } > case WM_CLOSE: { > PostQuitMessage(0); > return 0; > break; > } > default: > break; > } > return DefWindowProc( hWnd, uMsg, wParam, lParam ); > } > > void Append( HWND handle, char * text ){ > int length; > length = GetWindowTextLength( handle ); > SendMessage( handle, EM_SETSEL, length, length ); > SendMessage( handle, EM_REPLACESEL, (WPARAM) TRUE, (LPARAM) text ); > } > /* END */ > > Kevin. > > Thx Kevin. > I am trying the same thro sendmesssage of c/c++ and pack/unpack of Perl. > However I did not get a lead on this and I am getting issue with > sendmessage for toolbar control itself. > Any idea on this,ofcourse, it may be out of your focus. > > Thx > Selva D > > --- On *Thu, 20/5/10, Kevin Marshall > <kejoh...@hotmail.com><kejoh...@hotmail.com> > * wrote: > > > From: Kevin Marshall <kejoh...@hotmail.com> <kejoh...@hotmail.com> > Subject: Re: [perl-win32-gui-users] Is it possible to work on toolbar > controls with win32::GUI > To: "selva ganapathy" <ganapathy_se...@yahoo.com><ganapathy_se...@yahoo.com> > Cc: perl-win32-gui-users@lists.sourceforge.net > Date: Thursday, 20 May, 2010, 5:38 AM > > Selva, > > I have managed to throw together a quick script that can be used to find > info on a toolbar of another application. To use it, run the script and > click and hold the left mouse button on the 'Find Window' button. This will > hide the window, then while still holding the mouse button down, move the > mouse over the toolbar of the other application and release the mouse. The > window of the script should reappear, and display the number of buttons in > the toolbar in the text box. Unfortunately, if you try to get the text of > the toolbar buttons, the script crashes. At least, that is what happens for > me when I try it on an instance of > Notepad2<http://www.flos-freeware.ch/notepad2.html>. > Not sure exactly what causes this. It may work for you. Try un-commenting > the block of code in the onMouseMove event to see what happens. Anyway, here > is my script: > > #!perl > use strict; > use warnings; > > use Data::Dump qw(dump); > #use Win32::API; > use Win32::GUI qw(); > use Win32::GUI::Constants qw(CW_USEDEFAULT HOLLOW_BRUSH WM_USER); > #use constant {TB_GETBUTTON => WM_USER+23}; > > my $MouseDown = 0; > my $FoundHandle; > my $penHilight = Win32::GUI::Pen->new(-width => 5, -color => 0x000000, > -style => 0); > my $winMain = Win32::GUI::Window->new( > -name => 'winMain', > -text => 'Window Finder', > -size => [320,240], > -left => CW_USEDEFAULT, > -maximizebox => 0, > -resizable => 0, > ); > > $winMain->AddButton( > -name => 'btnWinFind', > -text => 'Find Window', > -pos => [$winMain->ScaleWidth()/2-40,5], > -size => [80,25], > -onMouseDown => sub { > my($self,$x,$y,$flags) = @_; > $MouseDown = 1; > $winMain->Hide(); > $self->SetCapture(); > return 1; > }, > -onMouseUp => sub { > my($self,$x,$y,$flags) = @_; > $MouseDown = 0; > if($FoundHandle){ > Win32::GUI::InvalidateRect($FoundHandle, 1); > Win32::GUI::Update($FoundHandle); > Win32::GUI::Redraw($FoundHandle, 1); > $winMain->Show(); > $self->ReleaseCapture(); > if(Win32::GUI::GetClassName($FoundHandle) eq > 'ToolbarWindow32'){ > my $count = Win32::GUI::Toolbar::ButtonCount($FoundHandle); > $winMain->txtInfo->Text("$count\r\n"); > # foreach(0..$count-1){ > # my $tbbutton = "\0" x 20; > # Win32::GUI::SendMessage($FoundHandle, TB_GETBUTTON, > $_, $tbbutton); > # dump $tbbutton; > # my @button = > Win32::GUI::Toolbar::GetButton($FoundHandle, $_); > # my @size = > Win32::GUI::Toolbar::GetButtonSize($FoundHandle); > # my $text = > Win32::GUI::Toolbar::GetButtonText($FoundHandle, $_); > # $winMain->txtInfo->Append(join "\r\n", @size); > # } > } > } > return 1; > }, > -onMouseMove => sub { > my($self,$x,$y,$flags) = @_; > if($MouseDown){ > my $found = > Win32::GUI::WindowFromPoint($self->ClientToScreen($x,$y)); > if($found){ > $FoundHandle = $found; > Win32::GUI::InvalidateRect($found, 1); > Win32::GUI::Update($found); > Win32::GUI::Redraw($found, 1); > my $dc = Win32::GUI::DC::GetDC($found); > my %rect; > @rect{qw(left top right bottom)} = > Win32::GUI::GetWindowRect($found); > if($dc){ > my $oldpen = Win32::GUI::DC::SelectObject($dc, > $penHilight); > my $oldbrush = Win32::GUI::DC::SelectObject($dc, > Win32::GUI::DC::GetStockObject(HOLLOW_BRUSH)); > > Win32::GUI::DC::Rectangle($dc,0,0,$rect{right}-$rect{left},$rect{bottom}-$rect{top}); > Win32::GUI::DC::SelectObject($dc, $oldpen) if $oldpen; > Win32::GUI::DC::SelectObject($dc, $oldbrush) if > $oldbrush; > Win32::GUI::DC::ReleaseDC($found, $dc); > } > else { > warn "Can't get DC: $^E"; > } > } > } > return 1; > }, > ); > > $winMain->AddTextfield( > -name => 'txtInfo', > -size => [$winMain->ScaleWidth()-10,$winMain->ScaleHeight()-40], > -pos => [5,35], > -multiline => 1, > ); > > $winMain->Show(); > > Win32::GUI::Dialog(); > > __END__ > > I based this code off of some C/C++ code that was posted > here<http://www.codeproject.com/kb/dialog/windowfinder.aspx> > . > > Hope this helps, > > Kevin. > > Kevin, > Thanks for your response.This is not created with Win32::GUI > This is VC++ application and in that application, in the toolbar (you could > see save image etc - attachment- red colored is the toolbar INeed to work), > I have to get/do the > Toolbar count , > Button click based on indiex or test > Click on IMage > Size of Each Button > Individual Button State. > > My perl script will not create these window application, I have to to some > activity on these tollbar icons such as click and for this I need use of > this module. > Thx > Selva D > > --- On *Wed, 19/5/10, Kevin Marshall > <kejoh...@hotmail.com><http://aa.mc561.mail.yahoo.com/mc/compose?to=kejoh...@hotmail.com> > * wrote: > > > From: Kevin Marshall > <kejoh...@hotmail.com><http://aa.mc561.mail.yahoo.com/mc/compose?to=kejoh...@hotmail.com> > Subject: Re: [perl-win32-gui-users] Is it possible to work on toolbar > controls with win32::GUI > To: "selva ganapathy" > <ganapathy_se...@yahoo.com><http://aa.mc561.mail.yahoo.com/mc/compose?to=ganapathy_se...@yahoo.com> > Cc: > perl-win32-gui-users@lists.sourceforge.net<http://aa.mc561.mail.yahoo.com/mc/compose?to=perl-win32-gui-us...@lists.sourceforge.net> > Date: Wednesday, 19 May, 2010, 5:07 AM > > Selva, > > How exactly is this other window with toolbar created? Is it from a > completely separate script or from a module that your script loads? Is it > created using Win32::GUI in Perl? Could you provide a small example of your > problem? > > Sorry for the confusion. > > Kevin. > > Kevin. > Thanks for the update. The one you have referred will get the tool bar > button count for which you create the window and add content to that window > and you are getting the same. > > But I look for the situation, where I have to get the Toolbar button > count on existing window which I will not create on run time. > > I am looking some solution on the same . Any further thoughts from you is > very much helpful. > Thx in advance and I hope that I have clarified my requirement. > Selva D > > --- On *Mon, 10/5/10, Kevin Marshall > <kejoh...@hotmail.com><http://aa.mc561.mail.yahoo.com/mc/compose?to=kejoh...@hotmail.com> > * wrote: > > > From: Kevin Marshall > <kejoh...@hotmail.com><http://aa.mc561.mail.yahoo.com/mc/compose?to=kejoh...@hotmail.com> > Subject: RE: [perl-win32-gui-users] Is it possible to work on toolbar > controls with win32::GUI > To: > ganapathy_se...@yahoo.com<http://aa.mc561.mail.yahoo.com/mc/compose?to=ganapathy_se...@yahoo.com> > Cc: "Perl-Win32-GUI-Users List" > <perl-win32-gui-users@lists.sourceforge.net><http://aa.mc561.mail.yahoo.com/mc/compose?to=perl-win32-gui-us...@lists.sourceforge.net> > Date: Monday, 10 May, 2010, 7:44 AM > > Selva, > > You can use the ButtonCount() method to retrieve the number of buttons in > the toolbar and the GetButtonText() method to retrieve the text of the > specified button. Here is some sample code: > > #!perl > use strict; > use warnings; > > use Data::Dump qw(dump); > use Win32::GUI qw(); > use Win32::GUI::Constants qw(TBSTATE_ENABLED BTNS_SHOWTEXT > IDB_STD_SMALL_COLOR CW_USEDEFAULT); > > my $win = Win32::GUI::Window->new( > -name => 'win', > -text => 'Toolbar Sample', > -size => [320,240], > -left => CW_USEDEFAULT, > ); > > $win->AddToolbar( > -name => 'toolbar', > -adjustable => 1, > -flat => 1, > -multiline => 1, > -nodivider => 1, > ); > my @buttons = (qw(Cut Copy Paste Undo Redo Delete New Open Save Preview > Properties Help Find Replace Print)); > $win->toolbar->LoadImages(IDB_STD_SMALL_COLOR); > $win->toolbar->AddString($_) foreach @buttons; > $win->toolbar->AddButtons( > scalar @buttons, > map {($_,$_+1,TBSTATE_ENABLED,BTNS_SHOWTEXT,$_)} 0..$#buttons > ); > > $win->Show(); > > Win32::GUI::Dialog(); > > sub win_Resize { > $win->toolbar->Width($win->Width()); > return 1; > } > > sub toolbar_ButtonClick { > my($index,$dropdown) = @_; > printf "Button %02d of %02d text => %s\n", $index, > $win->toolbar->ButtonCount(), $win->toolbar->GetButtonText($index); > return 1; > } > __END__ > > Hope this helps, > > Kevin. > > > Date: Tue, 4 May 2010 05:38:04 -0700 > > From: > > ganapathy_se...@yahoo.com<http://aa.mc561.mail.yahoo.com/mc/compose?to=ganapathy_se...@yahoo.com> > > To: > > perl-win32-gui-users@lists.sourceforge.net<http://aa.mc561.mail.yahoo.com/mc/compose?to=perl-win32-gui-us...@lists.sourceforge.net> > > Subject: [perl-win32-gui-users] Is it possible to work on toolbar > controls with win32::GUI > > > > Hi, > > I exhaustively looked at win32::GUI and please clarify on the same. > > I just want to get the toolbar item- count and also the text of the items > in toolbar. I saw win32::GUI was creating an window and doing adding some > control for the same. > > Is there any way to test the toolbar controls for the existing toolbar by > passing the window handler. > > > > I also tried with win32::GUItest..but not succeeded.(by using sendmessage > ) Please any clue on this? > > > > Thanks > > Selva D > > > > > > > > > > > > > ------------------------------------------------------------------------------ > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Perl-Win32-GUI-Users@lists.sourceforge.net<http://aa.mc561.mail.yahoo.com/mc/compose?to=perl-win32-gui-us...@lists.sourceforge.net> > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > http://perl-win32-gui.sourceforge.net/ > > ------------------------------ > Looking for a hot date? View photos of singles in your > area!<http://clk.atdmt.com/NMN/go/150855801/direct/01/> > > > > > > > > > > > ------------------------------------------------------------------------------ > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Perl-Win32-GUI-Users@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > http://perl-win32-gui.sourceforge.net/ >
------------------------------------------------------------------------------
_______________________________________________ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/
