狂送分！！！ADSL MODEM内置PPoe自动拨号连线上网，内部局域网用交换机相连。

Question

ADSL MODEM内置PPoe自动拨号连线上网，内部局域网电脑用交换机联接adsl modem共享上网。 问题：
如何在内部局域网获取 ADSL MODEM对外获得的动态IP地址？ADSL MODEM的IP 设置为 192.168.1.1 
内部 局域网电脑IP为
192.168.1.3
192.168.1.4
192.168.1.5
……如何获得 ADSL MODEM 电信动态分配给的 adsl modem 的IP ?如202.103.224.58俺搜索了整天，竟然没有一个解决方案。！！！！

Answer 1

你可以看看这篇回答.是调用API的.
http://www.china-askpro.com/msg47/qa37.shtml
另外还有一个是读注册表的方法
在局域网里取得你连接 Internet 时的IP
 
'==  取上网时IP的类，原理：通过网关来取得服务器上存放上网IP的注册表键值 =='== 可以在VB里添加一个类模块，也可以直接放在其他窗口的代码里，使用时调用 GetIP 即可！ ==
Option ExplicitPrivate Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
'访问远程注册表
Private Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" (ByVal lpMachineName As String, ByVal hKey As Long, phkResult As Long) As LongPrivate Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Private Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
Private Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As LongConst HKEY_LOCAL_MACHINE = &H80000002
Const ERROR_SUCCESS = 0&
Const REG_SZ = 1
Const ERROR_NONE = 0
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7
Const REG_STRING = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces"
Const REG_STRING1 = "SYSTEM\CurrentControlSet\Services"
' 注册表关键字安全选项...
Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
                       KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
                       KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL'取得上网IP
Function GetIP() As String
   Dim tstr1 As String
   EnumKey HKEY_LOCAL_MACHINE, REG_STRING, 1, tstr1
   tstr1 = QueryValue(HKEY_LOCAL_MACHINE, REG_STRING & _
                   "\" & tstr1, "DefaultGateway")
   GetIP = GetRegValue(tstr1)
End FunctionPrivate Function GetRegValue(ByVal ServerName As String) As String
   Dim tstr1 As String
   Dim lngReg As Long
   
   RegConnectRegistry ServerName, HKEY_LOCAL_MACHINE, lngReg
   
   EnumKey lngReg, REG_STRING, 0, tstr1
   
   GetRegValue = QueryValue(lngReg, REG_STRING & "\" & tstr1, "DhcpIPAddress")
End FunctionPrivate Function EnumKey(hMainKey As Long, sSubKey As String, lIndex As Long, lpStr As String) As Boolean
'EnumKey函数打开有hMainKey主键和sSubKey子键指定的注册键，lIndex为要查询的子键值
'的索引,lpStr为放置子键值的字符串缓冲，如果要查询一个键值的所有子键，只要将lIndex
'首先设置为0，然后将lIndex递增1再调用EnumKey函数，直到函数返回0为止
   Dim hKey As Long    '打开键的句柄
   Dim i As Long
   
   If RegOpenKey(hMainKey, sSubKey, hKey) = ERROR_SUCCESS Then
      lpStr = Space(255) + Chr(0)
      If RegEnumKey(hKey, lIndex, lpStr, Len(lpStr)) = ERROR_SUCCESS Then
         EnumKey = True
      Else
         EnumKey = False
      End If
   Else
      EnumKey = False
   End If
   RegCloseKey hKey
End FunctionPrivate Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
   Dim lRetVal As Long
   Dim hKey As Long         '打开键的句柄
   Dim vValue As Variant
   
   lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
   lRetVal = QueryValueEx(hKey, sValueName, vValue)
   QueryValue = vValue
   RegCloseKey (hKey)
End FunctionPrivate Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long
   Dim cch As Long
   Dim lrc As Long
   Dim lType As Long
   Dim lValue As Long
   Dim sValue As String
   
   On Error GoTo QueryValueExError
   
   lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
   If lrc <> ERROR_NONE Then Error 5
   
   Select Case lType
      '查询字符串值
      Case REG_SZ:
         sValue = String(cch, 0)
         lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch)
         If lrc = ERROR_NONE Then
            vValue = Left$(sValue, cch)
         Else
            vValue = Empty
         End If
      
      '查询整数值
      Case REG_DWORD:
         lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, cch)
         If lrc = ERROR_NONE Then vValue = lValue
      Case REG_MULTI_SZ:
         sValue = String(cch, 0)
         lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch)
         If lrc = ERROR_NONE Then
            vValue = Left$(sValue, cch)
         Else
            vValue = Empty
         End If
      Case Else
        lrc = -1
   End Select
   
QueryValueExExit:
   
   QueryValueEx = lrc
   Exit Function
   
QueryValueExError:
   
   Resume QueryValueExExitEnd Function

Answer 2

最笨的办法
用qq(非隐身状态下)看,叫你的好友告诉你.或者论坛里,有的论坛里把你的电脑的信息都读了一遍的,如os,浏览器,ip等等的

Answer 3

回复人： 3661512(.Net) ( ) 信誉：101 
朋友 ，你的getip  得到的为空。

Answer 4

是的主要问题是 我是用modem内置的ppoe拨号上网,modem充当了服务器和路游.