Ayuda con un comando inetget

[arkcrew]

Hola amigos,

Tengo un pequeño problema a la hora de descargar unos archivos...

Tengo este code:

Código: Seleccionar todo

For $i = 1 To $var[0]

$file = IniRead(@ScriptDir & "\update.ini" , $var[$i] , "file" , "")

$size = IniRead(@ScriptDir & "\update.ini" , $var[$i] , "size" , "")

inetget("EAV-23353694:tb7m7846vu@http://u41.eset.com" & $file , "\Update\" & $file,1,1)

next

 

el problema está en que no descarga nada.

Alguna idea?

UN saludo

[Chefito]

El orden del link lo has puesto mal. Este es según la ayuda "http://myuser:[email protected]". Fijate un poquitín más .

En tu caso supongo que sería http://EAV-23353694:[email protected] .

Saludos.

[arkcrew]

Es etraño, actualize y sigue sin bajar los archivos

inetget("http://EAV-23353694:[email protected]" & $file , $file,1,1)

[arkcrew]

Dejo el code al completo haber si veis el error

Código: Seleccionar todo

#Include <File.au3>

#Include <Array.au3>

#include <GUIConstantsEx.au3>

#include <ProgressConstants.au3>

#include <IE.au3>







TrayTip("NodGen 2.0" , "Esperando al servidor.."& @CRLF & "" & @CRLF & "Conectando con el servidor.."& @CRLF & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- www.arkcrew.com" ,1,1)

Sleep(2000)

TrayTip("NodGen 2.0" , "Conectado"& @CRLF & "" & @CRLF & "Leyendo archivos..." & @CRLF & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- www.arkcrew.com" ,1,1)

Sleep(2000)



$var = IniReadSectionNames(@ScriptDir & "\update.ini")

ShellExecute("http://EAV-23353694:[email protected]", "" , "" , "" , @SW_HIDE)



For $i = 4 To $var[0]

$file = IniRead(@ScriptDir & "\update.ini" , $var[$i] , "file" , "")

$size = IniRead(@ScriptDir & "\update.ini" , $var[$i] , "size" , "")

inetget("http://u41.eset.com" & $file ,  $file,1,1)

while @inetgetactive

TrayTip("NodGen 2.0" , "Nombre: " & $var[$i] & @lf &"" & _

@lf & "Descargado: " & _

@lf & @InetGetBytesRead & " de " & $size &  " KB" & _

@lf & "" & _

@lf & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- www.arkcrew.com" ,1,1)

sleep(500)

wend

next

exit

 

[Chefito]

No podemos ayudarte, porque aunque nos des todo el código nos falta parte de los links, ya que por lo que veo lo coges de unos archivos .ini.
Danos el archivo update.ini y te podremos ayudar.

Saludos.

[arkcrew]

Aqui os lo dejo:

[Chefito]

Ahí te dejo las modificaciones.

Código: Seleccionar todo

TrayTip("NodGen 2.0" , "Esperando al servidor.."& @CRLF & "" & @CRLF & "Conectando con el servidor.."& @CRLF & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- http://www.arkcrew.com" ,1,1)

Sleep(2000)

TrayTip("NodGen 2.0" , "Conectado"& @CRLF & "" & @CRLF & "Leyendo archivos..." & @CRLF & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- http://www.arkcrew.com" ,1,1)

Sleep(2000)

$var = IniReadSectionNames(@ScriptDir & "\update.ini")

For $i = 4 To $var[0]

    $file = IniRead(@ScriptDir & "\update.ini" , $var[$i] , "file" , "")

    $size = IniRead(@ScriptDir & "\update.ini" , $var[$i] , "size" , "")

    $dirTroceada=StringSplit($file,"/")

    $filename=$dirTroceada[$dirTroceada[0]]

    inetget("http://EAV-23353694:[email protected]" & $file,$filename,1,1)

    while @inetgetactive

        TrayTip("NodGen 2.0" , "Nombre: " & $var[$i] & @lf &"" & _

        @lf & "Descargado: " & _

        @lf & @InetGetBytesRead & " de " & $size &  " KB" & _

        @lf & "" & _

        @lf & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- http://www.arkcrew.com" ,1,1)

        sleep(500)

    WEnd

next

exit



 

Por favor, acostumbraros a indexar los códigos para una mejor lectura....que no cuesta tanto!!!

Saludos.

[arkcrew]

Gracias por todo, eres el amo!!!!!!!!!!!!!!!