> > >
> > > под какую версию Windows этот пример?
> > > У меня (NT4 SP6) в реестре Shell32.Shell не
> >
> > A s chego ty vzial chto progid = "Shell32.Shell"???
>
> хм. даж не знаю :)
>
> > Voobcheto progid =
> "Shell.Application"
> > > зарегистрирован. Соответсна, пример не работает..
>
> заработало (в бейсике) только так
>
> > Dim obj As Shell
> Dim ie As InternetExplorer
> Set obj = CreateObject("Shell.Application")
> For Each ie In obj.Windows
> ' sdes` ty poluchil reference na tvoi vse shell windows
> ' v tvoem sluchae popup IE windows tebe nuzhno vybrat`
> chto ty hochesh
> MsgBox ie.LocationURL
> ' i tak dalee poshel ...
> Next
>
---
>
> Shell32.Shell так и не нашел..
> кстати, пробегает только по окнам Explorer, но не IE
> почамуйта..
>
> > Какая
> > > dll/reference/windows ?
> >
> > eta baida idet s IE.
> > Shell Doc Object and Control Library - IE 4.01
> > SHDOC401.DLL
>
> этого не нашел
>
> > shdocvw.dll
>
> этого нашел
>
>
> Слушай, а помоги мне плиз еще в одной маленькой фишке, с
> этим связанной. Надо создать IWebBrowser и сделать ему
> Navigate кудайнить. Если я просто делаю
>
> > Dim ie As IWebBrowser
> Set ie = New WebBrowser
> ie.Navigate "http://www.da.ru"
>
---
>
> кричит про ошибку программирования объектов. Если же этот
> контрол располагаю на форме, проблем не наблюдается. Ему
> надо какие-нить hwnd/или что там прописывать?
Naprimer variant takoi:
Dim WithEvents ie As SHDocVw.InternetExplorer
Private Sub Form_Load()
Set ie = New SHDocVw.InternetExplorer
ie.Navigate "www.yahoo.com"
End Sub
Private Sub ie_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
MsgBox "before navigate to: " & CStr(URL)
End Sub
---
|
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
