realidad, usted no tiene que hacer este lado del servidor (VB), simplemente HTML plano hará el truco:
<html>
<body>
<form action="http://google.com" method="post">
<input type="hidden" value="somevalue"/>
<input Type="submit" value="Submit"/>
</form>
</body>
</html>
esto va a publicar los datos (y en efecto, redirigir) a google.com.
Quizás podría utilizar el script del cliente (jQuery) - $ .ajax() o $ .post(). pero creo que enfrentarás restricciones de dominios cruzados (hay una solución pero no es tan clara y directa).
Otro está utilizando la clase HttpWebRequest. Esto es del lado del servidor y la publicación se originará desde su servidor en lugar del cliente (como lo hará el primer enfoque). al realizar la solicitud request.GetResponse(), puede recuperar el resultado del servidor remoto y presentarlo en su página. Pero si desea publicar y redirigir a la URL remota, entonces creo que debería usar el primer acercamiento.
EDIT:
probar esto en VB:
Option Infer On
Imports System.Net
Imports System.Text
Public Class Test
Private Sub TESTRUN()
Dim s As HttpWebRequest
Dim enc As UTF8Encoding
Dim postdata As String
Dim postdatabytes As Byte()
s = HttpWebRequest.Create("http://www.textmarketer.biz/gateway/")
enc = New System.Text.UTF8Encoding()
postdata = "username=*****&password=*****&message=test+message&orig=test&number=447712345678"
postdatabytes = enc.GetBytes(postdata)
s.Method = "POST"
s.ContentType = "application/x-www-form-urlencoded"
s.ContentLength = postdatabytes.Length
Using stream = s.GetRequestStream()
stream.Write(postdatabytes, 0, postdatabytes.Length)
End Using
Dim result = s.GetResponse()
End Sub
End Class
update2:
una petición GET utilizando HttpWebRequest en VB.net.
Dim s As HttpWebRequest
Dim username = "username=" + HttpUtility.UrlEncode("yourusername")
Dim password = "password=" + HttpUtility.UrlEncode("[email protected])!==&@(*#)[email protected]#(_")
Dim message = "message=" + HttpUtility.UrlEncode("yourmessage")
Dim orig = "orig=" + HttpUtility.UrlEncode("dunno what this is")
Dim num = "number=" + HttpUtility.UrlEncode("123456")
Dim sep = "&"
Dim sb As New StringBuilder()
sb.Append(username).Append(sep).Append(password).Append(sep)
sb.Append(message).Append(sep).Append(orig).Append(sep).Append(num)
s = HttpWebRequest.Create("http://www.textmarketer.biz/gateway/?" + sb.ToString())
s.Method = "GET"
Dim result = s.GetResponse()
el ejemplo que publicó no 'POST' los datos. Esa es una solicitud GET (los datos están en la cadena url/consulta). Si necesita POSTAR, como dice, eche un vistazo a mi respuesta modificada a continuación. – Mel