タイトル : Re: サイトに自動的にログインする 投稿日 : 2005/02/05(Sat) 07:31 投稿者 : 花ちゃん
色々な方法があるようですが、VB6.0を使っていたのならとりあえず WebBrowser コントロールの変わりにInternetExplorerを使って見て下さい。 下記のようにVB6.0のコードがほぼそのまま使用できます。 Dim IE As Object IE = CreateObject("InternetExplorer.application") IE.Navigate("hhttp://www.bcap.co.jp/hanafusa/top.htm") Application.DoEvents() Do While IE.Busy = True Application.DoEvents() Loop IE.Visible = True Do While IE.Document.ReadyState <> "complete" Application.DoEvents() Loop RichTextBox1.Text = IE.document.body.innerText IE = Nothing |