_INetGetSource gibt IMMER 0 zurück!

  • Hey Leute :D

    Ich hab mir das Login+Registrierungs Tutorial mit AutoIt und PHP+MySQL angeschaut, und gleich einmal probiert meine generierten Keys (danke noch mal) einzutragen.

    So, der Code:

    Spoiler anzeigen
    [autoit]

    #include <INet.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Global $key = ""

    [/autoit] [autoit][/autoit] [autoit]

    $ianz = InputBox("Keys", "Wie viele Keys: ")

    [/autoit] [autoit][/autoit] [autoit]

    Dim $achars[28]
    $achars[0] = "A"
    $achars[1] = "A"
    $achars[2] = "B"
    $achars[3] = "C"
    $achars[4] = "D"
    $achars[5] = "E"
    $achars[6] = "F"
    $achars[7] = "G"
    $achars[9] = "H"
    $achars[10] = "I"
    $achars[11] = "J"
    $achars[12] = "K"
    $achars[13] = "L"
    $achars[14] = "M"
    $achars[15] = "N"
    $achars[16] = "O"
    $achars[17] = "P"
    $achars[18] = "Q"
    $achars[19] = "R"
    $achars[20] = "S"
    $achars[21] = "T"
    $achars[22] = "U"
    $achars[23] = "V"
    $achars[24] = "W"
    $achars[25] = "X"
    $achars[26] = "Y"
    $achars[27] = "Z"

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To $ianz
    For $x = 1 To 4
    For $a = 1 To 4
    $rnd = Random(0, 9, 1)
    If (Mod($rnd, 2) == 0) Then
    $rndchars = Random(0, 27, 1)
    $key = $key & $achars[$rndchars]
    Else
    $key = $key & $rnd
    EndIf
    Next
    If $x <> 4 Then
    $key = $key & "-"
    Else
    MsgBox(0,"",$key)
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit]

    Next

    [/autoit] [autoit][/autoit] [autoit]

    Func _insert($key="")
    $iRValue = _INetGetSource("http://XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" & $key)

    [/autoit] [autoit][/autoit] [autoit]

    Switch $iRValue ; je nach Rückgabewert der login.php-Datei wird nun weiter verfahren:
    Case 0 ; - nicht erfolgreich registriert (Daten konnten nicht in die DB eingefügt werden) ...
    MsgBox(16, "Error", "Registration fehlgeschlagen!")
    Case 1 ; - erfolgreich registriert ...
    MsgBox(32, "Info", "Erfolgreich registriert!")
    Case 2 ; - der Benutzername existiert bereits in der Datenbank ...
    MsgBox(16, "Error", "Der Benutzername ist bereits registriert!")
    EndSwitch

    [/autoit] [autoit][/autoit] [autoit]

    $key = ""

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit]

    Es wird immer 0 zurückgegeben. Dann habe ich versucht es selber per Aufruf der Website zu machen, dass hat funktioniert.

    Ich verwnede Win VIsta 32 bit.