Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/09/2005, 13:31
Dynk
 
Fecha de Ingreso: enero-2004
Mensajes: 310
Antigüedad: 20 años, 4 meses
Puntos: 0
Buenas netoec, si que es posible...
Te pasteo un codigo que uso yo para actualizar la ip de mi servidor via web.

Try
ClienteWeb = New System.Net.WebClient
ClienteWeb.BaseAddress = "www.mistrucos.net" 'WEB DONDE KIERES ACTUALIZAR
Dim ContrasenaEnBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(txtContrasena) 'Contraseña k kieres logar
Dim ResultadoMD5 As String = System.BitConverter.ToString(md5CryptoObject.Compu teHash(ContrasenaEnBytes)).Replace("-", "").ToLower()
ClienteWeb.QueryString.Add("enctype", "MD5")
ClienteWeb.QueryString.Add("n", txtUsr.Text) 'usuario
ClienteWeb.QueryString.Add("p", ResultadoMD5)
remoteUri = "onlineService.php" 'WEB REMOTA (Recuerda que ya tienes la baseAdress, x lo k falta definir la pagina
Dim bytesResultado As Byte() = ClienteWeb.DownloadData(remoteUri)
Dim ResultadoSinAnd As String = System.Text.Encoding.ASCII.GetString(bytesResultad o)
ResultadoSinAnd = ResultadoSinAnd.Remove(0, 1)
ResultadoSinAnd = ResultadoSinAnd.Remove((ResultadoSinAnd.Length - 1), 1)
Dim Resultado As String() = System.Text.Encoding.ASCII.GetString(bytesResultad o).Split("&")

Dim Parte As String
For Each Parte In Resultado

If Parte <> "" Then

Dim ResultadoDoble = Parte.Split("=")

Dim SeEjecutoBien As Boolean = True

Select Case ResultadoDoble(0)
Case "resultat"
Select Case ResultadoDoble(1)
Case "errorlogin"
'Me.lstIP.Items.Add("Error con el nombre o contraseña")
Me.tmrActualizador.Enabled = False
SeEjecutoBien = False

Case "badip"
'Me.lstIP.Items.Add("Error con la renovación de la ip")
'MsgBox("La Autentificación fué realizada\ncon éxito; pero la ip fué\nreconocida como inválida")
SeEjecutoBien = False

Case "newip"
'Me.lstIP.Items.Add(Date.Now)
SeEjecutoBien = True

End Select

If SeEjecutoBien = True Then
'Me.lstIP.Items.Add("Actualización Realizada. IP: " & ResultadoDoble(1))
'statusBarIcon.Text="Su dominio esta apuntando a: " + ResultadoDoble[1];
End If

End Select

End If
Next
ClienteWeb.Dispose()
ClienteWeb = Nothing
Catch
ClienteWeb.Dispose()
ClienteWeb = Nothing
End Try

Recuerda que tendras que modificar los nombres de los controles de la web del origen
__________________
Un saludo,
Trucos
Videos