[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

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

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

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

 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