[b]Merhaba arkadaşlar ;

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.


  1. 2 Adet Label

  2. 2 Adet Text Box

  3. 1 Adet Command Button

  4. 1 Adet Winsock [ CTRL + T = Microsoft Winsock Control 6.0 ]

  5. 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]