Hey Leute , ich bin bei meinem Projekt schon ein großes Stück weiter.
Ich habe nur 2.Probleme
1.Problem
Spoiler anzeigen
C:\Dokumente und Einstellungen\Alex\Desktop\Ftp Projekt\Fertig FTP Upload.au3 (37) : ==> Subscript used with non-Array variable.:
MsgBox(64, 'TuttiFrutti', 'Key 1: ' & $sapfelversion1[0] & @CRLF & 'Key 2: ' & $sapfelversion2[0] & @CRLF & 'Key 3: ' & $sapfelversion3[0] & @CRLF & 'Key 4: ' & $sapfelversion4[0] & @CRLF & 'Key 5: ' & $sapfelversion5[0] & @CRLF & @CRLF & 'Mehr Informationen auf www.google.de' )
MsgBox(64, 'TuttiFrutti', 'Key 1: ' & $sapfelversion1^ ERRORWeiß aber nicht wie ich das behebe Edit: Gefunden. Problem 2. gibt es immer noch xD
2.Problem wenn ich sachen auf mein FTP server uploaden will , was nur klappt wen Windows Firewall aus ist !Wenn Windows Firewall an ist , kann ich garnicht FTP connectn ober was hochladen.Weiß nicht warum.
Hier mal das Script =]
Spoiler anzeigen
#include <FTP.au3>
#include <Inet.au3>
_Peter1()
Func _Peter1()
;= Hatte grad meine Richtigen Daten hier =D um glück gemerkt xD
$dll = DllOpen("wininet.dll")
$server = IniRead(@ScriptDir & '\configuration.ini', 'FTP', 'server', '')
$username = IniRead(@ScriptDir & '\configuration.ini', 'FTP', 'username', '')
$pass = IniRead(@ScriptDir & '\configuration.ini', 'FTP', 'passwort', '')
$port = IniRead(@ScriptDir & '\configuration.ini', 'FTP', 'port', 21)
$Open = _FTPOpen("Egal Was")
$Conn = _FTPConnect($Open, $server, $username, $pass, $port)
_FtpPutFile($Conn, "C:\Dokumente und Einstellungen\Alex\Desktop\Ftp Projekt\Keys.html", "www/Keys.html")
_FTPClose($Open)
DllClose($dll)
_Peter()
EndFunc
Func _Peter()
$source = _INetGetSource("http://tuttifrutti.kilu.de/Keys.html")
If Not @error Then
$sapfelversion1 = StringRegExp($source, 'Key 1 : <strong>(.*?)</strong>', 1)
$sapfelversion2 = StringRegExp($source, 'Key 2 : <strong>(.*?)</strong>', 1)
$sapfelversion3 = StringRegExp($source, 'Key 3 : <strong>(.*?)</strong>', 1)
$sapfelversion4 = StringRegExp($source, 'Key 4 : <strong>(.*?)</strong>', 1)
$sapfelversion5 = StringRegExp($source, 'Key 5 : <strong>(.*?)</strong>', 1)
MsgBox(64, "TuttiFrutti", "Key 1: " & $sapfelversion1[0] & @CRLF & "Key 2: " & $sapfelversion2[0] & @CRLF & "Key 3: " & $sapfelversion3[0] & @CRLF & "Key 4: " & $sapfelversion4[0] & @CRLF & "Key 5: " & $sapfelversion5[0] & @CRLF & @CRLF & "Mehr Informationen auf http://www.google.de" )
Else
MsgBox(48, "Verbindungsfehler", "Es besteht entweder keine Verbindung zum Internet oder der Server ist momentan nicht erreichbar!")
EndIf
EndFunc ;==>_Peter
[/autoit]
