Menú

Mostrar Mensajes

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ú

Mensajes - seba123neo

#1172
Hola, te paso un ejemplo de lo que queres, haber si te sirve, lo que hace es al detectar una URL terminada en la extensión del archivo a descargar (por ejemplo .zip, .rar o .exe) lo que hace es cancelar esa ventana del internet explorer y mostrarte una ventana propia propia (crea un SaveFileDialog) donde vos le pones el nombre que quieras y lo guardas, la descarga se hace en segundo plano mediante WebClient().

Código (vbnet) [Seleccionar]
Imports System.Net

Public Class Form1

    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        If e.Url.Segments(e.Url.Segments.Length - 1).EndsWith(".exe") Then

            e.Cancel = True

            Dim vPath As String = ""

            Dim vFileSave As New SaveFileDialog

            vFileSave.FileName = e.Url.Segments(e.Url.Segments.Length - 1)

            If vFileSave.ShowDialog() = DialogResult.OK Then

                vPath = vFileSave.FileName

                Dim vCliente As New WebClient()

                AddHandler vCliente.DownloadProgressChanged, AddressOf ProgresoDescarga
                AddHandler vCliente.DownloadFileCompleted, AddressOf DescargaCompleta

                vCliente.DownloadFileAsync(e.Url, vPath)
            End If
        End If
    End Sub

    Private Sub DescargaCompleta(ByVal sender As Object, ByVal e As EventArgs)
        MessageBox.Show("Descarga Completa")
    End Sub

    Private Sub ProgresoDescarga(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)

        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
        Dim percentage As Double = bytesIn / totalBytes * 100

        Me.Text = "Progreso Completado: " & Integer.Parse(Math.Truncate(percentage).ToString()) & " %"
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://releases.mozilla.org/pub/mozilla.org/firefox/releases/5.0/win32/es-AR/Firefox%20Setup%205.0.exe")
    End Sub
End Class


este ejemplo descarga del FTP de mozilla firefox, el .exe de la version 5.0

tiene 2 manejadores de eventos, uno para la descarga completada y el otro para el progreso (que te lo muestra en la barra de titulo).

hasta si queres podes sacarle que no cree la ventana, y que lo ponga en el path que vos le digas, ahi si no tendria que apretar nada el usuario.

saludos.
#1173
yo lo haria con la misma api de google maps, en vez de asi con el webbrowser, la misma api tiene para realizar busquedas y obtener los resultados en formato JSON o XML los cuales son faciles de leer.
#1174
primero necesito saber para que es el programa, o sea que funcion tiene ?? porque si es la api de goolge maps te podes hacer vos un programa que la use como si fuera el mismo google maps.
#1175
en este subforo es asi, FAQ'S = foro de visual basic
#1176
Cita de: SimP.- en 22 Junio 2011, 01:47 AM
PERO NO LIBERARÉ EL CÓDIGO !! XD

si no pones el codigo te lo van a mover de foro, ya que aca solo se publican programas con codigo, de otra manera va en el foro de software.
#1177
si siguen asi van a hacer un topic de 50 paginas, porque no resumimos esto en pocas palabras ?, TODOS LOS JUEGOS DE NES LA ROMPEN... creo que la diversion de un juego de NES es comparable tranquilamente a uno de playstation o de consolas mas grandes, ya que para mi por mas grafico que tengan, el objetivo es divertirse y que el juego te divierta, y para divertirse no hacen falta graficos, y la NES demuestro eso.
#1178
Cita de: dimitrix en 21 Junio 2011, 13:34 PM
Finalmente usan Windows 3.11

exacto, como pude haberme olvidado de eso.  :xD
#1179
no hay diferencia en la interfaz, son cambios internos, bugs arreglados..etc, esta es la lista de cambios.

Release Notes

igual me parece una guasada el cambio de numero de la version, me gustaba mas que lo hagan tipo 4.0.4, aumentar un numero de version completo es casi hacerlo de nuevo.
#1180
Cita de: WHK en 20 Junio 2011, 21:09 PM
Y el sistema operativo de esa supercommputadora? creo que es Solaris?

naaa, windows XP  ;D