[font='Trebuchet MS', Helvetica, Arial, sans-serif]Bu dersimizde VB.net ile ip adresini çekelim.[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Bu dersimizde VB.net ile ip adresini çekelim.[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Şu fonksiyonu tanımlayalım:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Kod:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Imports System.Text.RegularExpressions[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]kütüphaneye ekliyoruz[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Kod:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Buton click olayına şu kodları girelim:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Kod:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Label1.Text = (GetIP())[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Bu dersimizde VB.net ile ip adresini çekelim.[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Şu fonksiyonu tanımlayalım:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Kod:[/FONT]
Kod:
[color=#ff3333]Imports System.Net[/color][font='Trebuchet MS', Helvetica, Arial, sans-serif]Imports System.Text.RegularExpressions[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]kütüphaneye ekliyoruz[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Kod:[/FONT]
Kod:
[color=#ff3333]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][font='Trebuchet MS', Helvetica, Arial, sans-serif]Buton click olayına şu kodları girelim:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Kod:[/FONT]
Kod:
[color=#ff3333]Label1.Text = (GetIP())[/color][font='Trebuchet MS', Helvetica, Arial, sans-serif]Label1.Text = (GetIP())[/FONT]