Author Topic: Ввод текста из файла в поле для текста... помогите плиз..  (Read 16741 times)

0 Members and 1 Guest are viewing this topic.

digiTALker

  • Освоившийся
  • **
  • Posts: 23
    • View Profile
Code: [Select]
LCLICK(-737,367)  // выбор поля куда вставить текст
WAIT(2)
print( tfread("nics.txt", 1))
так же пробовал тоже самое только через STRREADLN

но текст пишется в логе, но не вводится в поле браузера, подсобите плиз
я явно не верно использую эти команды

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Code: (clickermann) [Select]
KEYSTRING(tfread("nics.txt", 1),50)


Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
ооооо

Code: (clickermann) [Select]
LCLICK(737,367) // минус здесь писать не нужно а то клик будет там где находится курсор по X
WAIT(2)
INC($num,1) // накручиваем номер строки каждый проход
TOCLIP (TFREAD ("nics.txt", $num)) // копируем строку в буфер
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (100)
KEYPRESS(#ENTER) // Enter
WAITMS (100)

digiTALker

  • Освоившийся
  • **
  • Posts: 23
    • View Profile
спасибо!
минус в координатах потому что два монитора!
так и думал что через копипаст надо делать, но не хотел в это верить ((
« Last Edit: July 20, 2013, 10:10:15 AM by digiTALker »

digiTALker

  • Освоившийся
  • **
  • Posts: 23
    • View Profile
ооооо

Code: (clickermann) [Select]
LCLICK(737,367) // минус здесь писать не нужно а то клик будет там где находится курсор по X
WAIT(2)
INC($num,1) // накручиваем номер строки каждый проход
TOCLIP (TFREAD ("nics.txt", $num)) // копируем строку в буфер
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (100)
KEYPRESS(#ENTER) // Enter
WAITMS (100)

ошибка при интерпритации четвертой строки
переменную предварительно задефайнить пробовал

интересно что вставка происходит, но предлагает прервать выполнение сценария
« Last Edit: July 20, 2013, 10:36:16 AM by digiTALker »

putman

  • Активный участник
  • ***
  • Posts: 199
    • View Profile
Здравствуйте.
У меня в чате игры строка - Привет, пишется английскими буквами - "ghbdtn".
Code: [Select]
$fff = "Привет"
KEYSTRING ($fff, 50)
Через буфер обмена то же самое.
Как получить на выходе русские буквы ?

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
ошибка при интерпритации четвертой строки
переменную предварительно задефайнить пробовал
интересно что вставка происходит, но предлагает прервать выполнение сценария

Уверен что у тебя 4.7SE(002) версия?
В файле не должно быть пустых строк
Тебе также хорошо вставить условие проверку

Code: (clickermann) [Select]
LCLICK(-737,367)
WAIT(2)
INC($num,1) // накручиваем номер строки каждый проход

IF($num > TFCOUNT ("nics.txt"))
   $num = 1 // сброс на 1 строку по достижении конца файла
END_IF

TOCLIP (TFREAD ("nics.txt", $num)) // копируем строку в буфер
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (100)
KEYPRESS(#ENTER) // Enter
WAITMS (100)

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Здравствуйте.
У меня в чате игры строка - Привет, пишется английскими буквами - "ghbdtn".
Code: [Select]
$fff = "Привет"
KEYSTRING ($fff, 50)
Через буфер обмена то же самое.
Как получить на выходе русские буквы ?

Ну сверху же вариант! Но можно и без файла.

Code: (clickermann) [Select]
TOCLIP ("Привет") // копируем текст в буфер
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (100)
KEYPRESS(#ENTER) // Enter
WAITMS (100)

KEYSTRING капризная функция. Она чувствительна к раскладке, пишет только маленькими или только большими если нажат КАПС и пишит далеко не все символы. Лучше вставлять текст через буфер.
« Last Edit: July 20, 2013, 06:24:32 PM by Oraven »

digiTALker

  • Освоившийся
  • **
  • Posts: 23
    • View Profile
наверное заключительный вопрос:
как сделать так чтоб цикл закончился когда закончились строки в текстовом файле?

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Code: (clickermann) [Select]
LCLICK(-737,367)
WAIT(2)
INC($num,1) // накручиваем номер строки каждый проход

IF($num > TFCOUNT ("nics.txt"))
   HALT // стоп
END_IF

TOCLIP (TFREAD ("nics.txt", $num))
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (100)
KEYPRESS(#ENTER) // Enter
WAITMS (100)

digiTALker

  • Освоившийся
  • **
  • Posts: 23
    • View Profile
Спасибо большое всем за помощь.
Вот мой конечный вариант

Code: [Select]
LCLICK(-307,505)  // выбор здания
WAIT(2)
LCLICK(-298,522)  // вход в здание
WAIT(2)
$num = 0

while ($num < TFCOUNT ("nic.txt"))
LCLICK(-412,423)  // поле для ввода ника
LCLICK(-412,423)  // двойной клик чтобы выделить то что есть в поле чтобы заменить
WAIT(2)

INC($num,1) // сам накрут
 
TOCLIP (TFREAD ("nic.txt", $num))
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAIT (2)
LCLICK(-288,462)  // нажатие на кнопку "защитить"
WAITMS (100)
end_cyc
HALT // харэ

остался только вопрос, как сделать так чтобы программа переходила сама от строки к строке с нужной задержкой, ибо есть случаи когда надо очень много ставить команд (wait)  после каждой