Página 1 de 1
Ayuda con un comando inetget
Publicado: 26 Oct 2009, 17:39
por 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
Re: Ayuda con un comando inetget
Publicado: 26 Oct 2009, 18:21
por 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.
Re: Ayuda con un comando inetget
Publicado: 26 Oct 2009, 19:00
por arkcrew
Es etraño, actualize y sigue sin bajar los archivos
inetget("
http://EAV-23353694:[email protected]" & $file , $file,1,1)
Re: Ayuda con un comando inetget
Publicado: 26 Oct 2009, 19:11
por 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
Re: Ayuda con un comando inetget
Publicado: 26 Oct 2009, 20:10
por 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.
Re: Ayuda con un comando inetget
Publicado: 26 Oct 2009, 20:18
por arkcrew
Aqui os lo dejo:
Re: Ayuda con un comando inetget
Publicado: 26 Oct 2009, 21:07
por 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.
Re: Ayuda con un comando inetget
Publicado: 26 Oct 2009, 21:24
por arkcrew
