Beiträge von baerchen

  • WinInet

    Das ist ja nicht mal das Problem, Sonder das er mir im einen Script die Funktion ausführt aber im anderen wieder nicht
    Funktioniert nicht :

    Spoiler anzeigen
    [autoit]


    $client = IniRead(@tempdir &"\7466577\lizenz.nazatrika","Register","Client","")

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

    Dim $user = '#'
    Dim $pwd = '#'
    Dim $server = '#'
    Dim $port = 21
    Dim $searchfile = '/user/programm/'
    _WinINet_Startup()
    $InternetOpen = _WinINet_InternetOpen()
    $InternetConnect = _WinINet_InternetConnect($InternetOpen, $INTERNET_SERVICE_FTP, $server, $port, 0, $user, $pwd)
    $searchresult = _WinINet_FtpFindFirstFile($InternetConnect,$searchfile)
    If Not @error Then
    _WinINet_FtpGetFile($InternetConnect, $searchfile, $client)
    EndIf
    $exp = Iniread($client,"Profile","EXP","")
    $math = $exp + 25
    IniWrite($client,"Profile","EXP",$math)
    IniWrite($client,"Pokale","Radio","Ja")
    _WinINet_FtpPutFile($InternetConnect, $client, $searchfile)

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

    _WinINet_InternetCloseHandle($InternetConnect)
    _WinINet_InternetCloseHandle($InternetOpen)
    _WinINet_Shutdown()

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

    FileDelete($client)

    [/autoit]


    Fehlermeldung:

    [autoit]

    Global Const $FILE_BEGIN = 0
    Global Const ^ ERROR

    [/autoit]

  • WinInet

    Hallo,

    Warum funktioniert im einem Script die Funktion Wininet (FTP file down &upload)
    und im anderen nicht?

    Funktioniert

    Spoiler anzeigen
    [autoit]

    #include <WinINet.dll>
    Dim $user = '####'
    Dim $pwd = '####'
    Dim $server = '####'
    Dim $port = 21
    Dim $searchfile = '/user/programm/' & $random
    _WinINet_Startup()
    $InternetOpen = _WinINet_InternetOpen()
    $InternetConnect = _WinINet_InternetConnect($InternetOpen, $INTERNET_SERVICE_FTP, $server, $port, 0, $user, $pwd)
    _WinINet_FtpPutFile($InternetConnect, $random, $searchfile)
    _WinINet_InternetCloseHandle($InternetConnect)
    _WinINet_InternetCloseHandle($InternetOpen)
    _WinINet_Shutdown()

    [/autoit]

    Funktioniert nicht:

    Spoiler anzeigen
    [autoit]

    #include <WinINet.dll>
    Dim $user = '#'
    Dim $pwd = '#'
    Dim $server = '#'
    Dim $port = 21
    Dim $searchfile = '/user/programm/'
    _WinINet_Startup()
    $InternetOpen = _WinINet_InternetOpen()
    $InternetConnect = _WinINet_InternetConnect($InternetOpen, $INTERNET_SERVICE_FTP, $server, $port, 0, $user, $pwd)
    _WinINet_FtpPutFile($InternetConnect, $file, $searchfile)
    _WinINet_InternetCloseHandle($InternetConnect)
    _WinINet_InternetCloseHandle($InternetOpen)
    _WinINet_Shutdown()oseHandle($InternetOpen)
    _WinINet_Shutdown()

    [/autoit]


    Da kommt dann immer diese Fehler meldung:

    Global Const $FILE_BEGIN = 0
    Global Const ^ ERROR

    / in der au3 ( Global Const $FILE_BEGIN = 0 )

    Brauche da Hilfe