|
首先我已经读取了这个网页了.但是这次是没爬下来的(因为之前的工作已经完成了.所以让网页回到了主界面上).但是我写个定时器,让他间隔一段时间.就像这2个文本框输入日期.然后执行查询工作继续爬.应该怎么写啊
<dl class="applyDate">
<dt>成功日期</dt>
<dd>
<span class="posi">从</span>
<input name="successStart" value="2018-04-26" type="text" class="txt" id="successStart">
<span class="posi">到</span>
<input name="successEnd" value="" type="text" class="txt" id="successEnd">
</dd>
</dl>
<a href="#" class="btn" id="searchBtn" onClick="do_search()"><em>查询</em></a>
之前有个例子:
<li class="pageDown">
<a href="javascript:void(0);"><em>下一页</em></a>
</li>
我在程序中写的是:
If Trim(obj.InnerText) = "下一页" And InStr(obj.OuterHtml, "pageDown") > 0 Then
'下面是挨个执行翻页的代码
Dim 一拆 As String = Replace(Split(obj.OuterHtml, "=")(2), Chr(34), "")
Dim 二拆 As String = Replace(Replace(一拆, "clickPage(", ""), ") href", "")
Dim dyjs As String = "javascript:void(0);clickPage(" & 二拆 & ")"
webBrowser1.Navigate(dyjs)
End If
这样我就可以翻页了.
我想应该是这种写法.但是不知道怎么把日期给他放进去
Dim dyjs As String = "#;do_search()"
webBrowser1.Navigate(dyjs)
|
|