掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
HTMLソースを獲得するためには? (ID:118683)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自分で過去ログにて調べてみてプログラムを組んでみました。 以下がそうです。 Option Explicit Dim IE As Object Private Sub Command1_Click() IE.Visible = True SyncNavigate "http://www.google.ne.jp" IE.Document.All.Item("q").Value = Text1.Text Call IE.Document.Forms.Item(0).submit End Sub Private Sub Form_Load() Set IE = CreateObject("InternetExplorer.Application") 'IE.Visible = True Text1.Text = " " End Sub Sub SyncNavigate(ByVal URL As String) IE.Navigate URL Call LoopWhileBusy End Sub Sub LoopWhileBusy() Do DoEvents Loop While IE.Busy End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) IE.Quit End End Sub しかし、これでは最初のホームページのソースしか獲得できません。 検索結果のソースを獲得するにはどのようにすればいいのか、ご指摘してもらえませんか?
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.