17-10-12, 09:56 PM
كاتب الموضوع : سعود
كود :
Dim req As HttpWebRequest = WebRequest.Create("http://automation.whatismyip.com/n09230945.asp")
Dim res As HttpWebResponse = req.GetResponse()
Dim Stream As IO.Stream = res.GetResponseStream()
Dim sr As StreamReader = New StreamReader(Stream)
' MsgBox(sr.ReadToEnd())
Button1.Text = "Your IP Address: " & sr.ReadToEnd