چگونه میشه آی پی یه اصلی رو فهمید ؟

[sinashahab]

سلام
مثلا اگه از lan استفاده کنی winsock1.localip ادرس اینترنت رو نشون نمیده :متفکر:.
ایا راهی برای پیدا کردن ای پی یه اصلی هست ؟
:تشویق::تشویق:

[mpmsoft]

اين كد كليه آي پي هاي سيستمتو بهت بر مي گردونه

[mpmsoft]

اينم يك راه ديگه يك كنترل Inet به فرمت اضافه كن



Option Explicit
' Add Microsoft Internet Transfer Control

Dim pubIPA As String, pos1 As Long, pos2 As Long, str As String

Private Sub Form_Load()
str = Inet1.OpenURL("http://vbnet.mvps.org/resources/tools/getpublicip.shtml", icString)
pos1 = InStr(str, "var ip =")
pos1 = InStr(pos1 + 1, str, "'", vbTextCompare) + 1
pos2 = InStr(pos1 + 1, str, "'", vbTextCompare)
pubIPA = Mid$(str, pos1, pos2 - pos1)
MsgBox pubIPA, vbInformation
Unload Me
End Sub