<FORM name=pageform onsubmit="return check_page(this);" action=http://www.chinabig.com/v07/company/keywords_company_result.jsp method=post>
<TD align=middle><INPUT type=hidden value=电脑 name=keyword> <INPUT type=hidden value=0 name=provinceId> <INPUT type=hidden value=0 name=cityId> <INPUT type=hidden value=0 name=isCustomer> <INPUT type=hidden name=businessIndex> <INPUT type=hidden value=0 name=businessModelId> 共 <SPAN class=font_12_red>15536</SPAN> 条信息,第 <SPAN class=font_12_red_b>1</SPAN>/<SPAN class=font_12_red>1036</SPAN> 页 <A href="javascript:submitPageform(1)">首 页</A> <A href="javascript:submitPageform(1)">上一页</A> <A href="javascript:submitPageform(2)">下一页</A> <A href="javascript:submitPageform(1036)">尾 页</A> 到第 <INPUT class=bd size=10 value=1 name=page> 页 <INPUT type=submit value=GO name=Submit> </TD></FORM></TR></TBODY></TABLE><BR><BR> WebBrowser2.Document.All("page") = text1.text
Sleep (1000)
WebBrowser2.Document.All("Submit").submit前面的那个name =page的可以 但是 name= submit的就不行
我还试过 WebBrowser2.Document.All("pageform").submit , WebBrowser2.Document.getElementByName("Submit").submit 都不行
<TD align=middle><INPUT type=hidden value=电脑 name=keyword> <INPUT type=hidden value=0 name=provinceId> <INPUT type=hidden value=0 name=cityId> <INPUT type=hidden value=0 name=isCustomer> <INPUT type=hidden name=businessIndex> <INPUT type=hidden value=0 name=businessModelId> 共 <SPAN class=font_12_red>15536</SPAN> 条信息,第 <SPAN class=font_12_red_b>1</SPAN>/<SPAN class=font_12_red>1036</SPAN> 页 <A href="javascript:submitPageform(1)">首 页</A> <A href="javascript:submitPageform(1)">上一页</A> <A href="javascript:submitPageform(2)">下一页</A> <A href="javascript:submitPageform(1036)">尾 页</A> 到第 <INPUT class=bd size=10 value=1 name=page> 页 <INPUT type=submit value=GO name=Submit> </TD></FORM></TR></TBODY></TABLE><BR><BR> WebBrowser2.Document.All("page") = text1.text
Sleep (1000)
WebBrowser2.Document.All("Submit").submit前面的那个name =page的可以 但是 name= submit的就不行
我还试过 WebBrowser2.Document.All("pageform").submit , WebBrowser2.Document.getElementByName("Submit").submit 都不行
方法代码贴出来看看
if(form.page.value.search(/^\d+(\.\d+)?$/)==-1){
alert("只能输入数字!");
form.page.select();
form.page.focus();
return false;
}
Dim vDoc
Set vDoc = Web.Document
vDoc.body.All("page").Value = "23"
vDoc.body.All("Submit").Click
End Sub