Pobieranie Danych z Przekierowania Login Hasło

[konrad2904]

Witam więc czy można zrobić coś takiego ze loguje sie ze programu na stronie i zeby w programie otworzyło inna forme...

zeby textbox1 i textbox2 wpisało do tych co są na stronie textboxow login i hasło jak klikam ok i strona przekieruje mnie to forma 2 sie otwiera...

[Gość Pan Szymek]

Robisz httpwebrequest z danych, które masz w TB1 i TB2 i sprawdzasz, czy w response jest jakiś fragment, który występuje tylko po zalogowaniu.

[konrad2904]

znalazłem ten kod na internecie...

 

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 = "login", Pwd = "password"

Dim Request As HttpWebRequest = CType(WebRequest.Create("www.strona.pl/login.php"), 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") 'Form2.Show

Else

MessageBox.Show("Login nicht OK")

End If

End Sub

End Class

 

 

tylko ja bym wolał z textboxami i zeby KAŻDY mógł własnym kontem sie zalogować...

mam nadzieje ze mi pomożecie bo ja sie nie znam sie zabardzo...

program miał być pod PHPBB3

[Gość Pan Szymek]

znalazłem ten kod na internecie...

 

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 = "login", Pwd = "password"

Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www....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") 'Form2.Show

Else

MessageBox.Show("Login nicht OK")

End If

End Sub

End Class

 

 

tylko ja bym wolał z textboxami i zeby KAŻDY mógł własnym kontem sie zalogować...

mam nadzieje ze mi pomożecie bo ja sie nie znam sie zabardzo

Daj adres strony, lub zawartość pliku .php odpowiadającego za logowanie.

[konrad2904]

Home Page:

www.phpbb-program.ugu.pl

Login Page:

http://phpbb-program.ugu.pl/ucp.php?mode=login

 

Źródło DOM zaznaczenia:

<fieldset class="fields1">

 <dl>
  <dt><label for="username">Nazwa użytkownika:</label></dt>
  <dd><input tabindex="1" name="username" id="username" size="25" value="" class="inputbox autowidth" type="text"></dd>
 </dl>
 <dl>
  <dt><label for="password">Hasło:</label></dt>
  <dd><input tabindex="2" id="password" name="password" size="25" class="inputbox autowidth" type="password"></dd>
  <dd><a href="./ucp.php?mode=sendpassword">Zapomniałem hasła</a></dd>
 </dl>

 <dl>
  <dd><label for="autologin"><input name="autologin" id="autologin" tabindex="4" type="checkbox"> Zapamiętaj mnie</label></dd>
  <dd><label for="viewonline"><input name="viewonline" id="viewonline" tabindex="5" type="checkbox"> Ukryj mnie w tej sesji</label></dd>
 </dl>

 <input name="redirect" value="./ucp.php?mode=login" type="hidden">
 <dl>
  <dt> </dt>
  <dd><input name="sid" value="b3562584f99348d2d5064ad66fac3f0c" type="hidden">
<input name="redirect" value="index.php" type="hidden">
<input name="login" tabindex="6" value="Zaloguj" class="button1" type="submit"></dd>
 </dl>
 </fieldset>

[Gość Pan Szymek]

Przepisz sobie na VB.NET

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Net;
using System.IO;

namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
CookieContainer ciastka = new CookieContainer();
private string pobierzSID()
{
HttpWebRequest request = (HttpWebRequest)WebRequest.Create("http://phpbb-program.ugu.pl/ucp.php?mode=login");
request.CookieContainer = ciastka;
HttpWebResponse response = (HttpWebResponse)request.GetResponse();
StreamReader reader = new StreamReader(response.GetResponseStream());
string kodStrony = reader.ReadToEnd();
response.Close();
reader.Close();
kodStrony = kodStrony.Remove(0, kodStrony.IndexOf("name=\"sid\"") + 18);
return kodStrony.Substring(0, kodStrony.IndexOf("\""));
}
bool zaloguj(string login, string haslo)
{
string sid = pobierzSID();
String postData = string.Format("username={0}&password={1}&redirect=.%2Fucp.php%3Fmode%3Dlogin%26sid%3D{2}&sid={2}&redirect=index.php&login=Zaloguj", login, haslo, sid);
UTF8Encoding kodowanie = new UTF8Encoding();
Byte[] byteData = kodowanie.GetBytes(postData);
HttpWebRequest postRequest = (HttpWebRequest)WebRequest.Create("http://phpbb-program.ugu.pl/ucp.php?mode=login&sid=" + sid);
postRequest.Method = "POST";
postRequest.KeepAlive = true;
postRequest.CookieContainer = ciastka;
postRequest.ContentType = "application/x-www-form-urlencoded";
postRequest.Referer = "http://phpbb-program.ugu.pl/ucp.php?mode=login";
postRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64) AppleWebKit/537.1 (KHTML, like Gecko) Chrome/21.0.1180.75 Safari/537.1";
postRequest.ContentLength = byteData.Length;
Stream postRequestStream = postRequest.GetRequestStream();
postRequestStream.Write(byteData, 0, byteData.Length);
postRequestStream.Close();
HttpWebResponse postResponse;
postResponse = (HttpWebResponse)postRequest.GetResponse();
ciastka.Add(postResponse.Cookies);
StreamReader postRequestReader = new StreamReader(postResponse.GetResponseStream());
string kodStrony = postRequestReader.ReadToEnd();
postResponse.Close();
postRequestReader.Close();
return !kodStrony.Contains("nieprawidłową nazwę");
}
}
}

Funkcja zaloguj zwraca true, jeżeli zalogowano, false jeżeli nie.

[konrad2904]

Może jak bedziesz miał czas lub chcęć to będziesz mógł przepisać na VB.NET ?

 

@Edit : moge też dać treść upc.php