Eto, nešto sam pronašao
Code:
Option Explicit
Public IPAddress As String
Function GetIP()
IPAddress = GetUrlSource("http://showmyip.com/simple")
IPAddress = Left(IPAddress, 15)
End Function
Private Sub Form_Load()
GetIP
IPAddress = Trim(IPAddress)
Clipboard.Clear
Clipboard.SetText IPAddress
MsgBox "Spremljena IP adresa"
End
End Sub
jel može sad samo jedna mala pomoć...postavljeno je da se spremi u Clipboard...trebalo bi mi to i da se IP spremi u određeni txt file, tipo "C:\ip.txt".....lagana pomoć plzz.