Приветствую!
У меня стоит задача сканировать буфер обмена, пока в нем не появится нужная строка.
Многократно в цикле while выполняется следующая функция:
В итоге на n-ый раз программа вываливается с ошибкой DataObject:GetText Недостаточно памяти для завершения операции. Подскажите, что можно сделать?
У меня стоит задача сканировать буфер обмена, пока в нем не появится нужная строка.
Многократно в цикле while выполняется следующая функция:
| Код |
|---|
Function ClipboardText() ' чтение из буфера обмена
'On Error Resume Next
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.GetFromClipboard
ClipboardText = .GetText
End With
On Error GoTo 0
End Function |
В итоге на n-ый раз программа вываливается с ошибкой DataObject:GetText Недостаточно памяти для завершения операции. Подскажите, что можно сделать?
Изменено: - 14.10.2017 01:36:52
