%windir%/explorer.exe ftp://links:pass@test.exavault.com
netsh advfirewall show global
#include "FiveWin.ch"
Function Main()
ShellExecute(0,0,"%windir%/explorer.exe", "ftp://links:pass@test.exavault.com",0,1) // No funciona o no aparece
__run("%windir%/explorer.exe ftp://links:pass@test.exavault.com") //Si funciona
MsgInfo("Ejecutando ...")
Return NIL
// Testing the FiveWin new Internet Classes
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oInternet := TInternet():New()
local oFTP := TFTP():New("test.exavault.com",oInternet,'links','pass')
local aFiles
if ! Empty( oFTP:hFTP )
aFiles = oFTP:Directory( "*.*" )
AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ], aFile[ 3 ] ) } )
else
MsgAlert( "oFTP:hFTP is null" )
endif
oInternet:End()
MsgInfo( "Done!" )
return nil
//----------------------------------------------------------------------------//
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Antonio Linares, Google [Bot], José, wilsongamboa and 39 guests