Доброго времени суток. Помогите дописать скрипт. Захват текста идет через Send("^c"). Не получается отослать текст в файл, без его переписи. Сам скрипт:
Код:
#RequireAdmin
#include <IE.au3>
$oIE = _IECreate('about:blank') ; Открывает браузер
WinSetState("[CLASS:IEFrame]", "", @SW_MAXIMIZE)
$hURL = FileOpen('link.txt', 0); Файл со ссылками
While 1
$sLine = FileReadLine($hURL)
If @error = -1 Then ExitLoop
_IENavigate($oIE, $sLine)
Sleep (3000)
$oSpans = $oIE.document.getElementsByTagName("a")
If IsObj($oSpans) Then
For $oSpan In $oSpans
If $oSpan.className <> "text" Then ContinueLoop
Sleep (2000)
$oSpan.click()
Next
EndIf
Sleep (2000)
Send("{HOME}")
Sleep (2000)
Send("{TAB 21}")
Sleep (2000)
Send("^c")
Sleep (2000)
;~ @ScriptDir & "\log.txt"
Send("{TAB 21}")
Sleep (2000)
Send("^c")
Sleep (2000)
;~ @ScriptDir & "\log.txt"
WEnd
FileClose($hURL)