Hallo!
Ich habe mich selbst an einer PHP Datei, die zusammen mit AHK arbeitet versucht. Die PHP datei funktioniert und der Wert, der an AutoHotKey gegeben wird ist auch korrekt, aber die Abfrage dazu wird einfach ignoriert.
Code
#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:
ExitAppDanke im Vorraus an die helfenden! MfG!
ich mus den erst setzen ... also buggt richtig...?!
