Locked HttpWebRequest tutorial (para principiantes)

[dEEpEst]

Credits: igoe

 

 

[HIDE-THANKS]

Hola chicos,

 

Como algunas personas han querido así un tutorial. :)

 

Hoy quiero mostrarles cómo iniciar sesión en un lado con la clase HttpWebRequest

Obras (en este caso vb community.eu), y por lo tanto se ve si el inicio de sesión de la página.

 

Lo que primero necesitamos:

 

Encabezados HTTP Live (descarga):

This is the hidden content, please

• Sign In
• or
• Sign Up

 

En primer lugar, observamos la página

This is the hidden content, please

• Sign In
• or
• Sign Up

, donde veremos el enlace

"Registrar" - En este enlace hacemos clic en él una vez con la rueda del ratón.

 

Si usted ha hecho clic en él porque se ve el inicio de sesión para la comunidad vb!

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Pero antes de continuar, sólo empezamos veces LiveHTTPHeaders!

Para hacerlo pasar por debajo de Firefox> Herramientas> Live HTTP Headers.

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Aquí usted tiene que asegurarse de que está situado en la grabación del gancho.

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Así que ahora tenemos la base para el puesto con el corte. Pero usted tiene que vivir encabezado http se puede abrir!

Ahora se necesita una cuenta para el lado que te ves.

Usted da uno de los datos de la cuenta y empuja Registrarse.

(Por favor, asegúrese de que los encabezados HTTP Live está abierto!)

 

Ahora su cabecera http vivo tiene por supuesto el corte de correos, y eso se ve así:

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Aquí tienes en "Save All" y la guarda, por lo que ahora llega al código ;) Primero, importamos:

 

[LENGUAJE=vb.net]Imports System.IO, System.Net, System.Text[/LENGUAJE]

 

Ahora declaramos primeros dos variables, es decir, del usuario y pwd. (En Form_Load)

 

[LENGUAJE=vb.net]Dim User = "", Pwd = ""[/LENGUAJE]

 

Como nächtest viene el trozo de código donde se especifica qué sitio web que queremos para nosotros firmar.

 

[LENGUAJE=vb.net]Dim Request As HttpWebRequest = CType(WebRequest.Create(""), HttpWebRequest) [/LENGUAJE]

 

hacemos a:

 

[LENGUAJE=vb.net]Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.vb-community.eu/index.php?form=UserLogin"), HttpWebRequest)[/LENGUAJE]

 

Dado que la url está bajo el hombre será capaz de iniciar la sesión.

La url Encuentra hombre haciendo clic derecho sobre "Registro" marcas y luego copiarlo a vincular dirección!

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Ahora añadirá, Método y ContentType ha añadido:

 

[LENGUAJE=vb.net]Request.Method = "POST" Request.ContentType = "application/x-www-form-urlencoded"[/LENGUAJE]

 

Estado:

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Ahora añadimos incluso una gruesa un blog.

 

[LENGUAJE=vb.net]Dim Post As String = "" Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post) Request.ContentLength = byteArray.Length Dim DataStream As Stream = Request.GetRequestStream() DataStream.Write(byteArray, 0, byteArray.Length) DataStream.Close()[/LENGUAJE]

 

En la variable "Post" es la oficina de correos, ahora se abre el archivo de texto que previamente

'Ve Guardado, y se ve a través de las teclas Ctrl + f donde la contraseña está en el archivo de texto.

 

Para mí es la serie en: "Content-Length".

 

Mi código es:

[LENGUAJE=vb.net]loginUsername=MEINBENUTZERNAME&loginPassword=MEINPASSWORT&useCookies=1&url=[/LENGUAJE]

 

Dondequiera mi usuario y mi contraseña es porque normalmente los datos de la cuenta!

 

Cambiamos el código ahora para que después nos podemos determinar los datos de la cuenta del usuario variable & pwd.

 

A saber, en:

[LENGUAJE=vb.net]Dim Post As String = "loginUsername=" & User & "&loginPassword=" & Pwd & "&useCookies=1&url="[/LENGUAJE]

 

 

Ahora añadimos otra vez una gruesa un blog:

[LENGUAJE=vb.net]Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)

Request.ContentLength = byteArray.Length

Dim DataStream As Stream = Request.GetRequestStream()

DataStream.Write(byteArray, 0, byteArray.Length)

DataStream.Close() [/LENGUAJE]

 

El texto original, que se obtiene con:

[LENGUAJE=vb.net]Dim Response As HttpWebResponse = Request.GetResponse()

DataStream = Response.GetResponseStream()

Dim reader As New StreamReader(DataStream)

Dim ServerResponse As String = reader.ReadToEnd()

reader.Close()

DataStream.Close()

Response.Close()[/LENGUAJE]

 

Entonces el código se vería así:

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Y ahora llegamos finalmente a la consulta ya mencionado anteriormente si una palabra definida en la página después de iniciar sesión es. Y puesto que ya nos hemos traído el código fuente se puede comprobar con bastante comodidad a través InStr eso también.

 

Por consiguiente, nuestro código es:

[LENGUAJE=vb.net]If InStr(ServerResponse, "Sie wurden erfolgreich angemeldet.") Then

MessageBox.Show("Login OK")

Else

MessageBox.Show("Login nicht OK")

End If[/LENGUAJE]

 

El ". Has registrado correctamente" Si tomo de la tierra porque la página siguiente es este el registro que viene después:

This is the hidden content, please

• Sign In
• or
• Sign Up

 

El código en el circuito debería tener este aspecto:

[LENGUAJE=vb.net]Imports System.IO, System.Net, System.Text

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim User = "igoe", Pwd = ""

Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.vb-community.eu/index.php?form=UserLogin"), HttpWebRequest)

Request.Method = "POST"

Request.ContentType = "application/x-www-form-urlencoded"

Dim Post As String = "loginUsername=" & User & "&loginPassword=" & Pwd & "&useCookies=1&url="

Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)

Request.ContentLength = byteArray.Length

Dim DataStream As Stream = Request.GetRequestStream()

DataStream.Write(byteArray, 0, byteArray.Length)

DataStream.Close()

Dim Response As HttpWebResponse = Request.GetResponse()

DataStream = Response.GetResponseStream()

Dim reader As New StreamReader(DataStream)

Dim ServerResponse As String = reader.ReadToEnd()

reader.Close()

DataStream.Close()

Response.Close()

If InStr(ServerResponse, "Sie wurden erfolgreich angemeldet.") Then

MessageBox.Show("Login OK")

Else

MessageBox.Show("Login nicht OK")

End If

End Sub

End Class[/LENGUAJE]

 

Si usted recibe el programa ahora comienza entonces le dije que si sus datos son correctos!

 

Espero que usted entiende el tutorial, y pude transmitirles todo bien.

[/HIDE-THANKS]