简单几句话调用淘口令解析

By 笑口常 at 24 天前 • 0人收藏 • 102人看过

感谢: jacen 分享

import fonts.fontAwesome;
import win.ui;
/*DSG{{*/
var winform = win.form(text="淘口令解析工具";right=752;bottom=455)
winform.add(
button={cls="button";text="解析";left=343;top=164;right=483;bottom=203;dl=1;dr=1;dt=1;font=LOGFONT(h=-15;name='FontAwesome');z=3};
edit={cls="edit";left=29;top=38;right=499;bottom=150;autohscroll=false;dl=1;dr=1;dt=1;edge=1;multiline=1;z=1};
editResult={cls="richedit";left=32;top=224;right=500;bottom=427;autohscroll=false;db=1;dl=1;dr=1;dt=1;edge=1;link=1;multiline=1;z=4};
plus={cls="plus";left=511;top=41;right=738;bottom=427;db=1;dr=1;dt=1;repeat="scale";z=5};
static={cls="static";text="请输入淘口令";left=30;top=14;right=371;bottom=31;dl=1;dt=1;transparent=1;z=2}
)
/*}}*/

import inet.http;
import win.dlg.message;
win.dlg.message.install();
winform.button.oncommand = function(id,event){
    winform.button.disabledText = {'\uF254';'\uF251';'\uF252';'\uF253';'\uF250'} 
    
    thread.invoke( 
        function(winform){
            import process;
            import web.rest.jsonLiteClient;
            var http = web.rest.jsonLiteClient();
            http.beforeStringifyRequestParameters = function(params,codepage){
                if(params && params.tkl){ params.tkl = string.match(params.tkl,"\w{3,}")  }
                return params; 
            }
            var taofake = http.api("http://www.taofake.com/index/tools/gettkljm.html")	
            var result = taofake.get( tkl = winform.edit.text ) 
            
            if(result[["msg"]]!="ok"){
                winform.button.disabledText = null;
                return winform.msgErr("解析错误");
            }
 
            winform.plus.background = result.data.picUrl;
            winform.editResult.text = "淘口令有效时间:" + result.data.validDate + '\r\n';
            winform.editResult.print( result.data.content );
            winform.editResult.print( result.data.url );
            process.openUrl( result.data.url );
            winform.button.disabledText = null; 
        },winform
    )
}

winform.show();
win.loopMessage();


登录后方可回帖

登 录
信息栏
本站永久域名:HtmLayout.Cn
纯私人站,当笔记本用的,学到哪写到哪,目前在学aardio+halcon机器视觉.
Htmlayout界面在线学习文档
Sciter中文在线文档Sciter在线学习文档
本 站 主 站:Stm32cube中文网
Aardio 官方站:Aardio官方
Aardio最新功能:Aardio官方更新日志
aardio在线手册Aardio在线手册
C大Aardio论坛:Aar爱好者论坛
简码教程网:简码编程
AARDIO语言QQ群:70517368
赞助商:才仁机械
下载站:非凡软件站
Loading...