Jump to content
Sign in to follow this  
Kiesp

inetread

Recommended Posts

Kiesp

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 by Kiesp

http://www.autoitscript.com/forum/index.php?showtopic=69911 <-- Best hacker ever :D

Share this post


Link to post
Share on other sites
JRSmile

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:-)

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×