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