Sizlere Dış ip adresini bulan programı anlatacağım.
Bu program sayesinde hem "Local İp" hem "Dış İp " adresini öğrenebilirsiniz.
Hemen resimli ve videolu olarak konu anlatıına geçeyim.
İlk önce yeni bir proje oluşturuyoruz.
Form kısmına aşağıdaki nesneleri ekleyelim.
- 2 Adet Label
- 2 Adet Text Box
- 1 Adet Command Button
- 1 Adet Winsock [ CTRL + T = Microsoft Winsock Control 6.0 ]
- 1 Adet Web Browser [ CTRL + T = Microsoft İnternet Controls ]
En son olarak Form kod kısmına aşağıdaki kodları ekliyoruz. ;
Private Sub Command1_Click()
Text1.Text = Winsock1.LocalIP
Text2.Text = WebBrowser1.Document.Body.InnerText
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.firhus.com/ip.php"
WebBrowser1.Visible = False
End Sub
Winsock ile localip yi öğreniyoruz, webbrowserdaki siteden veri çekerek ise kendi dış ip’ mizi öğrenebiliyoruz.
[/B]