Red - My Computer Network - métodos

(Como descargar y subir archivos, hacer ping y chequear si hay conexión a intenet en vb.net)

Método DownloadFile

Formulario que usa el método DownloadFile del objeto My.Computer.Network para descargar un archivo desde una url indicada
Form

Controles

• Un control Button
  
• Un control textbox llamado txt_Url
  
• Un control textbox llamado txt_path_destino

Código fuente en un form

Function Descargar_Archivo(ByVal Url As String, _ ByVal Path_Destino As String) As Boolean If Url = vbNullString Or Path_Destino = vbNullString Then MsgBox("No se indicó la url o el archivo de destino", _ MsgBoxStyle.Critical, "Error") Else If Len(Dir(Path_Destino)) <> 0 Then MsgBox("el archivo destino ya existe.Elija otro destino diferente", _ MsgBoxStyle.Exclamation, "Error") Else On Error Resume Next My.Computer.Network.DownloadFile(Url, Path_Destino) If Err.Number = 0 Then Descargar_Archivo = True Else MsgBox(Err.Description) End If Err.Clear() End If End If End Function Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load Button1.Text = "Download" End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim ret As Boolean ret = Descargar_Archivo(txt_url.Text, txt_path_destino.Text) If ret Then MsgBox("Archivo descargado correctamente", MsgBoxStyle.Information) End If End Sub

Algunos otros parámetros de My.Computer.Network.DownloadFile

• ShowUI : Para ver el cuadro de diálogo de descarga , por defecto está en false y no se visualiza
  
• overwrite : si está en True, el archivo se sobreescribe en caso de que exista
  
• ConnectionTimeout : indica el tiempo en milisegundos, en que se aboratará la operación de descarga en caso de no poder acceder al archivo remoto ( por defecto está en 1 segundo )

Método UploadFile

Este ejemplo coloca un archivo en la dirección ftp indicada, mostrando el diálogo de progreso modal de windows


Código fuente en el form con un control button1
Private Sub Descargar_Archivo(ByVal Url As String, _ ByVal Path_Archivo As String, _ ByVal usuario As String, _ ByVal password As String) ' Controlador de error Try ' Ejecuta el método UploadFile para subir el archivo My.Computer.Network.UploadFile(Path_Archivo, _ Url, _ usuario, _ password, _ True, _ 2500, _ FileIO.UICancelOption.DoNothing) MessageBox.Show("Archivo enviado con éxito", "", _ MessageBoxButtons.OK, MessageBoxIcon.Information) ' error Catch mensaje As Exception MessageBox.Show(mensaje.Message, "", _ MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load Button1.Text = "Upload" End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' le pasa la dirección de destino, el archivo origen, el user y password Call Descargar_Archivo("Dirección ftp + el nombre del archivo de destino", _ "Ruta del archivo a subir", _ "User", _ "pass") End Sub

My.Computer.Network.IsAvailable - saber si hay conexión a internet

Código fuente en un formulario
Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load If My.Computer.Network.IsAvailable = True Then MsgBox("Está conectado a internet") Else MsgBox("No Está conectado a internet") End If End Sub

My.Computer.Network.Pin - Hacer ping a una web

Colocar un control Button
Sub Hacer_Ping(ByVal URL As String) Dim El_Ping As Boolean 'declaramos la variable ' verifica que hay conexión a internet If My.Computer.Network.IsAvailable = False Then MsgBox("No hay conexión a internet", MsgBoxStyle.Critical) Exit Sub End If On Error Resume Next 'guardamos en la variable la direccion del ping El_Ping = (My.Computer.Network.Ping(URL)) 'Acá mandamos los mensajes para las 2 posibilidades If El_Ping = False Then 'si no se pudo acceder ,avisamos MsgBox("La Web no está disponible", MsgBoxStyle.Critical, "Error") Else MsgBox("La Web está disponible !!", MsgBoxStyle.Information, "Aviso") End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Url As String Url = InputBox("Ingrese la url", "Ping") If Url <> "" Then Hacer_Ping(Url) End If End Sub