[Problem] #include <FTPEx.au3>

[GameOverMan]

Witam, chcę wysłać plik na serwer:

 

 	 $Open = _FTP_Open("MyFTP Control")
$Conn = _FTP_Connect($Open, "85.17.25.236:21", "admin@**********.cba.pl", "******")
$Ftpp = _FTP_FilePut($Conn, "D:\Pobrane\xxxxxxxx.zip", "/Przechwycone/xxxxxxxx.zip")
$Ftpc = _FTP_Close($Open)

 

Nie działa mi, nie ma żadnego błędu, plik nie wchodzi na serwer.

Co mam źle?

[BestMinecrafter]

zamiast ip daj cba.pl

[GameOverMan]

Na jedno wychodzi, próbowałem już i nie działa, z portem 21 i 22 i bez.

 

 

@Edit Nie wiem co jest grane, przez FileZille się normalnie loguję.

 

Znalazłem taki skrypt:

 

 

 

   #NoTrayIcon
   #include <ButtonConstants.au3>
   #include <EditConstants.au3>
   #include <GUIConstantsEx.au3>
   #include <StaticConstants.au3>
   #include <WindowsConstants.au3>
   #include <FTPEx.au3>
   #include <File.au3>
   #include <String.au3>

   $ini_host = IniRead(@ScriptDir & "\settings.ini", "FTP", "Host", "np. ftp.cba.pl")
   $ini_dir = IniRead(@ScriptDir & "\settings.ini", "FTP", "folder", "/folder/podfolder/")
   $ini_user = IniRead(@ScriptDir & "\settings.ini", "FTP", "id", "nazwa.costam.pl")
   $ini_pwd = IniRead(@ScriptDir & "\settings.ini", "FTP", "haslo", "*****")
   $ini_port = IniRead(@ScriptDir & "\settings.ini", "FTP", "Port", "22")

   #Region ### START Koda GUI section ### Form=
   $Form = GUICreate("Wysyłacz treści na dowolny hosting FTP od AutoManiac", 536, 188, 192, 124)
   $News_Edit = GUICtrlCreateEdit("", 216, 8, 311, 139, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
   GUICtrlSetData(-1, "Treść...")
   $Label1 = GUICtrlCreateLabel("Host:",	 10, 24, 29, 17)
   $Label2 = GUICtrlCreateLabel("Katalog:",	 10, 49, 50, 17)
   $Label3 = GUICtrlCreateLabel("Użytkownik:",    10, 75, 60, 17)
   $Label4 = GUICtrlCreateLabel("Hasło:",   10, 100, 53, 17)
   $Label5 = GUICtrlCreateLabel("Port:",	 10, 126, 26, 17)


   $FTP_Settings = GUICtrlCreateGroup("Dane konta FTP:", 8, 0, 201, 179)
   $FTP_Host = GUICtrlCreateInput($ini_host, 72, 21, 121, 21)
   $FTP_Dir = GUICtrlCreateInput($ini_dir,	  72, 47, 121, 21)
   $FTP_User = GUICtrlCreateInput($ini_user, 72, 72, 121, 21)
   $FTP_Pwd = GUICtrlCreateInput($ini_pwd,	  72, 97, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
   $FTP_Port = GUICtrlCreateInput($ini_port, 72, 122, 121, 21)
   $Save = GUICtrlCreateButton("Zapisz dane", 118, 148, 75, 25, $WS_GROUP)
   $Send = GUICtrlCreateButton("Wyślij", 216, 154, 311, 25, $WS_GROUP)
   GUISetState(@SW_SHOW)
   #EndRegion ### END Koda GUI section ###
   While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
	  Case $GUI_EVENT_CLOSE
		 Exit
	  Case $Save
		 _save()
	  Case $Send
		 _upload()
   EndSwitch
   WEnd
   Func _save()
   IniWrite(@ScriptDir & "\settings.ini", "FTP", "Host", GUICtrlRead($FTP_Host))
   IniWrite(@ScriptDir & "\settings.ini", "FTP", "folder", GUICtrlRead($FTP_Dir))
   IniWrite(@ScriptDir & "\settings.ini", "FTP", "id", GUICtrlRead($FTP_User))
   IniWrite(@ScriptDir & "\settings.ini", "FTP", "haslo", GUICtrlRead($FTP_Pwd))
   IniWrite(@ScriptDir & "\settings.ini", "FTP", "Port", GUICtrlRead($FTP_Port))
   MsgBox(0, "Sukces!", "Ustawienia zostały zachowane!")
   EndFunc
   Func _upload()
   $host = GUICtrlRead($FTP_Host)
   $dir = GUICtrlRead($FTP_Dir)
   $user = GUICtrlRead($FTP_User)
   $pwd = GUICtrlRead($FTP_Pwd)
   $port = GUICtrlRead($FTP_Port)
   $news = GUICtrlRead($News_Edit)
   $file = @ScriptDir & "\news.txt"
   $msg = 6
   _FileCreate($file)
   $fOpen = FileOpen($file)
   FileWrite($file, $news)
   FileClose($fOpen)
   If @error Then
	  MsgBox(48, "Błąd!", "Nie można utworzyć pliku do wysłania! Sprawdź dysk.")
	  Return ""
   EndIf
   If _FileCountLines($file) > 10 Then
	  $msg = MsgBox(4, "Pytanie.", "Tekst ma więcej niż 10 linijek." & @CRLF & "Kontynuować?")
   ElseIf StringLen($news) >= 450 Then
	  $msg = MsgBox(4, "Pytanie.", "Tekst ma więcej niż 450 znaków." & @CRLF & "Kontynuować?")
   EndIf
   If $msg <> 6 Then
	  Return ""
	  FileDelete($file)
   EndIf
   $FTP_Open = _FTP_Open("FTP")
   $FTP_Conn = _FTP_Connect($FTP_Open, $host, $user, $pwd)
   $FTP_Put = _FTP_FilePut($FTP_Conn, $file, $dir & "news.txt")
   If @error Then
	  MsgBox(48, "Błąd!", "Niepoprawne dane o FTP! Proszę poprawić na poprawne!")
   Else
	  MsgBox(0, "Sukces!", "Ten tekst został poprawnie wysłany na serwer FTP!")
   EndIf
   _FTP_Close($FTP_Open)
   FileDelete($file)
   EndFunc

 

 

 

Wszystkie dane wpisuję poprawnie i wyskakuje error.

[Michu.]

Może porty w kompie poblokowane albo zapora/antywir blokuje

[GameOverMan]

Nie

[matuty]

Nowy Prywatny serwer Ogame

Adres:

hellher.cba.pl

Nowe swiaty : namek(speed 4x),Akson(speed 7x),hellsus(speed 2x)

bugi

przyjazna atmoswera

HellHer Najlepszy serwer jest to nowy,najlepszy prywatny serwer Ogame ja jest przegladarkowa jak Pemiona,Margonem,Ikariam, itp... na uniwers 1 jest speed gry 13,na uniwers 2 speed 7 Jedynego czego potrzebujesz to tylko przegladarka (Polecana jest FireFox) prywatny,serwer,ogame,ikariam,tanoth,szybki,speed,fajna grafika,dluga gra,fajne forum.