Lire une zone de texte par API

Bonjour tout le monde,

Je cherche à copier le contenu d'une zone de texte d'une application
extérieure, par exemple vers un fichier texte.

Pour cela, il m'a semblé que SendMessage pouvait être un bon filon,
j'espère ne pas m'être trompé. Alors je commence par faire des exercices.

Je me suis référé à ce qui est fourni avec VB6, à savoir une copie de la
fiche 141073. Pour la trouver dans HTML de VB6, on peut y chercher par
exemple EM_GETLINE, et trouver dans les rubriques "Using Windows API
Functions to Better Manipulate Text Boxes".

Il faut mettre les déclarations au goût du jour :
Private Declare Function GetFocus Lib "user32" () 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 EM_GETLINECOUNT = &HBA
Private Const EM_GETLINE = &HC4
Private Const EM_LINELENGTH = &HC1
Private Const EM_GETSEL = &HB0
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_LINEINDEX = &HBB
Private Const EM_SETSEL = &HB1
Private Const EM_REPLACESEL = &HC2

J'ai désactivé la deuxième instruction de Form_Load,
X% = fReplaceSel("")
le motif en est indiqué par le commentaire.

ça démarrait bien, et puis l'application s'est plantée, et VB6 avec.

J'ai tout remis en place, et il s'avère que le plantage se produit dans
fGetLine, au niveau de SendMessage

hWnd = GetFocus()
Pos& = SendMessage(hWnd, EM_GETLINE, CInt(LineNumber), Buffer)

Un peu plus haut, ça n'a pas suffi d'agrandir un peu le buffer, de 2
octets, ni ensuite de le doubler :
Buffer = Chr$(byteLo%) + Chr$(byteHi%) _
+ Space$(2 * MAX_CHAR_PER_LINE) ' exit - 2)

- 2 ou pas - 2, doublé ou pas doublé la taille du buffer, même motif
même punition, VB manque de mémoire, alors il se suicide.

Qui saura le dissuader de franchir le parapet ?