[發問] 為何VBA查詢的IP與實際網頁上查詢的IP不同?

不好意思麻煩各位大大,
小弟已經找到大約十個可以查詢到IP的VBA程式碼(當然有許多重複的)
但查詢結果都是192.168.xx.xx

可是小弟要的是下方網站
http://dir.twseo.org/ip-check.php
所查詢出來的IP=42.72.5.xxx

為何所有VBA程式碼查詢出來的都跟網頁查詢的IP不同?例如下方程式碼

Function GetIPAddress()
Const strComputer As String = "." ' Computer name. Dot means local computer
Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
Dim strIPAddress As String
' Connect to the WMI service
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
' Get all TCP/IP-enabled network adapters
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
' Get all IP addresses associated with these adapters
For Each IPConfig In IPConfigSet
IPAddress = IPConfig.IPAddress
If Not IsNull(IPAddress) Then
strIPAddress = strIPAddress & Join(IPAddress, ", ")
End If
Next
MsgBox strIPAddress
End Function

複製代碼

各位大大可自行測試看看這兩種方式
會查詢出兩種不同的IP

要如何才能夠查詢到網頁的那種IP位置呢?

樓主熱帖

PKKO

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

2^#

發表於 2016-2-28 23:24 | 只看該作者

Function GetIPAddress()
      Const strComputer As String = "." ' Computer name. Dot means local computer
      Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
      Dim strIPAddress As String

      ' Connect to the WMI service
      Set objWMIService = GetObject("winmgmts:" _
         & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

      ' Get all TCP/IP-enabled network adapters
      Set IPConfigSet = objWMIService.ExecQuery _
         ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

      ' Get all IP addresses associated with these adapters
      For Each IPConfig In IPConfigSet
         IPAddress = IPConfig.IPAddress
         If Not IsNull(IPAddress) Then
            If InStr(1, IPConfig.Description, "WAN (", vbTextCompare) Then
               MsgBox "網頁 IP = " + IPAddress(0)
            End If
            strIPAddress = strIPAddress & Join(IPAddress, "/") + vbCrLf
         End If
      Next

      MsgBox strIPAddress
End Function

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

3^#

發表於 2016-2-28 23:28 | 只看該作者

以我的為例
IPConfig.Description

WAN (PPP/SLIP) Interface  '寬頻
Realtek RTL8168/8111 PCI-E Gigabit Ethernet NIC - Packet Scheduler Miniport  ' 主機板上的內建網卡
VMware Virtual Ethernet Adapter for VMnet1  '虛擬機上的虛擬卡
VMware Virtual Ethernet Adapter for VMnet8  '虛擬機上的虛擬卡

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2016-2-29 01:36 | 只看該作者

回復 3# jackyq

感謝大大的回覆
不過您的程式碼執行之後
MsgBox "網頁 IP = " + IPAddress(0)=>這段程式碼都無法執行到

跑完的結果,跟我PO的程式碼一樣耶
我現在上網查IP=42.XX開頭
但是VBA查出來的卻是192.168開頭

有辦法查到42.XX開頭的IP嗎?
還是說,是因為我的電腦接的是WIFI(4g信號)所導致的原因?

PKKO

TOP

jackyq