用精易模块如何取得外网IP啊？

麦小鱼 · 发表于 2011-7-31 17:32:21

求助用精易模块如何取得外网IP？

我这样写

外网IP ＝拨号.取本机IP ()

提示错误:
错误(10042): 调用子程序“取本机IP”时所传递的参数太少。

hoie · 发表于 2011-7-31 17:32:22

2.rar (49.27 KB, 下载次数: 607)

大头佛 · 发表于 2011-7-31 17:34:45

偶的天啊，你的参数塞到哪去了？

小明无敌 · 发表于 2011-7-31 17:37:29

按下F1
--！

孤心人 · 发表于 2011-7-31 17:46:45

取本机IP是指内网IP，所以不能取得外网的，如果要取外网，你可直接读取网址：http://www.ip138.com/ip2city.asp

获取网页源码后把IP地址提取出来，网页源码如下，把IP地址（下面的“11.11.11.11”就是你要取的外网IP地址）取文本中间取出来就可以了

<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title> 您的IP地址 </title>
</head>
<body style="margin:0px"><center>您的IP地址是：[11.11.11.11] </center></body></html>

逆风啊 · 发表于 2011-7-31 18:48:20

楼上正解，通过取网页的源码，来获得外网IP

a307 · 发表于 2011-7-31 19:52:08

子程序名：拨号
通过拨号立网络连接,成功返回连接句柄,失败返回0

返回的是连接句柄，不是IP 。

麦小鱼 · 发表于 2011-7-31 21:40:16

按了F1 提示

子程序名：取本机IP
返回IP的个数,如2:本地IP和外网IP,
返回值类型：整数型
参数<1>的名称为“IP数组”，类型为“文本型”，需要接收数组数据。注明：用于装载IP的文本数组。

我该如何写才能得到外网IP啊？ {:3_234:}

孤心人 · 发表于 2011-7-31 21:48:07

poprock 发表于 2011-7-31 21:40
按了F1 提示

子程序名：取本机IP

照我上面的说法去做不就得了？别人的回复你都不看，还在这里自问自答，你永远也不会有结果

Antony · 发表于 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]

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

[已解决] 用精易模块如何取得外网IP啊？

最佳答案

浏览过的版块

[已解决] 用精易模块 如何取得外网IP啊？

最佳答案

浏览过的版块

[已解决] 用精易模块如何取得外网IP啊？