|
楼主 |
发表于 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” + #引号 + “:” + #引号, #引号)
返回 (归属地)
|
|