[решено] Посылание текста через Send() целиком, а не набором каждой буквы

[Str_ani_ck]

Подскажите каким способом можно ввести текст в окно, кроме

Send ("Пример ввода текста")

Просто таким образом это выглядит как последовательное нажатие клавишь, а хочется что он просто был введен как текст, а не как нажатие клавишь.

[ven00m]

Можно так например:



Код:

Код: Выделить всё

Run("notepad.exe")  
WinWait("Безымянный")  
ControlSetText("Безымянный", "", "Edit1", "New Text Here" )

[Str_ani_ck]

Цитата ven00m:



Run("notepad.exe")

WinWait("Безымянный")

ControlSetText("Безымянный", "", "Edit1", "New Text Here" )

[решено] Посылание текста через Send() целиком, а не набором каждой буквы

Подсмотрел в справке??? А еще есть варианты?

[ven00m]

Цитата Str_ani_ck:



Подсмотрел в справке???

[решено] Посылание текста через Send() целиком, а не набором каждой буквы

Ога



Можно так еще:



Код:

Код: Выделить всё

Opt("SendKeyDelay", 0)  
Opt("SendKeyDelay", 0)  
Opt("SendKeyDownDelay", 0)  
Run("notepad.exe")  
WinWait("Безымянный")  
ControlSend("Безымянный", "", "Edit1", "This is a line of text in the notepad window")

Ненадежный вариант, я бы так не делал.

[Creat0R]

Цитата Str_ani_ck:



А еще есть варианты?

[решено] Посылание текста через Send() целиком, а не набором каждой буквы

Используя буфер обмена:





Код:

Код: Выделить всё

_SendEx("Пример ввода текста")
;Тут тело скрипта
Func _SendEx($sString)
    Local $sOld_Clip = ClipGet()
    ClipPut($sString)
    Sleep(10)
    Send("+{INSERT}")
    ClipPut($sOld_Clip)
EndFunc

P.S

В загаловке темы не нужно указывать AutoIt, оно и так понятно (этот раздел весь посвящён аутоиту). А также придумайте более содержательный заголовок, «ввод текста» может означать много чего.

[Str_ani_ck]

Цитата ven00m:



Run("notepad.exe")

WinWait("Безымянный")

ControlSetText("Безымянный", "", "Edit1", "New Text Here" )

[решено] Посылание текста через Send() целиком, а не набором каждой буквы

Да действительно наиболее удачный вариант))) Спасибо, как говорится смотрю в книгу вижу фигу

[Str_ani_ck]

Цитата Creat0R:



_SendEx("Пример ввода текста")

;Тут тело скрипта

Func _SendEx($sString)

Local $sOld_Clip = ClipGet()

ClipPut($sString)

Sleep(10)

Send("+{INSERT}")

ClipPut($sOld_Clip)

EndFunc

[решено] Посылание текста через Send() целиком, а не набором каждой буквы

Чтото ничего понять из этого не могу

[ven00m]

А так?



Код:

Код: Выделить всё

Run("notepad.exe")   
WinWait("Безымянный")    
ClipPut("Пример ввода текста")  
Send("^v")

[Creat0R]

Цитата Str_ani_ck:



ничего понять из этого не могу

[решено] Посылание текста через Send() целиком, а не набором каждой буквы

А что собственно нужно понять? Оно не работает?