Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]国税局增值税fa piao查询参数自动填写问题-已解决


  共有4894人关注过本帖树形打印复制链接

主题：[求助]国税局增值税fa piao查询参数自动填写问题-已解决
帅哥哟，离线，有人找我吗？
shenyl0211
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		[求助]国税局增值税fa piao查询参数自动填写问题-已解决  发帖心情 Post By：2018/11/22 10:20:00 [只看该作者]

1、下面是来自甜版的例子：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=120985&skin=0
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:网页例子.table
2、fa piao查询的默认值是“开具金额”：

图片点击可在新窗口打开查看此主题相关图片如下：默认状态.png
图片点击可在新窗口打开查看
3、点击“输入参数”按钮后，文本框右边并没有出现手工输入并按回车键后的对钩符号：

图片点击可在新窗口打开查看此主题相关图片如下：2345截图20181122102046.png
图片点击可在新窗口打开查看
4、“fa piao代码”和“fa piao号码”只有按回车键后才出现对钩符号：
图片点击可在新窗口打开查看此主题相关图片如下：2345截图20181122102151.png
图片点击可在新窗口打开查看
5、如果“fa piao代码”是12位，则要求输入“校验码”，而不是默认的“开具金额”：

图片点击可在新窗口打开查看此主题相关图片如下：2345截图20181122102441.png
图片点击可在新窗口打开查看
6、输入“fa piao代码”后有一定的停顿时间，以判断是输入“开具金额”还是“校验码”。
7、“校验码”的文本框ID是什么？或者说，怎么获取。例如前面的fpdm、fphm、kprq、kjje。
谢谢！





[此贴子已经被作者于2018/11/23 13:54:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/22 10:41:00 [只看该作者]

设置焦点进入、离开即可，如

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
Dim fpdm = web.Document.GetElementById("fpdm")
Dim fphm = web.Document.GetElementById("fphm")
Dim kprq = web.Document.GetElementById("kprq")
Dim kjje = web.Document.GetElementById("kjje")
Dim yzm_img = web.Document.GetElementById("yzm_img")
fpdm.SetAttribute("value", "044001600111")
fphm.SetAttribute("value", "45372505")
kprq.SetAttribute("value", "20180603")
kjje.SetAttribute("value", "214592")
yzm_img.InvokeMember("click")
fpdm.focus
fphm.focus
 回到顶部
帅哥哟，离线，有人找我吗？
shenyl0211
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/11/22 11:02:00 [只看该作者]

校验码的Id是什么？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/22 11:52:00 [只看该作者]

以下是引用shenyl0211在2018/11/22 11:02:00的发言：
校验码的Id是什么？

 

要学会自己查找。F12调出调试器，查找元素

 

http://www.foxtable.com/mobilehelp/scr/0244.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
shenyl0211
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/11/22 12:45:00 [只看该作者]

谢谢甜版，获取Id问题已经解决。
但这样的帮助页面标题和具体内容确实与解决本问题的思路不符，应该开设专门章节进行详细讲解，让非专业人员也能轻松应对，这才符合狐表的出发点。
[此贴子已经被作者于2018/11/22 13:38:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
shenyl0211
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/11/22 13:41:00 [只看该作者]

为什么必须点击两次“填入数据”按钮才能填入“校验码”？
但如果中间插入MessageBox.Show(0)则可以一次性填入
Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
Dim fpdm = web.Document.GetElementById("fpdm")
Dim fphm = web.Document.GetElementById("fphm")
Dim kprq = web.Document.GetElementById("kprq")
Dim kjje = web.Document.GetElementById("kjje")
Dim yzm_img = web.Document.GetElementById("yzm_img")
fpdm.SetAttribute("value", "044001600111")
fphm.SetAttribute("value", "45372505")
kprq.SetAttribute("value", "20180603")
fpdm.focus
fphm.focus
’MessageBox.Show(0)
kjje.SetAttribute("value", "214592")
yzm_img.InvokeMember("click")
[此贴子已经被作者于2018/11/22 13:43:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
shenyl0211
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/11/22 14:03:00 [只看该作者]

目前只能加入一句可以自动关闭的提示，反正什么也不影响：
MessageBoxTimeout(BaseMainForm.Handle,"请稍候……", "提示", vbOKonly, 0, 1000)
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/22 15:24:00 [只看该作者]

代码改成这样

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
Dim fpdm = web.Document.GetElementById("fpdm")
Dim fphm = web.Document.GetElementById("fphm")
Dim kprq = web.Document.GetElementById("kprq")
Dim kjje = web.Document.GetElementById("kjje")
Dim yzm = web.Document.GetElementById("yzm")
Dim yzm_img = web.Document.GetElementById("yzm_img")
fpdm.SetAttribute("value", "044001600111")
fphm.SetAttribute("value", "45372505")
kprq.SetAttribute("value", "20180603")
fpdm.focus
fphm.focus
web.Document.InvokeScript("eval", new String() {"yzm.onkeydown=function(){kjje.value='" + "214592" + "';};yzm.onfocus=function(){kjje.value='" + "214592" + "';};"})
yzm_img.InvokeMember("click")
yzm.focus
 回到顶部
帅哥哟，离线，有人找我吗？
shenyl0211
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/11/23 10:29:00 [只看该作者]

奇怪！
甜版：
    1、直接用固定数值（就是你的例子）的时候，能马上自动出现验证码图片；
    2、直接从表格取值（这是现实需要）的时候，就不会自动出现验证码图片；
    3、在2的基础上加上MessageBox.Show，或MessageBoxTimeout，就与1一样了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:网页例子.table



[此贴子已经被作者于2018/11/23 10:31:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/23 10:32:00 [只看该作者]

以下是引用shenyl0211在2018/11/23 10:29:00的发言：
奇怪！
甜版：
    1、直接用固定数值（就是你的例子）的时候，能马上自动出现验证码图片；
    2、直接从表格取值（这是现实需要）的时候，就不会自动出现验证码图片；
    3、在2的基础上加上MessageBox.Show，或MessageBoxTimeout，就与1一样了。

 

实例发上来测试吧。我测试没问题。
 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 6 次数据查询