Option Explicit
Dim IP_Address : IP_Address = GetIP()
If IP_Address = "0.0.0.0" OR IP_Address = "" Then
MsgBox "No IP Address found."
Else
InputBox vbcrlf & "Current IP Address is " & IP_Address & _
vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"(Use Ctrl + C to copy IP Address to Clipboard)", _
"CLub-Hack.Ro Your IP", IP_Address
End If
Function GetIP()
Dim ws : Set ws = CreateObject("Wscript.Shell")
Dim fso : Set fso = CreateObject("scripting.FileSystemObject")
Dim TmpFile : TmpFile = fso.GetSpecialFolder(2) & "/ip.txt"
Dim ThisLine, IP
If ws.Environment("SYSTEM")("OS") = "" Then
ws.run "winipcfg /batch " & TmpFile, 0, True
Else
ws.run "%comspec% /c ipconfig > " & TmpFile, 0, True
End If
With fso.GetFile(TmpFile).OpenAsTextStream
Do While NOT .AtEndOfStream
ThisLine = .ReadLine
If InStr(ThisLine, "Address") <> 0 Then IP = Mid(ThisLine, InStr(ThisLine, ":") + 2)
Loop
.Close
End With
'WinXP (NT? 2K?) leaves a carriage return at the end of line
If IP <> "" Then
If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1)
End If
GetIP = IP
fso.GetFile(TmpFile).Delete
Set fso = Nothing
Set ws = Nothing
End Function
miercuri, 14 iulie 2010
Script aflare IP propriu
Copiati codul de mai jos in notepad , salvati cu extensia *.vbs. Va aparea o casuta care va arata Ip-ul dvs.
WhatsApp Messenger
Cum funcţionează : WhatsApp Messenger este o aplicatie cross-platform de mesaje care permite să se facă schimb de mesaje fără a trebui ...
-
Codul la Reksio si comoara piratilor : Tapinson; Pirat; Reksio;Capetenia puilor Codul la Reksio si Ozn-ul : Bindor(curcanul cu 2 capete); ...
-
Cea mai simpla modalitate de a ascunde partitii sau HDD-uri fara nici un soft se poate face din registry. Deschidem Registry Editor merga...
-
10 cauze de prabusire a PC-ului pe care dvs. ar trebui să le stiti. Fatal error: sistemul a devenit instabil sau este ocupat, " spun...