Wer es gebrauchen kann.
Was kann ich noch verbessern?
Spoiler anzeigen
C
; *******************************************************
; Upload einer temporären IP-Adresse
; *******************************************************
;
#include <Inet.au3>
#include<FTP.au3>
#include <Word.au3>
; IP-Adresse
$IP = _GetIP()
;MsgBox(0,@ScriptName,$IP,10)
; Datei erstellen
$FileName = @ScriptDir & "\IP.html"
FileDelete($FileName)
$oWordApp = _WordCreate ($FileName)
$oDoc = _WordDocGetCollection ($oWordApp, 0)
$Text = "<html>" & @CRLF
$Text &= "<head>" & @CRLF
$Text &= "<title>EMEUV Siebente </title>" & @CRLF
$Text &= "</head>" & @CRLF
$Text &= "<body>" & @CRLF
$Text &= "<H1>Links</h1>" & @CRLF
$Text &= "<a href='http://" & $IP & "/documents/F_Index_1.php'>EMEUV Siebente</a>" & @CRLF
$Text &= "</body>" & @CRLF
$Text &= "</html>" & @CRLF
$oDoc.Range.insertAfter ($Text)
_WordDocSaveAs($oDoc, $FileName, 2)
_WordQuit ($oWordApp, 0)
;Upload
$server = 'ftp.ueberall.eluhost.de'
$ftp_dir = "/httpdocs/"
$username = 'ueberall'
$pass = '********i'
DllOpen('wininet.dll')
$Open = _FTPOpen('MyFTP Control')
; MsgBox(0, "Open", $Open, 0)
$Conn = _FTPConnect($Open, $server, $username, $pass)
If $Conn = 0 Then
MsgBox(0, "ERROR", @error, 0)
Exit
Else
;MsgBox(0, "Conn", $Conn, 0)
EndIf
$Ftpp = _FtpPutFile($Conn, $FileName , $ftp_dir & 'IP.html')
$Ftpc = _FTPClose($Open)
If $Ftpc = 0 Then
MsgBox(0, "ERROR", @error, 0)
Exit
Else
MsgBox(0, "Ftpc ", "Übertragung erfolgreich abgeschlossen", 0)
EndIf
Alles anzeigen