取外网ip

傻子到了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	文本型
b	文本型
c	文本型

c ＝ 到文本 (HTTP读文件 (“http://1212.ip138.com/ic.asp”))
取文本 (c, “[”, “]”, b)
编辑框1.内容 ＝ b

子程序名	返回值类型	公开	备 注
取文本
参数名	类 型	参考	可空	数组	备 注
被找文本	文本型				被找文本
文本左边分割符	文本型
文本右边分割符	文本型
文本	文本型

变量名	类 型	静态	数组	备 注
文本1	文本型		2
文本2	文本型		2

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
文本1 ＝ 分割文本 (被找文本, 文本左边分割符, )
文本2 ＝ 分割文本 (文本1 [2], 文本右边分割符, )
文本 ＝ 文本2 [1]

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型<br /> .局部变量 c, 文本型<br /> <br /> c ＝ 到文本 (HTTP读文件 (“http://1212.ip138.com/ic.asp”))<br /> 取文本 (c, “[”, “]”, b)<br /> 编辑框1.内容 ＝ b<br /> <br /> .子程序 取文本, , 公开<br /> .参数 被找文本, 文本型, , 被找文本<br /> .参数 文本左边分割符, 文本型<br /> .参数 文本右边分割符, 文本型<br /> .参数 文本, 文本型<br /> .局部变量 文本1, 文本型, , "2"<br /> .局部变量 文本2, 文本型, , "2"<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> 文本1 ＝ 分割文本 (被找文本, 文本左边分割符, )<br /> 文本2 ＝ 分割文本 (文本1 [2], 文本右边分割符, )<br /> 文本 ＝ 文本2 [1]

taizhong

新手,值得鼓励

Lucase

用cmd 命令中的 ipconfig 获取好点吧

zhang11966

学习66666666

冲动IS魔鬼

前排支持

diannaoleyuan

支持下,谢谢

justintan

支持下,谢谢

傻子到了

小明无敌 发表于 2016-12-12 23:00
你这样不稳定哦。万一返回空 岂不是数组错误了

分割文本简单啊

heckvo

前排支持

小明无敌

你这样不稳定哦。万一返回空 岂不是数组错误了           

帝释天2017

支持下吧。。。