PDA

View Full Version : پیدا کردن ip کارت اینترنتی که با اون login شدم.



abbas.net
دوشنبه 14 خرداد 1386, 10:17 صبح
با سلام خدمت دوستان
چند خط کد میخواستم که با اون بشه ip کارت اینترنتی رو که با اون وارد اینترنت شدم رو شناسایی کنه.با تشکر.:تشویق:

titbasoft
دوشنبه 14 خرداد 1386, 10:31 صبح
منظورتون چنین چیزیه: http://www.ip2location.com/

farazjoonam
دوشنبه 14 خرداد 1386, 18:54 عصر
ببین IP خودتو به دست بیار . ( اگه بلد نیستی بگو بهت بگم ) بعد 3 تا عدد آخرش رو بردار جاش 1 بذار . برای اینکه خودش Auto این کارو بکنه از کد زیر استفاده کن


If LSet(myip, 3) <> "" Then
Dim ipp As New Object
ipp = Strings.Right(myip, Len(t) - 3)

End If



با این کد میتونی سه رقم آخر رو برداری

h_sadeghynejad
سه شنبه 15 خرداد 1386, 15:03 عصر
IP خودتو به دست بیار . ( اگه بلد نیستی بگو بهت بگم ) بعد 3 تا عدد آخرش رو بردار جاش 1 بذار
منظورتون اینکه که ISP ها هم از این روش استفاده میکنن

farazjoonam
سه شنبه 15 خرداد 1386, 19:01 عصر
منظورتون اینکه که ISP ها هم از این روش استفاده میکنن

والا اونارو خبر ندارم. اما میتونی این کاری که گفتم و بکنی ، مگه می خوای چه کار کنی؟؟