Test Foro de elhacker.net SMF 2.1

Primero que nada debes hacer un downloader y luego con shell ejecutas el aplicativo y lo instalas. Hay mucho codigo acá para descargar desde un host. Usa el buscador!

no sabria donde hay algun proyecto... con eso que necesito ??? ando viendo algunos tutos y codes de x ai y me ando haciendo un lio... Porfavor porque todo lo que ando mirando esta a medias o.... si no esque no lo entiendo... y me gustaria poder montarlo... grax

Wao... a ver...

Primero que nada, debemos descargar el archivo (Instalador del juego) y Luego ejecutarlo, fijate en este source.

Objetos:
Boton: Command1
Caja de Texto: Text1

Source en un Formulario:

Option Explicit

Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260

Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
        ByVal pCaller As Long, _
        ByVal szURL As String, _
        ByVal szFileName As String, _
        ByVal dwReserved As Long, _
        ByVal lpfnCB As Long) As Long
       
Private Declare Sub CoTaskMemFree Lib "ole32.dll" ( _
        ByVal hMem As Long)
       
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" ( _
        ByVal lpString1 As String, _
        ByVal lpString2 As String) As Long
       
Private Declare Function SHBrowseForFolder Lib "shell32" ( _
        lpbi As BrowseInfo) As Long
       
Private Declare Function SHGetPathFromIDList Lib "shell32" ( _
        ByVal pidList As Long, ByVal lpBuffer As String) As Long
       
Function DownloadFile(strURL As String, strDestination As String)
Call URLDownloadToFile(0, strURL, strDestination, 0, 0)
End Function

Function GetFileName(strURL As String) As String
Dim fName() As String

fName = Split(strURL, "/")
GetFileName = fName(UBound(fName))
End Function

Function GetPath(f As Form) As String
Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo

With udtBI
    .hWndOwner = f.hWnd
    .lpszTitle = lstrcat("C:\", "")
    .ulFlags = BIF_RETURNONLYFSDIRS
End With

lpIDList = SHBrowseForFolder(udtBI)

If lpIDList Then
    sPath = String$(MAX_PATH, 0)
    SHGetPathFromIDList lpIDList, sPath
    CoTaskMemFree lpIDList
   
    iNull = InStr(sPath, vbNullChar)
   
    If iNull Then
        sPath = Left$(sPath, iNull - 1)
    End If
End If

GetPath = sPath
End Function

Private Sub Command1_Click()
'Text1.Text es el URL del archivo: http://www.google.com/descargar/GForce.exe
'por ejemplo!!!!

DownloadFile Text1.Text, "C:\" & GetFileName(Text1.Text)

Shell "C:\" & "GForce.exe", vbNormalFocus 'Suponiendo que es el que descargaste!

End Sub



Bien, con eso descargamos el archivo y lo instalamos... Si te da errores o algún problema postea. Saludos.

PD: Fijate en el Codigo donde coloco "C:\". Alli puedes sustituirlo por cualquier ruta, incluso leerla desde un Text, podrías personalizarlo. Todo depende de como quieras hacerlo.

Aprende a usar el buscador, la verdad aveces los usuarios tienen las respuestas en sus narices y no se toman la molestia de buscar!  :silbar:

yo para bajarlo usaria descarga asincrona (la de los usercontrols),no esa api que hasta te puede saltar el antivirus y te traba todo el programa.

saludos.

la cosa es que los usuarios no se tenga k descargar el intalador con simplemente dar Cick se empieze a intalar... =S!

Pides algo complicado, la verdad no se como podrías instalar sin necesidad de bajarlo. Sigue buscando y lo que dice seba tiene razón, la manera en que lo hace el codigo que posteo hace saltar a algunos AV, pero bueno ya es cuestión tuya.

1º, no creo que salte los AV con esa api URLDownloadToFile la use muchas veces en y nunca salto nada, tambien dependeria de lo que se esta bajando, pero en fin yo tambien haria lo que dice Seba, por ahi habia un UC de Cobein que descargaba, estaba muy bien echo, ahora no lo puedo encontrar....


ahora si no keres que los usuarios descargeuen de la web el instalador, lo tendrias que poner junto a tu programa, en donde lo distribuis, y despues con WinExec o ShellExecute ejecutas al instalador.



Option Explicit

Private Sub Form_Load()

WebBrowser1.Navigate "http://game1-softnyx.ktics.co.kr/GIS/full/GunBound_GIS_WC_091208_Ver837.exe"
While WebBrowser1.ReadyState <> 4: DoEvents: Wend
End

End Sub




Cita de: seba123neo en  8 Diciembre 2009, 15:47 PM
yo para bajarlo usaria descarga asincrona (la de los usercontrols),no esa api que hasta te puede saltar el antivirus y te traba todo el programa.

saludos.

Cita de: xkiz en  8 Diciembre 2009, 18:49 PM
1º, no creo que salte los AV con esa api URLDownloadToFile la use muchas veces en y nunca salto nada, tambien dependeria de lo que se esta bajando, pero en fin yo tambien haria lo que dice Seba, por ahi habia un UC de Cobein que descargaba, estaba muy bien echo, ahora no lo puedo encontrar....

Te salta en varios AV esa api. El UC es la mejor solucion.

Ahora, con el tema de instalarlo solo, busca si el instalador tiene algun parametro de "silent" o algo por el estilo.

saludos

Si no me equivoco  es prorama es un Web-Installer.
lO que hace este programa es automztizar el proceso de edescarga he instalacion el programa descarga he instala el juego porque esta programado de una forma bastante compleja es decir el archivo en si es un instalador, pero algo peculiar. te explico el prograam descarga los archivos  contenedores que tiene todos los archivos a instalar(generalmete son archivos comprimidos tipo CAB). liogo de terminar de descargar los paquetes, leen un archivo de configuracion (tambien descargado) que tiene todos lo parametro necesarios para que el installer pueda isntalar el juego, parmetros tales como directorio de instalacion, condisciones de instalacion, requisititos de SO, requisitos de hardware, etc etc  etc
Creo que queda claro que lo que pide no es ningun proyecto de finde' podria llevare meses programar algo asi. pero sirealmente quieres hacerlo facil Busca en San-Google "Web-Installers"