VB.NET (1)

Ada beberaapa Untuk mendapatkan/mendeteksi ip publik yang terkonek dengan komputer bisa dengan command line, atau dengan bantuan beberapa website seperti whatismyip.com, http://icanhazip.com/, dan lain-lain. 

Disini kita cuma memerlukan sebuah string yang memreply ip publik saja yang kita gunakan. http://icanhazip.com/ adalah website yang mendeteksi ip publik dengan meresponse sebuah clear string, tanpa html tag/code didalamnya. Jadi kita tidak perlu memparsing string tersebut lagi. Cukup download string apa saja yang diresponse website tersebut : 

Berikut Kodenya : 

Imports System.Net

Private Sub GetIpAddress()
    Dim ip As New WebClient
    Dim doLoadIP As New Action(Of String)(AddressOf loadIp)
    Dim ipAddress As String = ip.DownloadString("http://icanhazip.com/")
    MsgBox(ipAddress)
End Sub

Selamat Mencoba.

Iklan

Al-Quran & Hadist

DO'A AGAR DIMUDAHKAN MELAKUKAN AMALAN KEBAIKAN

?????????? ?????? ?????????? ?????? ???????????? ???????? ?????????????? ??????? ?????????????

Ya Allah, aku memohon kepada-Mu untuk mudah melakukan kebaikan dan meninggalkan kemungkaran serta aku memohon pada-Mu supaya bisa mencintai orang miskin

(HR. Tirmidzi dan Ahmad, shahih)

@Techno Innovative

By PDDAD payday loans online

Shoutbox

Latest Message: 3 weeks, 5 days ago
  • [mulberry ba : Techno Innovative - Items filtered by date: April 2012 mulberry bags
  • [celine bags : Techno Innovative - Items filtered by date: June 2012 celine bags
  • [seo tools] : Techno Innovative - Pemograman seo tools
  • [PlotNorkele : iPhone 5 for cheap Next, we have the paid survey sites where you fill in surveys and get paid All these sites are like mushrooms sprouting like crazy But only one thing is sure, whether users get paid or not whats sure is that, the ones getting the bigger share of the money are the webmasters operating these PT sites My advice to those who are interested in joining these sites is to be very careful because most of them, but not all are just scam sites trying to let you do all those thousands of
  • [burberry ba : Techno Innovative - Cara mengaktifkan telnet di Ubuntu burberry bags
  • [tOTXETxX] : tOTXETxX «link» [url=«link» tOTXETxX
  • [fFstYhce] : fFstYhce «link» [url=«link» fFstYhce
  • [qdPFAGum] : qdPFAGum qdPFAGum «link» [url=«link»
  • [VmTBImUm] : VmTBImUm [url=«link» VmTBImUm «link»
  • [sac louis v : Techno Innovative - Items filtered by date: Friday, 23 November 2012 sac louis vuitton «link»

Guests are shown between [].

Only registered users are allowed to post