Wysyłanie Numery IP na FTP

[ClassAxion]

Witam!

chciałbym aby program Pobierał mi numer IP a następnie wysyłał go na serwer FTP tzn. Zapisuje Numer IP w pliku .txt a potem go wysyła na FTP

Proszę o pomoc!

[Gość]

Kawałek ci mogę dać. FTP używać nie umiem.

Kod robi plik "ip.txt"(jeśli go nie ma), usuwa zawartość(jeśli jest) i pisze IP. Do tego nie pokazuje się ikona.

 

 

#include <Inet.au3>
#include <File.au3>
#NoTrayIcon
$ip = _GetIP()
If FileExists("ip.txt") = 0 Then
_FileCreate("ip.txt")
EndIf
$file = FileOpen("ip.txt",2)
FileWrite($file, $ip)
FileClose($file)

 

 

[Aslani]

Dokończę

 

 

 

#include <FTPEx.au3>
#include <Inet.au3>
#include <File.au3>
Local $server = 'server'
Local $username = 'login'
Local $pass = 'haslo'
Local $Open = _FTP_Open('FTP')
Local $Connect = _FTP_Connect($Open, $server, $username, $pass)
$ip = _GetIP()
If FileExists("ip.txt") = 0 Then _FileCreate("ip.txt")
$file = FileOpen("ip.txt",2)
FileWrite($file, $ip)
FileClose($file)
Sleep(2000)
_FTP_FilePut($Connect, 'ip.txt', 'ip.txt')
Local $Ftpc = _FTP_Close($Open)
FileDelete('ip.txt')

 

 

[ClassAxion]

Ok Dzięki macie po Like

[Gość]

Dokończę

 

 

 

#include <FTPEx.au3>
#include <Inet.au3>
#include <File.au3>
Local $server = 'server'
Local $username = 'login'
Local $pass = 'haslo'
Local $Open = _FTP_Open('FTP')
Local $Connect = _FTP_Connect($Open, $server, $username, $pass)
$ip = _GetIP()
If FileExists("ip.txt") = 0 Then _FileCreate("ip.txt")
$file = FileOpen("ip.txt",2)
FileWrite($file, $ip)
FileClose($file)
Sleep(2000)
_FTP_FilePut($Connect, 'ip.txt', 'ip.txt')
Local $Ftpc = _FTP_Close($Open)
FileDelete('ip.txt')

 

 

Nie do końca. Zapomniałeś o EndIF.

[Aslani]

If FileExists("ip.txt") = 0 Then _FileCreate("ip.txt")

 

End if nie jest tu za bardzo potrzebne a i tak działa przecież. No i kod jest krótszy o 2 linijki

[linoskoczek]

 

Nie do końca. Zapomniałeś o EndIF.

 

Są 2 różne instrukcje:

 

If <cośtam> Then <cośtam>

 

If <cośtam Then

<cośtam>

<cośtam cośtam>

Else

<cośtam cośtam cośtam>

EndIf

 

Tej pierwszej używa się, gdy nie trzeba robić nic rozbudowanego.

[ClassAxion]

Można zamknąć! Już wszystko działa!