吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 10438|回复: 8
收起左侧

[其他转载] 手机号码吉凶查询工具 公开源码,可任意修改

  [复制链接]
lmj243 发表于 2013-9-7 23:25
软件用快手写的. 由于没有aauto的选项, 我放到C++的代码里.
希望大家喜欢
[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,"\<\/b\>","")
//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();

QQ图片20130907232404.jpg


发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

头像被屏蔽
三月的风 发表于 2013-9-7 23:28
提示: 作者被禁止或删除 内容自动屏蔽
qmqm123 发表于 2013-9-7 23:34
这个看不懂不过 鼓励你们这些人 积极发贴 支持你一下
gujiatai 发表于 2013-9-7 23:47
菜鸟小宝 发表于 2013-9-8 00:10
拜膜用C++写东西的,楼主神人
Victory.ms 发表于 2013-9-8 00:30
核心就是正则表达式....暂时没什么用
小小白 发表于 2013-9-8 01:15
虽然不会,但是楼主好人
education 发表于 2013-9-8 01:19
怎么使用才是关键,我不懂怎么使用
alexjeniks 发表于 2013-9-8 01:50
这个吉凶数据库哪来的?
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-9-21 23:27

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表