Problem with ControlSend

[kaiks]

Hi, I'm new to this forums

I've problem with ControlSend function, here's the code

#include <file.au3>

$window="whatever"
$path="c:\path\to\some\file.txt"
AutoItSetOption("WinTitleMatchMode", 4)
$handle = WinGetHandle($window, "")
$line=_FileCountLines($path)
$file=FileOpen($path,0)

;==============================================================================
While 1
Sleep(100)
While FileReadLine ($file,$line) = ""
Sleep(100)
WEnd
Sleep(100)
ControlSend($handle,"","",FileReadLine($file,$line),0)
;MsgBox(0,"bla",FileReadLine($file,$line)) <-- to test if problem was in fileread, it worked fine tho
Sleep(300)
ControlSend($handle,"","","{Enter}")
Sleep(100)
$line=$line+1
WEnd

That program is supposed to find a new line in some file and 'paste' it to other window...

When the line is for example 'blablablablabla' it works good...

But when the line is 'blaBLAbla!!!!bla' it sends 'blablabla1111bla'

Using Send function works good too, but that's not what I want

Any help?

[Xenobiologist]

Hi,

have you tried to set the flag to 1 ?

ControlSend ( "title", "text", controlID, "string" [, flag] )

So long,

Mega

[kaiks]

Hi,

have you tried to set the flag to 1 ?

ControlSend ( "title", "text", controlID, "string" [, flag] )

So long,

Mega

yes...doesnt work;p

[Xenobiologist]

HI,

this works for me (Notepad.exe) Title in German Editor - Unbenannt.

#include <file.au3>

$window = "Unbenannt - Editor"
$path = "Controlsend.txt"
AutoItSetOption("WinTitleMatchMode", 4)
$handle = WinGetHandle($window, "")
$line = _FileCountLines($path)
$file = FileOpen($path, 0)

;==============================================================================
While 1
    Sleep(100)
    While FileReadLine($file, $line) = ""
        Sleep(100)
    WEnd
    Sleep(100)
    Local $text = FileReadLine($file, $line)
    ControlSend($window, "", 15, $text, 1)
    ;MsgBox(0,"bla",FileReadLine($file,$line)) ;<-- to test if problem was in fileread, it worked fine tho
    Sleep(300)
    ControlSend($window, "", 15, "{Enter}")
    Sleep(100)
    $line = $line + 1
WEnd

So long,

Mega

Edited August 21, 2006 by th.meger