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!
Formumuza bir adet "Label" Ekleyelim ve kod bölümüne geçelim ,
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim req As HttpWebRequest = WebRequest.Create("http://automation.whatismyip.com/n09230945.asp")
Dim res As HttpWebResponse = req.GetResponse()
Dim str As Stream = res.GetResponseStream()
Dim sr As StreamReader = New StreamReader(str)
Label1.Text = "IP Adresiniz: " & sr.ReadToEnd
End Sub
End Class
Programı çalıştırdığımız zaman ip adresimizi gösterir
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim req As HttpWebRequest = WebRequest.Create("http://automation.whatismyip.com/n09230945.asp")
Dim res As HttpWebResponse = req.GetResponse()
Dim str As Stream = res.GetResponseStream()
Dim sr As StreamReader = New StreamReader(str)
Label1.Text = "IP Adresiniz: " & sr.ReadToEnd
End Sub
End Class
Programı çalıştırdığımız zaman ip adresimizi gösterir
