Kiesp Posted September 14, 2007 Share Posted September 14, 2007 (edited) This is my first udf.. so plz dont flame ^^ Maybe somthing similar have been made before.. but i couldnt find somthing.. The UDF is made to read from an file on the internet.. a function i needed. so i tried making it.. #include<string.au3> Func inetread($ineturl) $inetname = StringRight($ineturl, StringLen($ineturl) - StringInStr($ineturl, "/", 0, -1)) ;get the name of the file you are trying to read InetGet($ineturl, @TempDir & "\" & $inetname) ;download the file into the tempdir with the same name as on the remotedir $inetfile = FileOpen(@TempDir & "\" & $inetname, 0) ; opens the file up for reading $inetcontent = FileRead($inetfile) ;reads the content of the file FileClose($inetfile) ;closes the file Return $inetcontent ;returns the content of the file EndFunc ;==>inetreadoÝ÷ Ù«¢+ÙU% ÉÑ ÅÕ½Ðí¥¹ÑÉÑÍÐÅÕ½Ðì¤(ÀÌØí¥ÐôU% Ñɱ ÉѥРÅÕ½ÐìÅÕ½Ðì°ÈÀ°ÈÀ¤)U%MÑMÑÑ ¤)U% ÑɱMÑÑ ÀÌØí¥Ð°¥¹ÑÉ ÅÕ½Ðí¡ÑÑÀè¼½¥ÍÀ¹¬½µ¹Ô¹¡Ñµ°ÅÕ½Ð줤()]¡¥±Ä(%M±À ÈÀÀ¤)]¹ Ideas and how to make it better are very welcome Edited September 14, 2007 by Kiesp http://www.autoitscript.com/forum/index.php?showtopic=69911 <-- Best hacker ever :D Link to comment Share on other sites More sharing options...
James Posted September 14, 2007 Share Posted September 14, 2007 Ok, first tidy the script up using Tidy. Press Ctrl+T in SciTE if you have the full package. Then use the [autoit ] [/ autoit] tags with no spaces. Very nice though. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
JRSmile Posted September 20, 2007 Share Posted September 20, 2007 there is a little function for it already: #include <INet.au3> ConsoleWrite(_INetGetSource('www.autoitscript.com')) $a=StringSplit("547275737420796F757220546563686E6F6C75737421","") For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4) Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI" Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile; MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-) 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