网上批量查询发票

fivekuai

办理业务时需要上福建国税网查询发票号的真伪，由于数量较大，常规方式直接在网页上逐格输入效率极低，能否有快捷的方式方法实现批量录入查询，数据如图所示，就三栏。出结果后我需要截屏，就这个需求。数据也是从execl获取的。谢谢了
http://www.fj-n-tax.gov.cn/wssw/jsp/common/query/fpcy.jsp?styleName=blue

cumulonimbus

蓝天大师，这个网站的验证码真奇怪。
http://www.sdcrj.com/wwwroot/sdsgatcrjzwfww/services/ApplyProcessQuery.jsp
用你的这次的解析验证码的代码分析，居然在工作簿上会严重变形，变成斜的。

蓝天630902

cumulonimbus 发表于 2013-2-28 21:41
蓝天大师，这个网站的验证码真奇怪。
http://www.sdcrj.com/wwwroot/sdsgatcrjzwfww/services/ApplyProces ...

一楼已经更新，去看看吧

cumulonimbus

蓝天630902 发表于 2013-3-1 08:19
一楼已经更新，去看看吧

请问大师：还有1，4，8，16位图的字节数分别是多少呢？

cumulonimbus

http://www.hongvip.com/Reg.aspx
呵呵，这个网站你的代码又不想作用了。

fivekuai

蓝大，太有才了，福建国税查询非常成功，谢谢了

kszcs

提示找不到工程或对象。。。。。

俯视姚明

四川地税工作表上没有字段和按钮，正在分析代码，试着恢复一下。

俯视姚明

Master 蓝天，四川地税工作表里好像只有验证码识别部分，还没有把验证后的内容抓取到excel中的代码，是疏忽还是？我在参考“福建地税”的代码中，看到了
[code=vb]
a = "XH=&fbdm="
    b = "&fbhm="
    c = "&jym="
    d = ""
    n = Range("a65536").End(xlUp).Row
    For i = 2 To n
        d = d & a & Cells(i, 1) & b & Cells(i, 2) & c & Cells(i, 3)
    Next i
[/code]

然后我用HttpFox查看了福建地税的页面，发现有如下内容：

1. <td style="height:30"><input type="text" name="fbdm" maxlength="12" value="235456789001" style="height:30"></td>
   
2.                                                 <td style="height:30"><input type="text" name="fbhm" maxlength="8" value="45678912" style="height:30"></td>
   
3.                                                 <td style="height:30"><input type="text" name="jym" maxlength="7" value="1234567" style="height:30"></td>
   

复制代码

里面有fbhm和jym，网页抓取我正在学习，还不太懂，希望蓝天老师指导一下“福建地税”代码中d的值是如何拼接的？

蓝天630902

俯视姚明 发表于 2013-3-3 14:50
Master 蓝天，四川地税工作表里好像只有验证码识别部分，还没有把验证后的内容抓取到excel中的代码，是疏忽 ...

已经更新