Peterpay... Usé lo que me decías...
Con ayuda de google cree la siguiente función.
A esta función le envio la url a visitar y los parametros de ser necesario.
Luego me devuelve el código fuente. El cúal por un lado lo envio a un webbrowser para que lo interprete y el usuario lo vea, y por otro lado lo analizo en busca de términos determinados.
Código:
Public Function code(ByVal myurl As String, ByVal mypostdata As String) As String
'WebRequest/WebResponse
Dim Request As Net.WebRequest = Net.WebRequest.Create(myurl)
Request.Method = "GET"
Request.ContentType = "application/x-www-form-urlencoded"
'Request.Method = "POST"
'Request.ContentType = "Content-Type=text/html; charset=ISO-8859-1"
Dim RequsetStream As IO.Stream = Request.GetRequestStream()
Dim ASCIIEncoding As New System.Text.ASCIIEncoding
Dim PostData As Byte() = ASCIIEncoding.GetBytes(mypostdata)
RequsetStream.Write(PostData, 0, PostData.Length)
RequsetStream.Close()
Dim response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
Dim response2 As WebResponse = CType(Request.GetResponse(), HttpWebResponse)
Dim CodigoError As String = response.StatusCode
Dim DescripcionError As String = response.StatusDescription
Dim Reader As New IO.StreamReader(Request.GetResponse().GetResponseStream())
code = Reader.ReadToEnd()
response.Close()
Return code
End Function
Aun tengo varias dificultades, entre ellas que para hotmail no funciona, y para algunas web no permite usar esta función... Apenas determine cual es el error les pregunto en el foro si saben como saltearlo...
