Ok folks, I used ReadStream() for another cool test! This time we're going to execute a php script that will deliver the MD5 hash from any string given to the php script.
Ok, let's start!
Try it, it will work (I didn't delete the md5.php from my site so feel free to try it out ;-))!
Ok, let's start!
'First, we gonna set up the strictmode Strict Function inetscript:String(myurl:String) 'Now we gonna open the requested URL to read Local myip:TStream = ReadStream(myurl$) 'We need a var to store the string that will be given 'back by the php script Local ipstring:String = "" 'Successfully opened the requested URL? If Not myip 'If not then we let the user know ipstring$ = "Error!" Else 'If yes then we read all that our script 'has for us While Not Eof(myip) 'And store the output line by line ipstring$ :+ ReadLine(myip) Wend 'Don't forget to close the opened stream in the end! CloseStream myip EndIf 'Just return what we've got Return ipstring$ End Function Print inetscript$("http::www.infernalsoftware.com/md5.php?test=blablablubb")
Try it, it will work (I didn't delete the md5.php from my site so feel free to try it out ;-))!