Копирование содержимого буфера обмена в string - vbscript
В vbscript я изначально копирую содержимое из pdf в буфер обмена.
А затем скопировать содержимое буфера обмена в строку.
Код работает идеально, на машине с Windows7 с УФТ версия 12.53 , Адоб акробат ридер постоянного тока версия 15.1536.
Однако тот же сценарий терпит неудачу при "копировании из буфера обмена в строку" на машине windows10 с UFT версии 14, Adobe Acrobat reader версии 18.2304
Я не уверен, что именно конфликт версий блокирует выполнение скрипта.
Что я уже пробовал:
Скрипт :
Функция ReadPDF(Имя Файла)
'Позвоните KillByName("AcroRd32.exe") ", - добавил Крупеш.
Набор oShell = функция createobject("объект WScript.раковина")
'Открыть файл PDF
oShell.запуск именем
подождите(4)
Окно("AdobePdf").Активировать
ждать 3
"Выберите все данные из PDF-файла с помощью клавиш "Control + a"
oShell.Помощью sendkeys "^а"
подождите(2)
"Перемещение данных из PDF-файла в буфер обмена с помощью клавиш "Control + c"
oShell.Sendkeys "^c"
подождите(15)
- Извлечение данных из буфера обмена
Set objClipboard = CreateObject("htmlfile")
strClipboard = objClipboard.Родительское окно.ClipboardData.GetData("Текст")
'Закрыть файл PDF
'Вызовите terminateProcess("AcroRd32.exe")
'Возвращает значение данных буфера обмена
ждать 4
ReadPDF= strClipboard
ждать 3
Конечная Функция