|
分類:[VB.NET/VB2005 以降]
度々申し訳ありません。
WebKitBrowserのNavigateが動かないようで、困っています。
Windowsフォームアプリケーションでは正常にNavigateされることを確認しています。
やりたいことは、httpアクセスして、ソースファイルを取得したいだけです。
もちろんWebcliantにてのソース取得方法も存じておりますが、
今回はWebKitです。
またIEコンポーネントは、メモリの解放方法がないため、使用しません。
(しかしながらIEコンポーネントのWebbrowserなら動く・・・)
ソースを取得したいだけでフォームは無駄なので、コンソールアプリでやってみようと思ったらとたんに動かず
何が原因なのかわかりません。エラーは発生しません。
Navigateを実行すると、Navigating・Navigated・DocumentCompletedが呼ばれるはずなのですが
(フォームアプリではそのようになる)
どれだけまっても呼び出されません。
なにか、ここが違うんじゃないかな?、というようなヒントでもアドバイスでもいいので教えていただけると助かります。
Module Program
Sub Main()
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
'WebKitBrowser
Dim wwebk As WebKit.WebKitBrowser
wwebk = New WebKit.WebKitBrowser
AddHandler wwebk.DocumentCompleted, AddressOf wwebkDocumentCompleted
AddHandler wwebk.Navigated, AddressOf wwebkNavigated
AddHandler wwebk.Navigating, AddressOf wwebkNavigating
'以下を入れてみたけど・・・無意味?
wwebk.Name="webkit"
wwebk.Url=nothing
wwebk.SuspendLayout
wwebk.Navigate("http://www.yahoo.co.jp")
'UserAgentやURLはセットされているのか?確認(セットはされている)
Console.Write("navi . . . " & wwebk.UserAgent & " " & wwebk.Url.ToString)
Console.ReadKey(True)
'空になってしまう・・・
Console.Write( wwebk.DocumentText )
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
'以下全く呼び出されない・・・実行されていないということ・・・??
Sub wwebkDocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
MsgBox("complete." & e.Url.ToString)
End Sub
Sub wwebkNavigated(sender As Object, e As WebBrowserNavigatedEventArgs)
MsgBox("navigated." & e.Url.ToString)
End Sub
Sub wwebkNavigating(sender As Object, e As WebBrowserNavigatingEventArgs)
MsgBox("navigating." & e.Url.ToString)
End Sub
End Module
|