VB取電腦IP
http://tw.knowledge.yahoo.com/question/question?qid=1510072610468
Dim x : x = "http://www.whatismyip.com/automation/n09230945.asp"
WebBrowser1.Navigate2 (x)
Do: DoEvents: Loop Until WebBrowser1.Busy = False
MsgBox WebBrowser1.Document.Body.InnerText