WebRequestでJavascriptの値取得

解決済

質問者：jun_jii
質問日時：2013/04/19 15:30
回答数：2件

VB .Net（2008）のWebRequestでHPのページの値を取得するものを作成しているのですが、Javascriptが表示する部分の値が取得出来ません。
Javascriptが動的に挿入する値を取得する方法はあるでしょうか？

よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： bybalsendercase
回答日時：2013/04/20 07:11

こんにちは

WebBrowserコントロールを使うとjavascriptを自由に実行して、値を取得できますが WebBrowserコントロールが使えない場合は少し時間がかかりますね。

WebBrowserコントロールを使ったサンプルです。

下記のhtmlから値を取得する場合です。

<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title></title>
</head>
<body>
<form name="js">
<input type ="text"id="n1" name="t1" value="" />
<input type="text" id="n2" name="t2" value="" />
<input type="button" id="n3" name="b" value="値" onclick="st()"/>
</form>
<script type="text/javascript">
function st() {
document.js.t1.value = "テスト1"
document.js.t2.value = "テスト2"
}
</script>
</body>
</html>

＃簡単にするために各inputにidを付けていますので、idを手がかりにInvokeMember("click")でボタンをクリックしてjavascriptを実行します。

＃input type="text"に値が表示されますので、GetAttribute("value")でinputの値を取得します。

＃idの値を手がかりにしてinputの値を取得してListBox1に表示します。

Public Class Form1
Dim ur As String = "http://～～～～l"
Private Sub f() Handles MyBase.Shown
WebBrowser1.Navigate(ur)
WebBrowser1.Visible = False 'WebBrowser1を非表示にする
End Sub

Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
ListBox1.Items.Clear()
Dim txt1 As String
Dim txt2 As String
If sender.url.ToString = e.Url.ToString Then
'ボタンをクリックしてjavascriptを実行
WebBrowser1.Document.GetElementById("n3").InvokeMember("click")
'inputに値を入力
txt1 = WebBrowser1.Document.GetElementById("n1").GetAttribute("value")
txt2 = WebBrowser1.Document.GetElementById("n2").GetAttribute("value")

Dim wre As Net.WebRequest = Net.WebRequest.Create(ur)
Dim wrs As Net.WebResponse = wre.GetResponse()
Dim st As IO.Stream = wrs.GetResponseStream()
Dim reader As New System.IO.StreamReader(st)
Dim line As String
line = reader.ReadLine
Do Until IsNothing(line)
'idの値を手がかりにしてinputの値を取得してListBox1に表示
If line.Contains("id=""n1""") Then
ListBox1.Items.Add(txt1)
ElseIf line.Contains("id=""n2""") Then
ListBox1.Items.Add(txt2)
End If
line = reader.ReadLine
Loop
reader.Close()
End If
End Sub
End Class