'code by netpatch
on error resume next
url=""
set np = createobject("microsoft.xmlhttp") '/建立xmlttp例項
np.open "get", url, false
np.send
data=np.responsebody '/獲取頁面資料
set np = nothing
data = bytes2bstr(data) '/把資料進行轉換(防止亂碼)，為ip位址的定位做鋪墊
here = instrrev(data, "您的ip位址是：", -1,0) '/ip位置的大概定位
data = mid(data,here+8,15) '/以特殊字串位置為開始向後獲取15位
hers = instrrev(data, "[",-1,0) '/取得的15位資料中[位置
data=mid(data,hers+1,15)
hers = instrrev(data, "]",-1,0) '/取得的15位資料中]位置
data=mid(data,1,hers-1)
內網ip 公網ip
a類位址的第一組數字為1 126。注意，數字0和 127不作為a類位址，數字127保留給內部回送函式，而數字0則表示該位址是本地宿主機，不能傳送。b類位址的第一組數字為128 191。c類位址的第一組數字為192 223。1.a類位址 a類位址的表示範圍為 0.0.0.0 126.255.255.2...
內網ip 公網ip
a類位址的第一組數字為1 126。注意，數字0和 127不作為a類位址，數字127保留給內部回送函式，而數字0則表示該位址是本地宿主機，不能傳送。b類位址的第一組數字為128 191。c類位址的第一組數字為192 223。1.a類位址 a類位址的表示範圍為 0.0.0.0 126.255.255.2...
公網IP和內網IP
內網也就是區域網，最直觀的就是像網咖，公司內部的電腦用交換機，hub，路由連起來的。再通過光纖，貓接入internet的。內網ip就是國際上分配ip的時候，留出一部分ip，不在internet上用，用於內部區域網等，雖然功能一樣，但不能在internat上使用。屬於非註冊位址，專門為組織機構內部使用...