نحوه بدست آوردن Local IP ؟؟؟

[1120]

سلام دوستان و اساتید عزیز .
به یک مشکل برخوردم که کلی از کارم عقب افتادم .
مشکل اینجاست که وقتی به اینترنت وصل میشم Winsock.localIP به جای آی پی Lan , آی پی داخلی اینترنت رو بر میگردونه !
با استفاده از کد زیر تونستم تمام آیپی های تعریف شده سیستم رو بدست بیارم ، اما مشکل اینجاست که برنامه چطور باید بفهمه کدوم آی پی مربوط به شبکه Lan هست ؟

کد:

Option Explicit

Private Const MAX_IP = 10

Private Type IPINFO
    dwAddr As Long   ' IP address
    dwIndex As Long '  interface index
    dwMask As Long ' subnet mask
    dwBCastAddr As Long ' broadcast address
    dwReasmSize  As Long ' assembly size
    unused1 As Integer ' not used
    unused2 As Integer ' not used
End Type

Private Type MIB_IPADDRTABLE
    dEntrys As Long   'number of entries in the table
    mIPInfo(MAX_IP) As IPINFO  'array of IP address entries
End Type

Private Type IP_Array
    mBuffer As MIB_IPADDRTABLE
    BufferLen As Long
End Type

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long



Private Function ConvertAddressToString(longAddr As Long) As String
  Dim myByte(3) As Byte
  Dim Cnt As Long
    
  CopyMemory myByte(0), longAddr, 4
  For Cnt = 0 To 3
     ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt)) + "."
  Next Cnt
  ConvertAddressToString = Left$(ConvertAddressToString, Len(ConvertAddressToString) - 1)
End Function


Private Sub Form_Load()
   Dim Ret As Long, Tel As Long
  Dim bBytes() As Byte
  Dim Listing As MIB_IPADDRTABLE
  
  On Error GoTo END1
  
  GetIpAddrTable ByVal 0&, Ret, True
  
  If Ret <= 0 Then Exit Sub
  
  ReDim bBytes(0 To Ret - 1) As Byte
  
  GetIpAddrTable bBytes(0), Ret, False
  CopyMemory Listing.dEntrys, bBytes(0), 4

  For Tel = 0 To Listing.dEntrys - 1
     CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
    
    If ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr) <> "0.0.0.0" _
    And Trim$(ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr)) <> "" Then
     Form1.Text1 = Form1.Text1 & ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr) & vbCrLf
    End If
  
  Next
Exit Sub
END1:
MsgBox "ERROR"
End Sub

لطفا بنده رو راهنمایی کنید .

[behzadX]

با دستور Ipconfig از طریق CMD می تونی تمام آی پی ها فعال در سیستم خودتو ببینی
با جستجو در نام آی پی مورد نظرتو از لیست آی پی ها خارج و در برنامه خودت ازش
استفاده کن.

---

با این سویچ اجرا کن
ipconfig/all
می بینی که نام سخت افزار به همراه مک آدرس آنها نمایان میشه
معمولا کارت های شبکه نام و مک آدرس دارن ولی کانکشن های مجازی
مانند Wap Mini Port یا همان (PPPOE) این خاصیت رو ندارن
می تونی از روی تشخیص نام کارت شبکه آی پی اونو جدا کنی
به سویچ های دیگه این فرمان سری بزن حتما جوابو پیدا می کنی.

[rbaghreih]

سلام
کمپوننت winsock و یه تکست باکس به فرم برنامه را اضافه کنید بعد سورس زیر را استفاده کنید .
Text1 = Winsock1.LocalIP

[HamedFaa]

(۱۱-آذر-۱۳۹۰ ۱۲:۵۰:۰۳)rbaghreih نوشته شده توسط:  سلام
کمپوننت winsock و یه تکست باکس به فرم برنامه را اضافه کنید بعد سورس زیر را استفاده کنید .
Text1 = Winsock1.LocalIP

همین الان گفت localip آی پی wan رو برمیگردونه..... آی پی lan رو میخواد