muchas gracias amigos, voy a probarlo y os dire como me ha ido, chefito gracias a ti tambien amigo ya estab modificando la segunda respuesta cuando vi tu post
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: ®® en 28 Febrero 2008, 03:41 AMsi, gracias, lo he probado cmo me dices y me ha funcionado jajajaja ha sido muy sencillo.
hombre para el tema que propones el olly si te vale, pero como dices que estas empezando y por lo que es yo usaria el cheat engine y cambias los valores en un momentin.
Private Sub Command1_Click()
'Propiedades para el control inet ( AccessType y URL )
With Inet1
.AccessType = icUseDefault
'Indicamos el url del archivo
.URL = Trim(Text1.Text)
'Indicamos que vamos a descargar o recuperar un archivo desde una url
.Execute , "GET"
End With
End Sub
Private Sub Form_Load()
Command1.Caption = " Descargar "
Me.Caption = " Ejemplo del control Inet para " & _
"descargar un fichero con progreso"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
On Error GoTo Err_Sub
Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
Dim bDone As Boolean
'Para el tamaño del archivo en bytes que se usa para el array
Dim filesize As Long
' Acá almacenamos los datos
Dim vtData As Variant
Select Case State
Case icResponseCompleted
bDone = False
'Para saber el tamaño del fichero en bytes
filesize = Inet1.GetHeader("Content-length")
'Creamos y abrimos un nuevo archivo en modo binario
Open Text2.Text For Binary As #1
' Leemos de a 1 Kbytes. El segundo parámetro indica _
el tipo de fichero. Tipo texto o tipo Binario, en este caso binario
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents
'Si el tamaño del fichero es 0 ponemos bDone en _
True para que no entre en el bucle
If Len(vtData) = 0 Then
bDone = True
End If
With ProgressBar1
.Value = 0
.Max = filesize
End With
Do While Not bDone
'Almacenamos en un array el contenido del archivo que se va leyendo
tempArray = vtData
'Escribimos los datos en el archivo
Put #1, , tempArray
'Leemos datos de a 1 kb (1024 bytes)
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents
'Aumentamos la barra de progreso
ProgressBar1.Value = ProgressBar1.Value + (Len(vtData) * 2)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
Close #1
MsgBox "Archivo descargado correctamente", vbInformation
ProgressBar1.Value = 0
End Select
Exit Sub
Err_Sub:
MsgBox Err.Description, vbCritical
On Error Resume Next
Inet1.Cancel
ProgressBar1.Value = 0
End Sub