Ich will ein Melde Programm schreiben... D.h. man kann den Nickname einer Person eingeben und dieser wird dann mit Datum in einer Datei auf einem Server gespeichert.
Wenn der Name bereits vorhanden ist wird die Anzahl meldungen +1 gerechnet...
Aber irgendwie geht der FTP upload nicht.
Hier mal der Code:
#include <Array.au3>
#Include <String.au3>
#include <IE.au3>
#include <file.au3>
#Include <FTPEx.au3>
#Include <FTP.au3>
#RequireAdmin
Dim $aRecords
$Name = "Hans1"
$Submit = $Name&"|1|"&OnlineDate()
$FTP_open = _FTP_Open("MY FTP")
$FTP_Connect = _FTP_Connect($FTP_open,"autoitbotftp.au.funpic.de","trojan16","123456789")
$Found = 0
InetGet("ftp://autoitbotftp:123456789@autoitbotftp.au.funpic.de/Reports.txt",@TempDir&"/Reports.txt")
$file = FileOpen(@TempDir&"/Reports.txt", 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
If Not _FileReadToArray(@TempDir&"/Reports.txt",$aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
For $x = 1 to $aRecords[0]
$Read = StringSplit($aRecords[$x],"|")
If $Read[1] = $Name Then
$Read[2] = $Read[2]+1
$Read[3] = OnlineDate()
$OldFileRead = FileRead($file)
$OldFileRead = StringReplace($OldFileRead,$aRecords[$x],$Name&"|"&$Read[2]&"|"&$Read[3])
$Found = 1
$file_flush = FileOpen(@TempDir&"/Reports.txt", 2)
$OldFileRead = "Test"
FileWrite($file_flush,$OldFileRead)
$Ftpp = _FTP_FilePut($FTP_Connect,@TempDir&"/Reports.txt","Reports.txt")
;~ $Ftpp = _FtpPutFile($Conn, @TempDir&"/Reports.txt", 'Reports.txt')
;~ FileDelete(@TempDir&"/Reports.txt")
MsgBox(0,"","Aufgerechenet!"& $Ftpp)
EndIf
Next
If $Found = 0 Then
[/autoit][autoit][/autoit][autoit]_FileReadToArray(@TempDir&"/Reports.txt",$aRecords)
Dim $NewFileWrite[$aRecords[0]+1]
$i = 0
For $x = 1 To $aRecords[0]
$NewFileWrite[$i] = $aRecords[$x]
$i = $i + 1
Next
$x = UBound($NewFileWrite)
$NewFileWrite[$i] = $Submit
_ArrayDisplay($NewFileWrite)
_FileWriteFromArray(@TempDir&"/Reports.txt",$NewFileWrite)
_FTP_FilePut($FTP_Connect,@TempDir&"/Reports.txt","Reports.txt")
EndIf
FileClose($file)
_FTP_Close($FTP_open)
;~ $Ftpc = _FTPClose($Open)
Func OnlineDate()
$sRead = BinaryToString(InetRead("http://www.uhrzeit.org/atomuhr.html",1))
$sRegRead = _StringBetween($sRead,'<div id="anzeige_datum">','</div>')
$sSplitRead = StringSplit ( $sRegRead[0], " ")
If $sSplitRead[3] = "Januar" Then
$Month = 1
ElseIf $sSplitRead[3] = "Februar" Then
$Month = 2
ElseIf $sSplitRead[3] = "März" Then
$Month = 3
ElseIf $sSplitRead[3] = "April" Then
$Month = 4
ElseIf $sSplitRead[3] = "Mai" Then
$Month = 5
ElseIf $sSplitRead[3] = "Juni" Then
$Month = 6
ElseIf $sSplitRead[3] = "Juli" Then
$Month = 7
ElseIf $sSplitRead[3] = "August" Then
$Month = 8
ElseIf $sSplitRead[3] = "September" Then
$Month = 9
ElseIf $sSplitRead[3] = "Oktober" Then
$Month = 10
ElseIf $sSplitRead[3] = "November" Then
$Month = 11
ElseIf $sSplitRead[3] = "Dezember" Then
$Month = 12
EndIf
$DayArray = StringSplit($sSplitRead[2],".")
$Day = $DayArray[1]
$Year = $sSplitRead[4]
[/autoit][autoit][/autoit][autoit]$Date = $Day&"."&$Month&"."&$Year
[/autoit][autoit][/autoit][autoit]Return $Date
EndFunc