Merhaba arkadaşlar ;
Sizlere Dış ip adresini bulan programı anlatacağım.
Bu program sayesinde hem "Local İp" hem "Dış İp " adresini öğrenebilirsiniz.
http://www.youtube.com/watch?v=-xidzIdh8UA
,İ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. ;
Winsock ile localip yi öğreniyoruz, webbrowserdaki siteden veri çekerek ise kendi dış ipmizi öğrenebiliyoruz.
Sizlere Dış ip adresini bulan programı anlatacağım.
Bu program sayesinde hem "Local İp" hem "Dış İp " adresini öğrenebilirsiniz.
http://www.youtube.com/watch?v=-xidzIdh8UA
,İ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. ;
Kod:
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 SubWinsock ile localip yi öğreniyoruz, webbrowserdaki siteden veri çekerek ise kendi dış ipmizi öğrenebiliyoruz.