Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch 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
