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ú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
Cita de: SimP.- en 22 Junio 2011, 01:47 AM
PERO NO LIBERARÉ EL CÓDIGO !! XD
Cita de: dimitrix en 21 Junio 2011, 13:34 PM
Finalmente usan Windows 3.11
Cita de: WHK en 20 Junio 2011, 21:09 PM
Y el sistema operativo de esa supercommputadora? creo que es Solaris?