Question

VB 在WebBrowser中用命令点击中行网页按钮

用VB6.0的WebBrowser浏览中行汇率查询网页http://www.boc.cn/sourcedb/whpj/
1.如何用命令点击其中的查询按钮进行检索？

2.如何在检索结果中，获取总页数，并用命令逐个点击下方的页码进行翻页？
第一个问题已经解决，主要是第二个如何模拟点击页码，我只想让VB自动获取每天每页的所有汇率

解决了





Answer 1

部分代码如下：
在窗口及WebBrowser创建完以后，写此代码：
WebBrowser.OnNewWindow2:=IE1NewWindow2;
给主窗口创建一个方法：
procedure TBrowForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);
Var NewForm:TBrowForm;
begin
try
NewForm :=TPopBrowerForm.Create(application);
NewForm.WebBrowser.OnNewWindow2 :=IE1NewWindow2;//如果在窗口的Oncreate事件
//有此代码，此处就可以省略
ppDisp := NewForm.WebBrowser.Application;
NewForm.Show;
Cancel:=false;
except
end;
end;