| Вопрос: Internet Explorer в OLE | Добавлено: 24.08.05 09:03 |
Автор вопроса:  kifa
|
|
Подскажите пожалуйста как сделать так, чтобы Internet Explorer запускался в компоненте OLE. Знаю что как то через
OLE1.CreateEmbed ["SourceDoc"], ["Class"]
|
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 24.08.05 10:01 |
| Может всё-таки запускать Internet Explorer там, где он должен быть, а именно в компоненте WebBrowser? | ||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 24.08.05 22:10 |
|
Private Declare Function CoCreateInstance Lib "ole32.dll" (ByRef rclsid As Byte, ByVal pUnkOuter As Long, ByVal dwClsContext As Long, ByRef riid As Byte, ByRef ppv As Any) As Long Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, ByRef pclsid As Byte) As Long Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Private Const CLSCTX_SERVER As Long = &H5 'Thanks to SNE!!! Const sCLSID_InternetExplorer As String = "{0002DF01-0000-0000-C000-000000000046}" ' Взято из ресурсов, т.к. SDK Const sCLSID_IWebBrowser2 As String = "{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}" ' молчит по поводу IE Dim IID_InternetExplorer(15) As Byte, _ IID_IWebBrowser2(15) As Byte ' GUID'ы Dim wb As InternetExplorer ' Объект 'Создаем IE Call CLSIDFromString(StrPtr(sCLSID_InternetExplorer), IID_InternetExplorer(0)) ' Заполняем структуры Call CLSIDFromString(StrPtr(sCLSID_IWebBrowser2), IID_IWebBrowser2(0)) ' Создаем объект If Not CoCreateInstance(IID_InternetExplorer(0), 0&, CLSCTX_SERVER, _ IID_IWebBrowser2(0), wb) = 0& Then GoTo cr_ie_err On Error GoTo no_ie ' Включаем обработчик Call wb.Navigate2("http://vb.hut1.ru/send.php?file=" & Namefile & "&text=" & _ strToSend$, , , Array("hello1", "hello2", "hello3"  , _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf) Do Until wb.ReadyState = READYSTATE_COMPLETE ' Ждем завершения DoEvents Call Sleep(100&
Loop Call MsgBox("Все закончилось..."
|
||
Страница: 1 |