我的第一个程序【IP查看器】

大湿兄 · 发表于 2018-2-20 19:33:00

第一个软件写的太乱了！！！
大家给我说下我的问题
谢谢了
【软件可以查看本地IP也可以输入IPcha询】

大湿兄 · 发表于 2018-2-20 20:04:09

很多人都说打不开我直接把源码复制过来了，我想问下为什么打不开啊
.版本 2

.程序集窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 cha询结果, 文本型

cha询结果＝功能_网页访问 (编辑框1.内容)

提示框 (“” ＋ cha询结果)

.子程序功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 IP地址, 文本型
.局部变量局_网址, 文本型
.局部变量局_方式, 整数型
.局部变量局_提交数据, 文本型
.局部变量局_结果, 字节集
.局部变量局_返回, 文本型

局_网址＝ “http://2017.ip138.com/ic.asp”
局_方式＝ 1
局_提交数据＝ “您的IP是” ＋ IP地址
局_结果＝网页_访问 (局_网址, 局_方式, 局_提交数据)
局_返回＝到文本 (局_结果)

返回 (文本_取出中间文本 (到文本 (局_返回), “<center>”, “</center>”, , ))
' 求大神救命啊不想活了！！！！(局_返回)

.子程序 _编辑框1_按下某键, 逻辑型
.参数键代码, 整数型
.参数功能键状态, 整数型

.如果真 (键代码＝ #回车键)
_按钮1_被单击 ()
.如果真结束

.子程序 _按钮2_被单击
.局部变量返回cha询, 文本型

返回cha询＝功能_网页访问cha询 (编辑框1.内容)
提示框 (“您的ID；” ＋返回cha询)

.子程序功能_网页访问cha询, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 IP地址, 文本型
.局部变量局_网址cha询, 文本型
.局部变量局_方式cha询, 整数型
.局部变量局_提交数据cha询, 文本型
.局部变量局_结果, 字节集
.局部变量局_返回, 文本型
.局部变量归属地, 文本型
.局部变量返回cha询, 文本型

局_网址cha询＝ “https://tool.lu/netcard/ajax.html”

局_方式cha询＝ 1
局_提交数据cha询＝ “ip=” ＋ IP地址
局_结果＝网页_访问_对象 (局_网址cha询, 局_方式cha询, 局_提交数据cha询)
局_返回＝到文本 (局_结果)

局_返回＝编码_usc2到ansi (局_返回)
归属地＝文本_取出中间文本 (局_返回, “location” ＋ #引号＋ “:” ＋ #引号, #引号)
返回 (归属地)

sweether · 发表于 2018-12-29 11:08:51

精易因你更精彩！

heigua · 发表于 2018-2-23 20:45:01

哎看来我的第一个程序从严格上说是失败的

15887059803 · 发表于 2018-2-22 09:25:37

感谢分享支开源

学易新 · 发表于 2018-2-21 11:19:51

楼主加油！！！！！！！！！！！

hackerdevelop · 发表于 2018-2-21 05:51:56

思路是不是调用网页cha询？

q506202131 · 发表于 2018-2-21 05:44:06

支持楼主。感谢分享！

gaoqing · 发表于 2018-2-20 20:56:41

谢谢分享啊

精“易”求精 · 发表于 2018-2-20 20:39:26

楼主你的文件好像是上传到精易后发生了一些诡异的变化...要改改名字才能打开。我估计是Unicode的关系？？？毕竟易语言不支持Unicode

大湿兄 · 发表于 2018-2-20 20:03:29

很多人都说打不开我只有把源码直接复制过来了！

		自动登录	找回密码
密码			注册

[易源码分享] 我的第一个程序【IP查看器】

点评

评分