Web Inquiry (Problem Solved) Thanks to Winland

KCFONG · 发表于 2010-7-1 19:07

因工作所需，需要从入境处的网站下载资料，希望Winland 版主不惜赐教，详情请见附件

[ 本帖最后由 KCFONG 于 2010-7-2 07:30 编辑 ]

winland · 发表于 2010-7-1 20:08

这种网站用HTTPRequest来做后台查询貌似很难。一种做法是建一个窗体，上面放一个WebBrowser控件，先手动点入到查询界面，再开始自动查询。我先看看。

KCFONG · 发表于 2010-7-1 20:13

Thank very much, Your reply is much appreciated>

winland · 发表于 2010-7-1 22:49

简单的做了一个，提供一些思路给你。运行窗体后，手动点击网页到查询界面，然后点按钮。
最后那一页没有一个独特有Name的元素以供判断，所以用了个错误处理来。你先试试。
估计你Windows和Office版本有点不一样，代码中有些繁体字不知道你那里显示是否正常，你可以自己改一下。

Web Inquiry.rar (10.89 KB, 下载次数: 454)

KCFONG · 发表于 2010-7-1 22:51

Thanks again, I will try and reply you

KCFONG · 发表于 2010-7-2 07:29

Just for your information.

A little bit problem as shown in attached file.
I think it was caused by the slow response time.
And I had changed
   Do Until dom.all.tags("a")(3).innerText = "重新查詢" And dom.all.tags("table")(4).Rows(3).Cells(1).innerText <> ""
         DoEvents
      Loop
and problem was solved.

120HYH · 发表于 2011-2-6 20:28

听说，这个人的东西都挂了木马。好象是日本种来的。
http://club.excelhome.net/thread-679355-1-2.html这贴有说

120HYH · 发表于 2011-2-6 21:05

是真的吗？

winland · 发表于 2011-2-8 01:34

不知道楼上的这样发帖用意何在？那个帖子里已经有解释了。
不要盲信“高手”，就像不要盲信“砖家”一样。

278332010 · 发表于 2016-10-9 01:12

winland 发表于 2010-7-1 22:49
简单的做了一个，提供一些思路给你。运行窗体后，手动点击网页到查询界面，然后点按钮。
最后那一页没有一 ...

对于这种网页代码，用您的方法并不行，会在【Set elemInput = dom.getElementsByName("field8106")(0)】这里报错，应该怎么办？

<input datatype="text" viewtype="0" type="text" class="Inputstyle styled input" temptitle="级别" id="field8061" name="field8061" style="width:90%" onchange="checkinput2('field8061','field8061span',this.getAttribute('viewtype'));checkLength('field8061','10','级别','文本长度不能超过','1个中文字符等于2个长度');" value="">

		自动登录	找回密码
密码			免费注册

[求助] Web Inquiry (Problem Solved) Thanks to Winland

偶得多向你学习啊～～～ Thanks a million

听说，这个人的东西都挂了木马。好象是日本种来的。

是真的吗？