Bilgisayarın IP bulma

[akd]

Merhaba arkadaşlar,
Bilgisayarın hem web IP hemde Normal IP bulamak ve
hemde yanar söner etiket özelligi olan bir örenk ekliyorum.
İyi geceler...

 

[PHÖNİX1]

GÜzel Bİr ÇaliŞma Tebrİkler

 

[assenucler]

Sn. akd;

Günaydın, kodu bir sitede görmüştüm. Uygulamayı da sizden... Teşekkürler.

 

[perisanoglu]

programı çalıştırdığımda pc de her şey donmaya başlıyor....program açık görünüyo ama masaüstünde bişey yok..bendemi sorun var acaba

 

[beab05]

Bende de çalışmıyor, gerçi sorun değil ama bilginiz olsun.. Access 2007 ...

 

[hozzeybek]

teşekkürler akd
sorunsuz çalışıyor

 

[Zeki Gürsoy]

Sub My_IP()
MsgBox "IP Numaranız: " & External_IP("[URL]http://www.showmyip.com/simple/[/URL]")
End Sub
 
Private Function External_IP(URL As String) As String
Dim IE As Object, txt As Variant
 
Set IE = CreateObject("InternetExplorer.Application")
 
IE.Navigate URL
 
Do While IE.Busy: Loop
 
txt = IE.Document.All
External_IP = """" & Left$(txt.InnerText, InStr(1, txt.InnerText, " ") - 1) & """"
 
Set IE = Nothing
End Function

 

[akd]

düzeltilmiş hali

Merhaba arkadaşlar,
Birde böyle deneyin...
İyi akşamlar...

 

[perisanoglu]

Merhaba arkadaşlar,
Birde böyle deneyin...
İyi akşamlar...

maalesef bende sorun hala devam ediyor..açtığımdan access açık görünüyo ama hiç bin şey görünmüyor..