Что нового

Как в строку поиска вставить текст из тхт файла?

serYOga

Новичок
Сообщения
5
Репутация
0
MouseClick("left",610,840,1); friends search

после нажатия на окошко ввода надо вставить данные из файла тхт
for $a=1 to 0; не факт что 0, надо до конца списка
MouseClick("left",610,840,1); friends search
MouseClick("left",560,550,1);friend field
$b=FileReadLine ("bz.txt",$a)

тут надо как раз чтоб он вставил данные из файла bz.txt со строки 1 до конца списка. там примерно 25 строк

MouseClick("left",500,900,1) ;choose friend
MouseClick("left",1115,570,1) ;send bz
MouseClick("left",1430,340,1) ; close help window
$a+=1
Next
простите если что, новичок )
Сообщение автоматически объединено:

попробовал через CTRL+V но вот что выдаёт
Send(^v)
error: syntax error
Send(^
как ctrl+v сэмулировать?
 
Последнее редактирование:

Oki

Продвинутый
Сообщения
452
Репутация
62
Код:
Sleep(1000) ; Time to switch between windows
$hFile = FileOpen(@ScriptDir & "\bz.txt")
$flag = 0
While $flag = 0
   $s = FileReadLine($hFile)
   If @error = -1 Then
      $flag = 1
   Else
      MouseClick("left", 610, 840, 1) ; friends search
      MouseClick("left", 560, 550, 1) ; friend field
      Send($s) ; If the string contains control symbols of this function, then another solution should be implemented (for example, using clipboard, or preparing needed control symbols)
      MouseClick("left",500,900,1) ;choose friend
      MouseClick("left", 1115, 570, 1) ; send bz
      MouseClick("left", 1430, 340, 1) ; close help window
   EndIf
WEnd
FileClose($hFile)
MsgBox(4096, "", "Script terminated.")

Сообщение автоматически объединено:

Код:
Send("^v")
 
Автор
S

serYOga

Новичок
Сообщения
5
Репутация
0
Код:
Sleep(1000) ; Time to switch between windows
$hFile = FileOpen(@ScriptDir & "\bz.txt")
$flag = 0
While $flag = 0
   $s = FileReadLine($hFile)
   If @error = -1 Then
      $flag = 1
   Else
      MouseClick("left", 610, 840, 1) ; friends search
      MouseClick("left", 560, 550, 1) ; friend field
      Send($s) ; If the string contains control symbols of this function, then another solution should be implemented (for example, using clipboard, or preparing needed control symbols)
      MouseClick("left",500,900,1) ;choose friend
      MouseClick("left", 1115, 570, 1) ; send bz
      MouseClick("left", 1430, 340, 1) ; close help window
   EndIf
WEnd
FileClose($hFile)
MsgBox(4096, "", "Script terminated.")

Сообщение автоматически объединено:

Код:
Send("^v")
Спасибо!
 

Oki

Продвинутый
Сообщения
452
Репутация
62
О, вспомнилось ещё, что на случай необычного текста, который может трактоваться в качестве управляющих символов в функции Send() предусмотрен второй параметр: при указании единицы сработает также с символами "!", "^" и тому подобными.
Код:
Send($s, 1)
 
Верх