AHK | MySQL Problem

#SingleInstance force
#NoENV


Gui, 1:Add, Edit, x82 y59 w310 h20 vUsername
Gui, 1:Add, Edit, x82 y99 w310 h20 vPasswort Password
Gui, 1:Add, Button, x182 y139 w110 h30 gLogin, Login
Gui, 1:Add, Text, x82 y39 w310 h20 , Username:
Gui, 1:Add, Text, x82 y79 w310 h20 , Passwort:
; Generated using SmartGUI Creator 4.0
Gui, 1:Show, x683 y317 h383 w483, FBI-Keybinder | Login
Return


UrlDownloadToVar(URL, Proxy="", ProxyBypass="") {
AutoTrim, Off
hModule := DllCall("LoadLibrary", "str", "wininet.dll") 


If (Proxy != "")
AccessType=3
Else
AccessType=1
;INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration
;INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net
;INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy
;INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS


io_hInternet := DllCall("wininet\InternetOpenA"
, "str", "" ;lpszAgent
, "uint", AccessType
, "str", Proxy
, "str", ProxyBypass
, "uint", 0) ;dwFlags


iou := DllCall("wininet\InternetOpenUrlA"
, "uint", io_hInternet
, "str", url
, "str", "" ;lpszHeaders
, "uint", 0 ;dwHeadersLength
, "uint", 0x80000000 ;dwFlags: INTERNET_FLAG_RELOAD = 0x80000000 // retrieve the original item
, "uint", 0) ;dwContext


If (ErrorLevel != 0 or iou = 0) {
DllCall("FreeLibrary", "uint", hModule)
return 0
}


VarSetCapacity(buffer, 512, 0)
VarSetCapacity(NumberOfBytesRead, 4, 0)
Loop
{
  irf := DllCall("wininet\InternetReadFile", "uint", iou, "uint", &buffer, "uint", 512, "uint", &NumberOfBytesRead)
  NOBR = 0
  Loop 4  ; Build the integer by adding up its bytes. - ExtractInteger
    NOBR += *(&NumberOfBytesRead + A_Index-1) << 8*(A_Index-1)
  IfEqual, NOBR, 0, break
  ;BytesReadTotal += NOBR
  DllCall("lstrcpy", "str", buffer, "uint", &buffer)
  res = %res%%buffer%
}
; StringTrimRight, res, res, 2


DllCall("wininet\InternetCloseHandle",  "uint", iou)
DllCall("wininet\InternetCloseHandle",  "uint", io_hInternet)
DllCall("FreeLibrary", "uint", hModule)
AutoTrim, on
return, res
}


Login:
Gui, Submit


url := "http://domain.de/keybinder/login.php?user=@&pass=€"


StringReplace, url1, url, @, Username
StringReplace, url, url1, €, Passwort
response = UrlDownloadToVar(url)
if(response != 0)  //DIESE ABFRAGE WIRD IGNORIERT!
{
	MsgBox, 64, FBI-Keybinder | Eingeloggt, Erfolgreich eingeloggt! Willkommen %Username%
	Eingeloggt = 1
	Gui, 1:Destroy
	Gui, Show, x277 y302 h379 w479, FBI-Keybinder | Login
}
else
{
	MsgBox, 16, FBI-Keybinder | Fehler, Login ist Fehlgeschlagen!
	Gui, 1:Show, x277 y302 h379 w479, FBI-Keybinder | Login
}
return


GuiClose:
ExitApp