标题:模拟网页输入框的切换焦点
取消只看楼主
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
结帖率:100%
已结贴  问题点数:20 回复次数:21 
模拟网页输入框的切换焦点
网址:
https://inv-veri.chinatax.
模拟输入发票代码 051002000511
如果输入错误输入框后面会显示“×发票代码有误!”,如果输入正确在显示“√”
自动输入发票代码后,如何让表单立即显示“√”of.wb.Document.getElementByid("fpdm").value="051002000511"

下面是全部代码
of = CREATEOBJECT("webForm")
of.show
susp
*READ EVENTS
RETURN

DEFINE CLASS webForm AS Form
    ShowWindow = 2
    WindowState = 2
    ADD OBJECT WB AS Olecontrol WITH Width=this.width,Height=this.height,Anchor=15,OleClass="Shell.Explorer.2",Visible=.T.
    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC
    PROCEDURE Init
        this.WB.Silent = .T.
        this.WB.Navigate("https://inv-veri.chinatax.)
    ENDPROC
ENDDEFINE
搜索更多相关主题的帖子: 输入框 代码 输入 this 模拟 
2022-02-21 13:21
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 


2022-02-21 14:27
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 
of.wb.Document.getElementByid("fpdm").value="051002000511"
用这条语句赋值后,怎么让后面的√立即显示出来?
2022-02-22 10:26
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 
原来的网页应该是在输入的时候执行了什么计算,我是想能不能强制网页计算,这样就和手工输入是一样的效果
2022-02-22 11:02
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 
刚检查了一次,确实输入进去了,可以取到这个数值
2022-02-22 13:44
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 
可以的,这个方法可以
2022-02-22 15:59
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 
谢谢,直接扒底裤了
2022-02-23 16:46
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 
好的,下午测试第一次的代码也正常的,我要好好琢磨琢磨两次的差别,消化吸收
2022-02-23 19:56
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 
发票号码好像也需要运算生成校验结果,一般输入8位都算正确
2022-02-23 19:58
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 
fpdm.blur 的源码?看来只会VFP还是不行啦,_cliptext=of.wb.document.body.innerhtml没有找你说的代码
2022-02-23 20:08



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-508396-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.293087 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved