Auth mit Autoit

#include <INet.au3>

$authServer = "http://asdfasdfsdaf.org" ; Put the server name only i.e: http://www.myauth.com
$pathToFile = "/auth.txt" ; The directory after the auth servers i.e: /auth/database/authfile.txt
$username = IniRead(@scriptdir & "/auth.ini","Auth","User","") ;Looks for username in the .ini
If $username = "" Then ; if theres no value entered, show up a message box
MsgBox(16,"Error","Error: No username Entered")
Exit
EndIf
$source = _INetGetSource($authServer & $pathToFile) ; Gets the text (source) of a .txt file
$result = StringInStr($source,$username,1) ; Looking to look if $username and $source and macthing(Weak, will be fixed in next release)
if $result = "0" Then ; If they are not mathcing...
MsgBox(16,"Error","Access denied!") ; Message the user of a error (can also caused by a long lag)(Will be Fixed in next release)
Else
MsgBox(64,"Auth","User authed succesfully!") ; Auth succesfull!
EndIf