怎么得到外网ip啊？

Solidus

原帖由 yuanchengjun 于 2007-9-25 07:42 发表
有服务器的，没有服务器，bt是连不上的；当连接到服务器，服务器就知道你的Ip端口。
不同的用户之间，还是直连的；有兴趣，你可以看一下p2p的东西。

没有服务器的，这个我是肯定的，所谓的tracker服务器也是把自己的外网ip注册进去，tracker再返回给你其它的peer的ip地址，然后client通过这个连其它peer，所以必须先知道自己的外网ip，否则只能你链接别人，而其它人不可以链接你

iceviewer

  关注中。。。

net_robber

需求是什么啊，看了两天，没猜出来你的需求

Solidus

我的程序启动了，得向其它地方注册我可以接收到外部链接的ip地址，例如
内网ip 192.168.0.2，把这个发给人家没用，我得发adsl拨号后得到的地址。

一个是我怎么得到它，再一个是我怎么检测adsl断开了，或者adsl又连上了（外网IP变了）

Cyg07

以前写过一个批处理,不知道有没有用,呵呵。

1. @echo off
   
2. <"%~f0" more +27 >getip.vbs
   
3. 
   
4. for /f "delims=： tokens=2" %%i in ('cscript //nologo getIP.vbs') do set "ip=%%i"
   
5. 
   
6. echo NameSpace="http://schemas.microsoft.com/cdo/configuration/" >send.vbs
   
7. echo Set Email=CreateObject("CDO.Message") >>send.vbs
   
8. echo Email.From="发送邮箱" >>send.vbs
   
9. echo Email.To="接收邮箱" >>send.vbs
   
10. echo Email.Subject="TEST" >>send.vbs
    
11. echo Email.Textbody="%ip%" >>send.vbs
    
12. echo With Email.Configuration.Fields >>send.vbs
    
13. echo ^.Item(NameSpace^&"sendusing")=2 >>send.vbs
    
14. echo ^.Item(NameSpace^&"smtpserver")="SMTP服务器" >>send.vbs
    
15. echo ^.Item(NameSpace^&"smtpserverport")=25 >>send.vbs
    
16. echo ^.Item(NameSpace^&"smtpauthenticate")=1 >>send.vbs
    
17. echo ^.Item(NameSpace^&"sendusername")="用户名" >>send.vbs
    
18. echo ^.Item(NameSpace^&"sendpassword")="密码" >>send.vbs
    
19. echo ^.Update >>send.vbs
    
20. echo End With >>send.vbs
    
21. echo Email.Send >>send.vbs
    
22. 
    
23. cscript send.vbs
    
24. del send.vbs
    
25. del getip.vbs
    
26. goto:eof
    
27. 
    
28. set http=createobject("Microsoft.XMLHTTP")
    
29. ipp="http://www.ip138.com"
    
30. http.open "get",ipp,false
    
31. http.send
    
32. ss=bytes2BSTR(Http.responsebody)
    
33. ss=Replace(ss,vbcrlf,"")
    
34. Set re = New RegExp
    
35. re.Pattern = "(.+valign=""top"">)(.+\d+\.\d+\.\d+\.\d+)(.+)"
    
36. re.Global = True
    
37. re.IgnoreCase = True
    
38. re.MultiLine = True
    
39. rv = re.Replace(ss,"$2")
    
40. WScript.Echo rv
    
41. Function bytes2BSTR(vIn)
    
42.     strReturn = ""
    
43.     For i = 1 To LenB(vIn)
    
44.         ThisCharCode = AscB(MidB(vIn,i,1))
    
45.         If ThisCharCode < &H80 Then
    
46.             strReturn = strReturn & Chr(ThisCharCode)
    
47.         Else
    
48.             NextCharCode = AscB(MidB(vIn,i+1,1))
    
49.             strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
    
50.             i = i + 1
    
51.         End If
    
52.     Next
    
53.     bytes2BSTR = strReturn
    
54. End Function

复制代码

在win上建立个计划任务就可以定时发送IP了。

namtso

建议你两个知识：1。tcp包的结构或者tcp/ip的网络传输过程
2。nat地址转换。
有了这两个知识，你会发现，你的问题根本不是问题。

mingyanguo

如果是向外网注册的话，可以让接受注册的主机确定你的外网IP

Solidus

原帖由 namtso 于 2007-9-25 22:35 发表
建议你两个知识：1。tcp包的结构或者tcp/ip的网络传输过程
2。nat地址转换。
有了这两个知识，你会发现，你的问题根本不是问题。

不知道你说的这个知识能对我的问题有什么帮助，我建议你读读bt协议～

应用程序得填充一个http请求，里面有 IP = xxx.xxx.xxx.xxx， port = xxxx等等的字符串(其它的peer会通过tracker得到我注册的这个ip，而后才能链接到我），
,tracker服务器不会使用我连接的ip地址的（因为没用）。还有处于内网时候，我的ip和port字样如何写就无所谓了，反正别人也不会连我.
这个协议是固定的

[ 本帖最后由 Solidus 于 2007-9-26 00:29 编辑 ]

Solidus

我在重新简单说下吧，就比如我这软件有个socket 在listen 8000端口，其他某个地方有个我们共享的数据库，我得定时的往那个数据库写自己正在监听的这个端口和人家能连接进来的ip地址（那个数据库不会把我连入的那个IP记录进去）。然后会有不确定的人定期的读那个数据库，得到我写入数据库的那个端口和ip地址，然后connect我那个8000端口

Solidus

汗死了，对不起大家，耽误大家时间了。

我重看了看协议，那个ip选项是给代理用的，人家tracker服务器一般也是通过connection获得ip地址的，注册一个端口号就可以了，

耽误大家时间了