网址：
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

of.wb.Document.getElementByid("fpdm").value="051002000511"
用这条语句赋值后，怎么让后面的√立即显示出来？

加个回车试试

原来的网页应该是在输入的时候执行了什么计算，我是想能不能强制网页计算，这样就和手工输入是一样的效果

先看看能正常输入了没有
可能是防这防哪的禁止了用脚本代码自动输入
试试输入后中断一下看看就清楚，如：
of.wb.Document.getElementByid("fpdm").value="051002000511"
MESSAGEBOX(of.wb.Document.getElementByid("fpdm").value)
之后还能在页面看到输入的东西吗

刚检查了一次，确实输入进去了，可以取到这个数值

返回之后还能在页面看得到吗

试了一下是可以看到的

of = CREATEOBJECT("webForm")
of.show
READ EVENTS
RETURN

DEFINE CLASS webForm AS Form
    ShowWindow = 2
    WindowState = 2
    ADD OBJECT cmd1 as commandbutton WITH left=10,top=10,Enabled=0
    ADD OBJECT WB AS Olecontrol WITH left=0,top=40, Width=this.width,Height=this.height-40,Anchor=15,OleClass="Shell.Explorer.2",Visible=.T.
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
    PROCEDURE Init
        this.WB.Silent = 0  &&提示安全证书问题警告
        this.WB.Navigate("https://inv-veri.chinatax.)
    ENDPROC
    PROCEDURE WB.documentComplete(pdisp, url)
        thisform.cmd1.Enabled = SYS(3095,pdisp)==SYS(3095,this)
    ENDPROC   
    PROCEDURE cmd1.click
        thisform.wb.setfocus
        thisform.wb.document.getElementById("fpdm").value="ABC051002000511"
        this.setfocus
    ENDPROC
ENDDEFINE

[此贴子已经被作者于2022-2-22 15:56编辑过]

可以的，这个方法可以