Gerekli Nesnelerimiz,
1 Adet Command Button
1 Adet Microsoft Internet Control (name : w1)
Gerekli nesneleri ekledikten sonra
Formun kod bölümünü açın herşeyi silin bomboş bırakın
Aşağıdaki kodları formunuzun kod bölümüne yapıştırıp F5'e basın eklediğiniz butona basın ekrana gelen mesaj sizin Dış (Dynamic) IP'nizdir.
1 Adet Command Button
1 Adet Microsoft Internet Control (name : w1)
Gerekli nesneleri ekledikten sonra
Formun kod bölümünü açın herşeyi silin bomboş bırakın
Aşağıdaki kodları formunuzun kod bölümüne yapıştırıp F5'e basın eklediğiniz butona basın ekrana gelen mesaj sizin Dış (Dynamic) IP'nizdir.
Kod:
Private Sub Command1_Click()
Text1.Text = W1.Document.Body.InnerText
End Sub
Private Sub Form_Load()
W1.Navigate "http://automation.whatismyip.com/n09230945.asp"
End Sub