| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3523 人关注过本帖, 2 人收藏
标题:模拟网页输入框的切换焦点
只看楼主 加入收藏
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:0 
TEXT TO jsCode TEXTMERGE NOSHOW PRETEXT 15
    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){
            return (typeof(afcdm(_0x5906a4))=="undefined");
        }
        $(_0x2cbf61(0x1d7))[_0x2cbf61(0x176)](_0x2cbf61(0x1a7));
        $('#fpdmjy')[_0x2cbf61(0x176)]('font_red');
        $(_0x2cbf61(0x1d7))[_0x2cbf61(0x1df)](_0x2cbf61(0x18b));
        acb(fplx);
        return false;
    };
ENDTEXT
这一段代码能不能简化一下,不要判断语句,只要最后的执行语句afcdm(_0x5906a4),因为输入的代码、号码一定是正确的
2022-02-23 20:39
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:0 
我改成这样了,
TEXT TO jsCode TEXTMERGE NOSHOW PRETEXT 15
    var isFpdm = function(fpdm){
        var _0x5906a4 = fpdm;
        afcdm(_0x5906a4);
        return true;
    }
ENDTEXT
运行成功
2022-02-23 20:42
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:0 
挺好玩的,我又改了一下
TEXT TO jsCode TEXTMERGE NOSHOW PRETEXT 15
    var isFpdm = function(fpdm){
        afcdm(fpdm);
        return true
    }
ENDTEXT
也可以
2022-02-23 20:45
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用sych在2022-2-23 20:45:46的发言:

挺好玩的,我又改了一下
TEXT TO jsCode TEXTMERGE NOSHOW PRETEXT 15
    var isFpdm = function(fpdm){
        afcdm(fpdm);
        return true
    }
ENDTEXT
也可以

返回都是true,不用检测了。
试试:
051002000511 对的
051002000521 错的

afcdm()返回 undefined 或 false
返回检测结果:return (typeof(afcdm(fpdm))=="undefined");

2022-02-23 20:54
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:0 
好的
发票号码太麻烦了,看不懂了,找不到最后执行的是哪个函数,麻烦帮我看看吧
2022-02-23 20:57
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用sych在2022-2-23 20:57:14的发言:

好的
发票号码太麻烦了,看不懂了,找不到最后执行的是哪个函数,麻烦帮我看看吧

至少给一个发票号来测试吧
2022-02-23 21:00
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:0 
12345678就可以,8位数字
2022-02-23 21:03
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:0 
好像可以直接用)['keyup'](function()这个函数,因为在发票号码、和发票代码输入后都会调用这个函数
2022-02-23 21:13
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:0 
我又憨胆大,改成直接调用了
        bFpdm = thisform.wb.document.Script.afcdm(of.wb.Document.getElementByid("fpdm").value)
        bFpdm = thisform.wb.document.Script.ahmch(of.wb.Document.getElementByid("fphm").value)
达到效果了
完整代码
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
        of.wb.Document.getElementByid("fpdm").value="051002000511"
        of.wb.Document.getElementByid("fphm").value="12345678"
        bFpdm = thisform.wb.document.Script.afcdm(of.wb.Document.getElementByid("fpdm").value)
        bFpdm = thisform.wb.document.Script.ahmch(of.wb.Document.getElementByid("fphm").value)
    ENDPROC
ENDDEFINE
2022-02-23 21:28
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:0 
谢谢,又学到了很多知识
2022-02-23 21:31
快速回复:模拟网页输入框的切换焦点
数据加载中...
 
   



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

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