- Yasaklandı
- #1
Bize Gerekli Olan 1 Timer Ve 1 Label Olucaktır
PublicClassForm Yani En Üste :
Formun Boş Bir Kısmına Yapıştıralım :
NOT : EndClassın Hemen Üstüne Yapıştırabilirsiniz...
ŞİMDİDE TİMER'in İntervalini 1 Enabledini True Yapalım Ve Kodları Girelim :
PublicClassForm Yani En Üste :
Kod:
Imports System.Net
Imports System.Text.RegularExpressionsFormun Boş Bir Kısmına Yapıştıralım :
NOT : EndClassın Hemen Üstüne Yapıştırabilirsiniz...
Kod:
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ŞİMDİDE TİMER'in İntervalini 1 Enabledini True Yapalım Ve Kodları Girelim :
Kod:
Label1.Text = (GetIP())
