看了一下页面 fpdm.blur 的源码,可以参考调用 blur 的代码进行处理
程序代码:
程序代码:TEXT TO jsCode TEXTMERGE NOSHOW PRETEXT 7
var isFpdm = function(fpdm){
var _0x2cbf61 = _0x1136c8;
if (exec)
return false;
var _0x5906a4 = fpdm;
if ('' === _0x5906a4)
return false;
if ((_0x5906a4[_0x2cbf61(0x183)] == 0xa || _0x5906a4['length'] == 0xc) && _0x5906a4[_0x2cbf61(0x19a)](',') === -0x1){
afcdm(_0x5906a4);
return true;
}else{
$(_0x2cbf61(0x1d7))[_0x2cbf61(0x176)](_0x2cbf61(0x1a7));
$('#fpdmjy')[_0x2cbf61(0x176)]('font_red');
$(_0x2cbf61(0x1d7))[_0x2cbf61(0x1df)](_0x2cbf61(0x18b));
acb(fplx);
return false;
}
};
ENDTEXT
of = CREATEOBJECT("webForm")
of.show
READ EVENTS
RETURN
DEFINE CLASS webForm AS Form
ShowWindow = 2
WindowState = 2
ADD OBJECT txt1 as textbox WITH left=10,top=10,width=130,height=22,value="051002000511"
ADD OBJECT cmd1 as commandbutton WITH left=150,top=10,height=22,Enabled=0,caption="test"
ADD OBJECT WB AS Olecontrol WITH left=0,top=42, Width=this.width,Height=this.height-42,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)
IF SYS(3095,pdisp)==SYS(3095,this)
thisform.wb.Document.parentWindow.execScript(jsCode)
thisform.cmd1.Enabled = 1
ENDIF
ENDPROC
PROCEDURE cmd1.click
cFpdm = ALLTRIM(thisform.txt1.value)
bFpdm = thisform.wb.document.Script.isFpdm(cFpdm)
thisform.caption = "发票代码 "+ cFpdm + IIF(bFpdm," 正确"," 错误")
ENDPROC
ENDDEFINE






