Sub Main
Dim Result As Integer
Dim i As Integer
Dim word As Integer
StartApplication "C:\WINDOWS\system32\notepad.exe"
word=0
for i=1 to 5 step 1
word=word+1
Print word
next i
InputKeys "Finish"
End SubИспользовать InputKeys не получается, а Print выводит значение переменной на экран
Записать текст в "Блокнот"
#1
Отправлено 20 ноября 2010 - 15:34
#2
Отправлено 22 ноября 2010 - 05:54
Здравствуйте, недавно начал осваивать скрипты, хочу открыть блокнот и ввести в него текст из переменной
Sub Main Dim Result As Integer Dim i As Integer Dim word As Integer StartApplication "C:\WINDOWS\system32\notepad.exe" word=0 for i=1 to 5 step 1 word=word+1 Print word next i InputKeys "Finish" End SubИспользовать InputKeys не получается, а Print выводит значение переменной на экран
А где клик по рабочей области блокнота?
Где активация окна блокнота
д.б Window SetContext
EditBox Click...
ну или что то в этом роде
inputchars CSTr(word)
либо
inputkeys CSTr(word)
#3
Отправлено 22 ноября 2010 - 07:36
Здравствуйте, недавно начал осваивать скрипты, хочу открыть блокнот и ввести в него текст из переменной
Sub Main Dim Result As Integer Dim i As Integer Dim word As Integer StartApplication "C:\WINDOWS\system32\notepad.exe" word=0 for i=1 to 5 step 1 word=word+1 Print word next i InputKeys "Finish" End SubИспользовать InputKeys не получается, а Print выводит значение переменной на экран
Sub Main
Dim Result As Integer
Dim a As String
a = "my text"
StartApplication "C:\WINDOWS\system32\notepad.exe"
Window SetContext, "Caption=Untitled - Notepad", ""
InputChars a
End Sub
#4
Отправлено 23 ноября 2010 - 18:59
Zenturio, с CSTr та же проблема, ни в хелпе ни в руководстве по языку. К стати, InputChars\InputKeys Str$(word) тоже работает. Так что ошибка была в преобразовании типа переменной :)
Количество пользователей, читающих эту тему: 1
0 пользователей, 1 гостей, 0 анонимных


