赋值传输到国税网站

登录

用活字格整了一个网页，网页数据来自二维码扫描。网页截图如下：
需求：1、点击国税校验时，挑战到国税网站。
2、自动将**号码，**金额，校验码，开票日期填入国税网站。

sudy · sudy

国税网站：https://inv-veri.chinatax.gov.cn/

dklzhq · dklzhq

这个很实用，填写网站数据，读取网页数据，静等高手恢复。

Eric.Liang · Eric.Liang

dklzhq 发表于 2019-3-26 15:27
这个很实用，填写网站数据，读取网页数据，静等高手恢复。

这个你是需要去二开人家国税网站或者看下人家国税网站有没有对应的接口，活字格页面跳转可以用GET或者POST将需要的值传过去，但是解析还是要在人家网站来做的

sudy · sudy

Eric.Liang 发表于 2019-3-26 17:56
这个你是需要去二开人家国税网站或者看下人家国税网站有没有对应的接口，活字格页面跳转可以用GET或者POS ...

我用VBA的直接抓取网站元素的，程序如下：
Private Sub yz_click()
Dim ie As Object
Dim myItem
Set ie = CreateObject("InternetExplorer.application")
With ie
      .navigate "https://inv-veri.chinatax.gov.cn/"
      .Visible = True
      Do Until .ReadyState = 4
      DoEvents
      Loop
      Set myItem = .document.getelementbyid("fpdm")
      myItem.Value = [d3]
      Set myItem = .document.getelementbyid("fphm")
      myItem.Value = [e3]
      Set myItem = .document.getelementbyid("kprq")
      myItem.Value = [g3]
      Set myItem = .document.getelementbyid("kjje")
      myItem.Value = [f3]
End With
End Sub

Eric.Liang · Eric.Liang

sudy 发表于 2019-3-26 19:30
我用VBA的直接抓取网站元素的，程序如下：
Private Sub yz_click()
Dim ie As Object

你这是从国税网上拿下来的，并不是传递值到国税网站。拿下来的数据我们可以在活字格中去解析放至对应的位置，同理，如果是传递，需要在国税网站进行解析。

蓝色心情 · 蓝色心情

本帖最后由蓝色心情于 2021-10-11 14:25 编辑

你好，如何将网站指定的内容，用活字格解析捕捉下来？

David.Zhong · David.Zhong

蓝色心情发表于 2021-10-11 02:40
你好，如何用活字格从网站解折下来网站页面内容？

感觉大佬和楼主不是同一个问题鸭~建议大佬新发一个悬赏帖提问哟~

		自动登录	找回密码
密码			立即注册

[已处理] 赋值传输到国税网站

本帖子中包含更多资源

7 个回复

微信认证勋章

讲师达人

悬赏达人

元老葡萄

活字格认证

活字格高级认证

圣诞拼拼乐