• 締切済み

WebBrowserでAタグ取得

VB9でWebBrowserを使ってホームページにアクセスしているのですが、 そのページにある全てのAタグのURLとAタグの表示テキストを取得したいのですが、どのようにすれば良いでしょうか？ WebBrowser1.Navigate(URL) ...待ち 受信完了 ここまではできています。 この後のAタグを取得するコードが知りたいです。

みんなの回答

  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.2

失礼 GetElementsByTag × → GetElementsByTagName ○

  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.1

GetElementsByTag を検索してみて Set doc = WebBrowser1.Document For Each anchor In doc.GetElementsByTagName("A") 　　Debug.Print anchor.innerText 　　Debug.Print anchor.href Next

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • WebBrowserにてsubmitの前にnavigateしてしまう

    いつもお世話になっております。 ＶＢ2005ユーザーです。 WebBrowser内の"submit"を押したあと、違うページに行きたいのですが、 "submit"を押す前に"Navigate"で指定しているページに行ってしまいます。 このようなコードを書いています。 With WebBrowser1 .Navigate("最初のＵＲＬ") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop .Document.Forms(0).InvokeMember("submit") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop .Navigate("次の指定ＵＲＬ") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop 「指定ＵＲＬ」は"submit"により新しいＨＴＭＬが生まれるので、その後の作業のためにどうしても"submit"を押したいのですが、上のようなコードですと先に「指定ＵＲＬ」に行ってしまいます。 "submit"をクリックせず、無視してしまうのです。 Navigate("次の指定ＵＲＬ")を外せばクリックしてくれるのですが・・・。 WebBrowserを完全に待機させる方法などが必要なのでしょうか？ 宜しくご教授のほどお願い致します。

  • WebBrowserのURLプロパティについて

    質問です。 ある某サイトの画像取得するプログラムを作ってるのですが、 検索しても出てこないのでここで質問させて頂きます。 最初に[TextBox1] と[TextBox2]が二つあります。 そしてそのテキストボックスにはURLの　../585dDws/ ←等の文字列を入れて それをWebBrowserで取得して読み込みを行いたいのですが、 WebBrowser2.Navigate(New Uri("http://www.*****.jp" + TextBox1.Text + ":" + TextBox2.Text + "/index.html")) 及び WebBrowser2.url(New Uri の方も読み込みました。が無理です。 でButtonを押しても　WebBrowser　内は真っ白で読み取ってくれません。 どの様にすれば詠み込んでくれるのでしょうか？ 「+」と「&」等も変更してみましたが無理でした。

  • WebBrowserに映されたページのｈｔｍｌ文獲得方法

    WebBrowserでナビゲートしたページのHTML文（ソース）をtextボックスに表示させたいのですが、出来なくて困っています。 text1.Text = inet1.OpenURL (★)　　★＝表示させたいURL という事まではわかったのですが、WebBrowser1のURLの引渡し方法がわかりません！ 教えてください！！おねがいします。

  • WebBrowserでHtmlを取得

    WebBrowserでHtmlを取得する方法をおしえてください フォーム上に、WebBrowser1、TextBox1、Button1を配置しています。 TextBox1にHtmlを表示し、Button1は、WebBrowser1に表示している WEBページを更新します。 やりたい事 　(1)フォームを開いた時に、URLで指定したWEBページを表示させ 　　TextBox1にHtmlを表示させる。 　(2)Button1をクリックした時、表示しているWEBページを更新する。 　　更新後のHtmlをTextBox1に表示させる。 　(3)TextBox1の表示が完了したらHtmlを処理する。(未着手） 現在、(1)は動作するのですが、(2)が動作しません（TextBox1のHtmlが更新されない） Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate(オッズURL):webcompflag = False Do While (webcompflag = False) System.Windows.Forms.Application.DoEvents() System.Threading.Thread.Sleep(10) Loop TextBox1.Text = WebBrowser1.Document.Body.InnerHtml End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = "" If Not WebBrowser1.Url.Equals("about:blank") Then WebBrowser1.Refresh() : webcompflag = False Do While (webcompflag = False) System.Windows.Forms.Application.DoEvents() System.Threading.Thread.Sleep(10) Loop TextBox1.Text = WebBrowser1.Document.Body.InnerHtml End Sub 何がいけないのか分かりません よろしくお願いします。

  • webbrowserに表示させたページのリンクをクリックしたい。

    お世話になります。 vb2005でウェブブラウザにページを表示させて webbrowser1.navigate("http://yahoo.co.jp") ５番目のURLをクリックさせるのはどうすればいいでしょうか？ 教えてください。お願いします。

  • webbrowserにappendChildでyahooへのリンクを追加させるには？

    お世話になります。 以下のvb6のコードを見ていただきたいですが bodyタグの中にh1タグしかない簡単なページに <a href="http://www.yahoo.co.jp">ヤフーへ</a> というaタグをウェブブラウザに表示させた際に追加させたいと 思っています。 その際、href属性とhttp://www.yahoo.co.jpという値を つけくわえるコードがわかりません。 ｛vb.netだと　elem.SetAttribute("HREF", http://www.yahoo.co.jp) で記述できるみたいですが、vb6だとコンパイルエラーがでてしまいます｝ どのようにコーディングすればよろしいでしょうか？ 教えてください。お願い致します。 Private Sub Command1_Click() WebBrowser1.Navigate ("http://hoho.hiho.jp/") Do While WebBrowser1.Busy = True '何もしないループ（笑） DoEvents Loop Start = Timer Do While Timer - Start < 2 DoEvents Loop Dim elm As IHTMLElement Set elem = WebBrowser1.Document.createElement("A") elem.innerText = "ヤフーへ" WebBrowser1.Document.body.appendChild (elem) End Sub

  • WebbrowserよりHTMLのValue値を取得したい

    こんばんは Webbrowserに表示されているページから <input type="hidden" name="regist_id" value="123456789"> というう箇所のValueの値123456789を取得しLabel1.Textに表示させたいのですが、 WebBrowser1.Document.getElementsByName("regist_id").Item(0).Value　= Label1.Text としてみたのですが無理でした。 label1は空白になるだけでした。 どこが間違っているのでしょうか？ VB2005で製作しております。

  • WebBrowserの読み込み待ちの処理の仕方

    VB2005にてプログラムしております。 WebBrowser内にて表示したページでID、PASSを自動入力、ログインするというプログラムですが、 ------------------------------------------------------------- 　　　　Dim IDCODE As String = TextBox1.Text Dim PASSCODE As String = TextBox2.Text '文字列で指定したＵＲＬに飛ぶ WebBrowser1.Navigate("https://XXXXXXXXX.ne.jp/") '表示終了まで待つ ？？？？？？ 　　　‘WebBrowser1へID、PASS入力処理 ------------------------------------------------------------- 上記の ？？？？？？ 部分に表示待ちの処理をするコードを入れると思うのですが、 With WebBrowser1 Do While .IsBusy = True Loop Do While .ReadyState <> "complete" Loop End With を入力すると読み込み途中で止まってしまうみたいです。 なにかいい方法がありますか？

  • <a>タグのテキストを取得

    jqueryを使っています。 $('a');を使用しページ内のaタグを全て抜き出すと hrefの属性値が表示されてしまい、取り出したい<a>タグに 囲まれたテキストを取得することが出来ません。 <a href="http://yahoo.co.jp">Yahoo!</a> <a href="http://google.co.jp">Google</a> 取り出したい内容は「Yahoo!」及び「Google」のテキスト部分です。 恐らく簡単な内容だとは思いますがご教授お願い出来ますでしょうか？

  • WebBrowserに表示されているページのソースの取得方法

    RichTextBox1.Text =WebBrowser1.Document.body.innertext とすれば表示されている文字は取得できるのですがタグ付きのソースは 取得できません。 webBrowserコントロールに表示されている文字だけでなくタグもいっしょに 取得するにはどうすればよいのでしょうか

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する