android吉凶信息查询代码,手机号码吉凶查询工具 公开源码,可任意修改

吕向荣
2023-12-01

[C++] 纯文本查看 复制代码import win.ui;

import win.clip;

import inet.http;

/*DSG{{*/

var winform = ..win.form( bottom=314;parent=...;right=461;text="AAuto Form" )

winform.add(

static9={ bottom=221;text="具体表现:";left=35;right=104;top=201;z=14;transparent=1;cls="static" };

static6={ bottom=171;text="地区区号:";left=35;right=104;top=151;z=10;transparent=1;cls="static" };

static11={ notify=1;color=16711680;text="www.8d8f.com 营销软件";left=315;top=293;transparent=1;bottom=307;right=455;z=16;cls="static" };

edit={ bottom=48;right=290;left=102;top=20;z=1;edge=1;cls="edit" };

static8={ bottom=206;right=362;left=92;top=173;z=13;transparent=1;cls="static" };

static={ bottom=47;text="你的手机号码 ";left=18;right=98;top=26;z=2;transparent=1;cls="static" };

static2={ bottom=108;text="您的号码是:";left=35;right=110;top=88;z=4;transparent=1;cls="static" };

static10={ bottom=273;right=392;left=91;top=200;z=15;transparent=1;cls="static" };

static5={ bottom=152;text="号码所在地区邮编:";left=35;right=145;top=132;z=8;transparent=1;cls="static" };

static7={ bottom=191;text="号码吉凶:";left=35;right=104;top=171;z=12;transparent=1;cls="static" };

static3={ bottom=131;text="所在地区为:";left=35;right=135;top=111;z=6;transparent=1;cls="static" };

static_postcode={ bottom=153;right=256;left=141;top=133;z=9;transparent=1;cls="static" };

button={ bottom=49;right=376;left=315;top=18;z=3;text="查询";cls="button" };

static4={ bottom=138;color=0;right=374;left=130;top=113;font=LOGFONT( name='Verdana' );z=7;transparent=1;cls="static" };

static_cellphonenumber={ bottom=107;color=16711680;right=208;left=101;top=87;font=LOGFONT( name='Verdana';h=-16 );z=5;transparent=1;cls="static" };

static_area_code={ bottom=172;right=206;left=88;top=153;z=11;transparent=1;cls="static" }

)

/*}}*/

winform.button.oncommand = function(id,event){

shuru=winform.edit.text;

fuzhi=tostring(win.clip.read());

//如果输入和复制都为空的状态

if(shuru=null && fuzhi=null){

win.msgbox("请输入或者复制正确的手机号码")

return;}elseif(shuru=null && fuzhi=true){

shuru=fuzhi}

var input_is_true=string.match(shuru,"^(\d{11})$");

var copy_is_true =string.match(fuzhi,"^(\d{11})$");

//梳理输入号码和复制号码的关系.

if(input_is_true=true && copy_is_true=false){

cellphonenumber=winform.edit.text;

}elseif(input_is_true=false && copy_is_true=true){

cellphonenumber=win.clip.read();

}elseif(input_is_true=true && copy_is_true=true){

cellphonenumber=winform.edit.text;

}else {

win.msgbox("请输入或复制正确的手机号码再查询")

return;

}

//18655443321 //临时测试用的手机号码

winform.edit.text=cellphonenumber;

winform.static_cellphonenumber.text=cellphonenumber;

http=inet.http();

var pre_url="http://jx.ip138.com/"

url=pre_url + tostring(cellphonenumber) +"/";

//winform.edit2.appendText("打开网址..."+url +'\r\n')

str=http.get(url); //返回源码

//winform.edit2.appendText("获取源码中..."+'\r\n')

winform.edit2.text=str; //全部源码在str中

area=string.match(str,'归属地[^\.]+center"\>([^

//winform.edit2.appendText("匹配归属地..."+'\r\n')

area=string.replace(area,"nbsp;"," ") //去掉空格,获得最终归属地

winform.static4.text=area; //写入归属地

postCode=string.match(str,"\>(\d{6})\

winform.static_postcode.text=postCode;//写入邮编

area_code=string.match(str,'电话区号[^\.]+center"\>([^

winform.static_area_code.text=area_code; //写入区号

//号码吉凶

winform.show();

jixiong=string.match(str,"五行数理为:([^\s]+)\

jixiong=string.replace(jixiong,"\","")

//winform.edit2.appendText(jixiong+'\r\n');

winform.static8.text=jixiong;

//具体表现

biaoxian=string.match(str,"具体表现:[\S\s]*?\"">([\S\s]*?)\

//winform.edit2.appendText(biaoxian+'\r\n')

winform.static10.text=biaoxian;

//_________下面的是广告_____________//

}

winform.static11.oncommand = function(id,event){

import process;

process.execute("http://www.8d8f.com");

}

winform.show()

win.loopMessage();

 类似资料: