HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Şu fonksiyonu tanımlayalım:
kütüphaneye ekliyoruz
Buton click olayına şu kodları girelim:
Kod:
[COLOR=#000000]
Imports System.Net
Imports System.Text.RegularExpressions[/COLOR]kütüphaneye ekliyoruz
Kod:
[COLOR=#000000]
Private Function GetIP() As String
Dim wc As New WebClient()
Dim strIP As String = wc.DownloadString("http://checkip.dyndns.org")
strIP = (New Regex("\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b")).Match(strIP).Value
wc.Dispose()
Return strIP
End Function[/COLOR]Buton click olayına şu kodları girelim:
Kod:
[COLOR=#000000][FONT=Monaco]Label1.Text = (GetIP())[/FONT][/COLOR]
