DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
maalesef bende sorun hala devam ediyor..açtığımdan access açık görünüyo ama hiç bin şey görünmüyor..Merhaba arkadaşlar,
Birde böyle deneyin...
İyi akşamlar...