|
发表于 2011-7-31 22:02:49
|
显示全部楼层
湖北省襄阳市
本帖最后由 小人物 于 2011-7-31 22:32 编辑
给你个源码拿去研究研究{:3_244:}
[e]版本 2
.支持库 sock
.支持库 internet
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 本机IP, 文本型, , "2"
.局部变量 读取外网IP, 文本型
.局部变量 外网IP, 文本型
.局部变量 a, 整数型
.局部变量 b, 整数型
' 如果真 (是否与互联网连接 () = 真)
' ----以下是-----------取--本地IP ------------------
本机IP = 取本机IP () ' 【本地连接】(TCP/IP)有指派时。
.如果 (是否已在线 () = 真)
透明标签2.标题 = “本机当前IP是:” + 本机IP [1]
.否则
透明标签1.标题 = “您现在是内网用户:”
.如果结束
.如果 (取数组下标 (本机IP, ) > 1) ' 注:此项判断 当本机直接使用【宽带连接】拨号
' 而您计算机中的【本地连接】(TCP/IP)未指派时。
.否则
透明标签2.标题 = “本地IP: ” + 本机IP [取数组下标 (本机IP, )] + “”
.如果结束
' ----以上是-----------取--本地IP -------------------
' --------------------------来自 http://www.3600gz.cn----------------------
' ----以下是-----------取--外网IP -------------------
.如果真 (是否与互联网连接 () = 真)
读取外网IP = 到文本 (HTTP读文件 (“http://www.ip138.com/ip2city.asp”))
a = 寻找文本 (读取外网IP, “[”, , 假) + 1
b = 寻找文本 (读取外网IP, “]”, , 假)
外网IP = 取文本中间 (读取外网IP, a, b - a)
输出调试文本 (外网IP)
透明标签3.标题 = “外网IP: ” + 外网IP
.如果真结束
' ----以上是-----------取--外网IP --------------------
' 信息框 (“网络不通,无法继续!”, 64, “提示”)
' 返回 () ---或--- 结束 ()
[/e] |
|