[perl-win32-gui-users] how do you read the contents of an edit control?

[Ted Holmes]

I am trying to read the contents of an edit control.  The control is 
created by another application, so I have no control over it.  I tried the 
code below, but the EM_GETLINE message is a strange one in that you need to 
place the buffer size in the first two bytes of the target string.  Any 
help would be appreciated.

my $linetextlen = GUI::SendMessage( $window, $EM_LINELENGTH, 0, 0);   # 
<<<< this works
print  " linetextlen=$linetextlen";
my $ss = pack("CCCCCCCCCCCC",5,0,0,0,  0,0,0,0,  0,0,0,0);
GUI::SendMessage($window, $EM_GETLINE, 0, $ss);   # <<<< this does not
print " text=$ss";