16,555
社区成员
发帖
与我相关
我的任务
分享请问利用vb.net如何获取外汇管理局或者中国银行的某日外汇牌价
我用：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With WebBrowser1
.Navigate("http://srh.bankofchina.com/search/whpj/search.jsp")
End With
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim vDoc As HtmlDocument, vTag As HtmlElement
Dim i As Integer
vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.Count - 1 '检测所有标签
vTag = vDoc.All(i)
With vTag
If UCase(.TagName) = "INPUT" Then '找到input标签
Select Case UCase(.Name)
Case "ERECTDATE", "NOTHING"
.InnerText = "2013-12-31"
End Select
End If
End With
Next
Dim text As HtmlElement = WebBrowser1.Document.GetElementById("pjname")
text.InnerText = "美元"
End Sub
却不能在牌价中输入“美元”呢？ 请问高手们如何查询结果？我是个初学者
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With WebBrowser1
.Navigate("http://srh.bankofchina.com/search/whpj/search.jsp")
End With
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim vDoc As HtmlDocument, vTag As HtmlElement
Dim i As Integer
vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.Count - 1 '检测所有标签
vTag = vDoc.All(i)
With vTag
If UCase(.TagName) = "INPUT" Then '找到input标签
Select Case UCase(.Name)
Case "ERECTDATE", "NOTHING"
.InnerText = "2013-12-31"
End Select
End If
End With
Next
Dim text As HtmlElement = WebBrowser1.Document.GetElementById("pjname")
text.InnerText = "美元"
End Sub
却不能在牌价中输入“美元”呢？ 请问高手们如何查询结果？我是个初学者
...全文
请发表友善的回复…
发表回复
虾米无名 2014-04-18
- 打赏
- 举报
如果有返回国家外汇管理局的牌价 http://www.safe.gov.cn/wps/portal/sy/tjsj_hlzjj_inquire更好了。
