Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Aquí comparto un fragmento de código para resolver una dirección URL.
El diseño de la aplicación web es simple. Coloque 2 controles Textbox en el formulario, uno para dirección de origen y el otro para la dirección resuelta. También coloque un botón para activar el proceso y asocie el siguiente código con el botón.
No se olvide de incluir una referencia al espacio de nombres Imports System.Net
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = TextBox1.Text
Try
Dim request As HttpWebRequest = DirectCast(WebRequest.Create(str), HttpWebRequest)
request.AllowAutoRedirect = True
request.Method = "HEAD"
Try
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
If response.StatusCode <> HttpStatusCode.OK Then
'HTTP 404 o error
End If
TextBox2.Text = response.ResponseUri.ToString()
Catch
'HTTP 404 o error
End Try
request.Abort()
Catch
'HTTP 404 o error
End Try
End Sub