Splash Posted November 12, 2009 Share Posted November 12, 2009 expandcollapse popup;By Igor Ferreira Cemim ;igor.cemim at yahoo.com.br ;http://www.autoitscript.com/forum/index.php?showuser=46021 ;Search a valid IP address on a given URL. Func searchIP($URL = "http://www.ip-adress.com/") InetGet($URL, @TempDir & "\IP.dat", 1) ;Regular expression by: ;http://www.geekzilla.co.uk/view0CBFD9A7-621D-4B0C-9554-91FD48AADC77.htm $re = "\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b" $file = FileOpen(@TempDir & "\IP.dat", 0) While 1 $line = StringLower(FileReadLine($file)) If @error = -1 Then FileClose($file) FileDelete(@TempDir & "\IP.dat") ExitLoop EndIf $webIP = StringRegExpReplace($line, "[a-z]", "") $IP = StringRegExp($webIP, $re, 2) If (IsArray($IP)) Then FileClose($file) FileDelete(@TempDir & "\IP.dat") Return $IP[0] EndIf WEnd EndFunc ;Get external IP from What Is My IP Address automation page. Func getExternalIP() InetGet("http://www.whatismyip.com/automation/n09230945.asp", @TempDir & "\IP.dat", 1) $IP = FileReadLine(@TempDir & "\IP.dat", 1) FileDelete(@TempDir & "\IP.dat") Return $IP EndFunc Need more comments?! Automatic Update UDF - IP Address UDF - WinPcap AutoIt _FindDevice()[font="Verdana"][size="2"]AutoIt Spanish/Brasil/World community!!![/size][/font]Use you wanna a dot.tk domain please use my link: Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted November 12, 2009 Share Posted November 12, 2009 Awesome topic, five stars from me! .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
trancexx Posted November 12, 2009 Share Posted November 12, 2009 Liar ♡♡♡ . eMyvnE Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted November 12, 2009 Share Posted November 12, 2009 (edited) Whaaat? I thought all topics got awesome when YOU posted in them! (HA got you now, there's no way you can deny that!) Edited November 12, 2009 by AdmiralAlkex .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
potemkin Posted November 15, 2009 Share Posted November 15, 2009 Good idea, nice code. Thanks for sharing. Link to comment Share on other sites More sharing options...
ProgAndy Posted November 15, 2009 Share Posted November 15, 2009 (edited) The getExternalIP is already done. _GetIPBut the other func is good Edited November 15, 2009 by ProgAndy *GERMAN* [note: you are not allowed to remove author / modified info from my UDFs]My UDFs:[_SetImageBinaryToCtrl] [_TaskDialog] [AutoItObject] [Animated GIF (GDI+)] [ClipPut for Image] [FreeImage] [GDI32 UDFs] [GDIPlus Progressbar] [Hotkey-Selector] [Multiline Inputbox] [MySQL without ODBC] [RichEdit UDFs] [SpeechAPI Example] [WinHTTP]UDFs included in AutoIt: FTP_Ex (as FTPEx), _WinAPI_SetLayeredWindowAttributes Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now