Bilderupload für eigenes Forum

  • Hab hier mal was zusammengestöpselt, für leute, die n eigenes PHPbb Forum betreiben.

    Spoiler anzeigen
    [autoit]

    #include <ftp.au3>
    #include <IE.au3>
    #Include <File.au3>
    Opt("TrayMenuMode",1)

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

    Global $server = ("ftp.*******")
    Global $username = ("*******")
    Global $pass = ("*******")
    Global $log = (@DesktopDir&"\linklog.txt")

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

    If $cmdline[0] <> 0 Then
    Global $file = $cmdline[1]
    Else
    Global $file = FileOpenDialog("Was willst hochladen",@desktopdir,"irgendwas (*.*)")
    endif

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

    Global $dllhandle = DllOpen('wininet.dll')
    $split=StringSplit($file,"\")
    Global $putfile =(@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC&$split[$split[0]])

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

    $Open = _FTPOpen('x')
    $Conn = _FTPConnect($Open, $server, $username, $pass)
    if @error then MsgBox(0,"error","Serververvindung fehlgeschlagen",5)
    TrayTip(@scriptname,$split[$split[0]]&"wird gerade hochgeladen",5)
    $Ftpp = _FtpPutFile($Conn,$file,$putfile )
    if @error then
    MsgBox(0,"error","File konnte nicht hochgeladen werden!",5)
    Else
    $link=("http://www.meinewebseite.de/uploads/"&$putfile)
    $img=("")
    ClipPut ($img)

    if not FileExists($log) then FileWrite($log,"")
    _FileWriteToLine($log,1,$link)
    InputBox("Downloadlink","Füge diesen Text ins Forum ein, um dein Bild zu posten.",$img)
    if @error =0 then _IECreate($link)
    EndIf

    $Ftpc = _FTPClose($Open)
    DllClose($dllhandle)

    [/autoit]