Mensajes

me puedes  decir  un ejemplo mas o menos  amigo por favor

A ver si me  explico mejor tengo un archivo  llamado  Updates.ini o  Updates.cfg

Código [Seleccionar] Expandir

[Updates]

\ATL80.dll
\CompressATI.dll
\CompressATI2.dll
\Cry3DEngine.dll
\CryAnimation.dll
\CryEntitySystem.dll
\CryFont.dll
\CryInput.dll
\CryMovie.dll
\CryPhysics.dll
\CryScriptSystem.dll
\CrySoundSystem.dll
\DataServer.exe
\IpFixModule.dll
\LICENSES.txt
\Microsoft.VC80.ATL.manifest 
\Microsoft.VC80.CRT.manifest   
\Microsoft.VC80.MFC.manifest
\ScriptDLL.dll
\SendLogClient.exe
\TextEngine.dll
\XRenderD3D9.dll
\aion.bin
\beecrypt.dll
\binkw32.dll
\config.ini
\crysystem.dll
\d3dx9_38.dll
\dbghelp.dll
\fmodex.dll
\game.dll 
\ijl15.dll 
\libeay32.dll
\mfc80.dll 
\mfc80u.dll 
\mfcm80.dll
\mfcm80u.dll
\msvcm80.dll
\msvcp80.dll 
\msvcr71.dll
\msvcr80.dll 
\srcsrv.dll
\ssleay32.dll 
\symsrv.dll

Ahora todos esos a rchivos los tengo en internet. estuve  buscando en google y aqui en  este foro consegui este  codigo pero  resulta que me descarga  1  solo archivo .

Código [Seleccionar] Expandir

Private Sub Entrar_Click()
Download.Value = 0
Inet1.AccessType = icUseDefault
Inet1.URL = "http://miweb.com/Updates/bin32/"
Inet1.Execute , "GET" 'Indicamos que vamos a descargar o recuperar un _
archivo desde una url

End Sub


Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant 'acá almacenamos los datos

Select Case State

Case icResponseCompleted
Dim bDone As Boolean: bDone = False
Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
'Para saber el tamaño del fichero en bytes
filesize = Inet1.GetHeader("Content-length")
'Establecemos el Max del = a al tamaño del archivo
Download.Max = filesize
contenttype = Inet1.GetHeader("Content-type")
'Creamos y abrimos un nuevo archivo en modo binario
Open App.Path + "\ATL80.dll" For Binary Access Write As #1
Open App.Path + "\CompressATI.dll" For Binary Access Write As #1
Open App.Path + "\CompressATI2.dll" For Binary Access Write As #1
Open App.Path + "\Cry3DEngine.dll" For Binary Access Write As #1
Open App.Path + "\CryAnimation.dll" For Binary Access Write As #1
Open App.Path + "\CryEntitySystem.dll" For Binary Access Write As #1
Open App.Path + "\CryFont.dll" For Binary Access Write As #1
Open App.Path + "\CryInput.dll" For Binary Access Write As #1
Open App.Path + "\CryMovie.dll" For Binary Access Write As #1
Open App.Path + "\CryPhysics.dll" For Binary Access Write As #1
Open App.Path + "\CryScriptSystem.dll" For Binary Access Write As #1
Open App.Path + "\CrySoundSystem.dll" For Binary Access Write As #1
Open App.Path + "\DataServer.exe" For Binary Access Write As #1
Open App.Path + "\IpFixModule.dll" For Binary Access Write As #1
Open App.Path + "\LICENSES.txt" For Binary Access Write As #1
Open App.Path + "\Microsoft.VC80.ATL.manifest" For Binary Access Write As #1
Open App.Path + "\Microsoft.VC80.CRT.manifest" For Binary Access Write As #1
Open App.Path + "\Microsoft.VC80.MFC.manifest" For Binary Access Write As #1
Open App.Path + "\ScriptDLL.dll" For Binary Access Write As #1
Open App.Path + "\SendLogClient.exe" For Binary Access Write As #1
Open App.Path + "\TextEngine.dll" For Binary Access Write As #1
Open App.Path + "\XRenderD3D9.dll" For Binary Access Write As #1
Open App.Path + "\aion.bin" For Binary Access Write As #1
Open App.Path + "\beecrypt.dll" For Binary Access Write As #1
Open App.Path + "\binkw32.dll" For Binary Access Write As #1
Open App.Path + "\config.ini" For Binary Access Write As #1
Open App.Path + "\crysystem.dll" For Binary Access Write As #1
Open App.Path + "\d3dx9_38.dll" For Binary Access Write As #1
Open App.Path + "\dbghelp.dll" For Binary Access Write As #1
Open App.Path + "\fmodex.dll" For Binary Access Write As #1
Open App.Path + "\game.dll" For Binary Access Write As #1
Open App.Path + "\ijl15.dll" For Binary Access Write As #1
Open App.Path + "\dbghelp.dll" For Binary Access Write As #1
Open App.Path + "\libeay32.dll" For Binary Access Write As #1
Open App.Path + "\mfc80.dll" For Binary Access Write As #1
Open App.Path + "\mfc80u.dll" For Binary Access Write As #1
Open App.Path + "\mfcm80.dll" For Binary Access Write As #1
Open App.Path + "\mfcm80u.dll" For Binary Access Write As #1
Open App.Path + "\msvcm80.dll" For Binary Access Write As #1
Open App.Path + "\msvcp80.dll" For Binary Access Write As #1
Open App.Path + "\msvcr71.dll" For Binary Access Write As #1
Open App.Path + "\msvcr80.dll" For Binary Access Write As #1
Open App.Path + "\srcsrv.dll" For Binary Access Write As #1
Open App.Path + "\ssleay32.dll" For Binary Access Write As #1
Open App.Path + "\symsrv.dll" For Binary Access Write 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

Do While Not bDone
'Almacenamos en un array el contenido del archivo
tempArray = vtData
'Escribimos el archivo en disco
Put #1, , tempArray
'Aumentamos la barra
Download.Value = Download.Value + Len(vtData) * 2
' Leemos de pedazos de a 1 kb (1024 bytes)
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents

If Len(vtData) = 0 Then
bDone = True
End If
Loop

Close #1
Download.Value = 0

End Select
End Sub

Espero que me puedan ayudar

Holas  amigos  a ver si me pueden ayudar  quiero  ver si se puede hacer que  decargue  una lista de  archivos desde  un  .ini o cfg, estoy usando un progressbar. pero no logro  hacer que me  funcione  y que me descargen a ver  si me pueden ayudar por favor

ole  gracias tio  me  ayuda bastante lo que me pasaste xD

me puedes  decir como lo hago por necesito hacer  eso por favor

Este es mi Codigo Fuente  de mi Form  de Registro

Código [Seleccionar] Expandir

Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Private Sub connect()
Dim IPMysql  As String
Dim SelectBD As String
Dim User As String
Dim Password As String

Set BD = New ADODB.Connection
BD.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _
IPMysql = "127.0.0.1" 'IP Del Mysql '
SelectBD = "ae_server_ls" 'Selecion de la  Base de Datos'
User = "root" ' Usuario de la Base de Datos'
Password = "synopsis" 'Password de la Base de Datos'
BD.Open

End Sub
Private Sub ButtonTransparent1_Click(Index As Integer)
Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
        '//abrir la conexion a mysql (conConexion)
        BD.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _
        IPMysql = "127.0.0.1" 'IP Del Mysql '
        SelectBD = "ae_server_ls" 'Selecion de la  Base de Datos'
        User = "root" ' Usuario de la Base de Datos'
        Password = "synopsis" 'Password de la Base de Datos'
        BD.Open
    With rs
        '//establecer la conexion
        .ActiveConnection = conConexion
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "INSERT INTO Registro(campos) VALUES(id_personal,acc_id,name,email,birth)"
        If .State Then .Close
        '//cerrar la conexion
        If conConexion.State Then conConexion.Close
    End With
    Set rs = Nothing
End Sub

Private Sub ButtonTransparent2_Click()
On Error GoTo Ver
Set RecBD = New ADODB.Recordset
RecBD.Open "SELECT * from account_data,name,id, BD, adOpenStatic, adLockOptimistic"

While Not RecBD.EOF
  MsgBox "Ya Existe Ese  ID"
Wend
End Sub

Private Sub ButtonTransparent3_Click()
Form2.Hide
End Sub

me podrias  explicar por favor  como lo hago ???

Estoy Haciendo un Launcher Donde  del Mismo Se Pueda Hacer un registro de de los  usuarios pero  cuando le doy a registrar este es mi codigo, Para base de datos estoy usando es Mysql

Código [Seleccionar] Expandir

Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Private Sub connect()
Dim IPMysql  As String
Dim User As String
Dim Password As String

Set BD = New ADODB.Connection
BD.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _
IPMysql = "127.0.0.1" 'IP Del Mysql '
User = "root" ' Usuario de la Base de Datos'
Password = "root" 'Password de la Base de Datos'
BD.Open

End Sub


Private Sub ButtonTransparent1_Click(Index As Integer)

Set RecSQL = New ADODB.Recordset

RecSQL.Open "INSERT INTO Registro (Account_id, Password, Nombre,Email, Birth_Date) VALUES (" & Val(Text1) & ",'" & Text2 & ", " & Text3 & ", " & Text4 & ", " & Text5 & ", " & Text6 & ", " & Text7 & ", " & Text8 & "')", BD, adOpenStatic, adLockOptimistic ----> Esta Linea Sale  Resaltada

Set RecSQL = Nothing

Form2.Hide
End Sub

como puedo hacer que mi proyecto sea configurable por un archivo .ini, donde  coloco los url de la  web y de  los archivos a descargar

aqui coloco un codigo que consegui pero me da error al parecer el codigo es  en visual basic.net

Código [Seleccionar] Expandir

Configuramos nuestra ProgressBar1
        With ProgressBar1
            .Minimum = 1
            .Maximum = 100000
            .Value = 1
            .Step = 1

            For i As Integer = .Minimum To .Maximum

                .PerformStep()
            Next i
            ' Aqui llamamos al ejecutable osea "Main.exe"
            System.Diagnostics.Process.Start(My.Application.Info.DirectoryPath & "\main.exe")
            ' Este evento ya lo conosen cierra la aplicacion despues de aver ejecutado el "main.exe"
            Me.Close()
        End With

    End Sub

como hago para pasarlo a visual basic 6.0, el codigo  hace que la barra progressbar funcione como un actualizador, al terminar de actualizar el habilita el boton de comenzar