vTaurus
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем, доброго времени суток!
Есть такая задача:
Скопировать текст из окна IE в другую программу.
В VB все просто:
Код:
Dim ie As Object
Set ie = CreateObject("Internetexplorer.Application")
ie.Visible = True
ie.Navigate "C:\Temp\test.html"
While ie.Busy
Wend
SendKeys ("^a")
SendKeys ("^c")
ie.Quit
далее куда надо вставляю = Clipboard.GetText
|
но криво, и я хочу, чтобы юзер не видел окно IE, а если сказать ie.Visible = False, то ничего не работает.
Пытаюсь сделать тоже самое используя WinAPI нифига не получается. Посмотрел, что ловит Spy++ и попытался этоже транслировать в IE, для начала хотя бы Ctrl+A, чтобы выделился текст:
Код:
Dim lHWND As Long
' lHWND = &H2408F2
lHWND = &H1907CC
Debug.Print PostMessage(lHWND, WM_KEYDOWN, VK_CONTROL, &H1D0001)
DoEvents
Debug.Print PostMessage(lHWND, WM_KEYDOWN, &H41, &H11E0001)
DoEvents
Debug.Print PostMessage(lHWND, WM_KEYUP, VK_CONTROL, -1071841279)
DoEvents
Debug.Print PostMessage(lHWND, WM_KEYUP, &H41, &HC11E0001)
DoEvents
|
HWND - я брал разные окна и IEFrame и Shell DocObject View и Internet Explorer_Server
результат ноль.
Все PostMessage возвращают 1
А в Spy++ все тоже самое, что при нажати Ctrl+a с клавиатуры, только между событиями WM_KEYDOWN и WM_KEYUP появлется событие WM_CHAR chCharCode:'a' (97) cRepeat:1 ...
Подскажите, что не так делаю. |
Всего записей: 37 | Зарегистр. 10-12-2001 | Отправлено: 16:21 03-03-2005 | Исправлено: vTaurus, 16:24 03-03-2005 |
|
. ИМХО не надкласс, а подкласс, так как они будут иметь в качетсве родителя диалогывуе окна, но со своими некоторыми свойствами. Насчет Дельфи и С есть отдельный топик, и там достаточно уже копий поломали, так как сам по себе спор флудерский и смысла никакого не несет 
