C# / VB.NET - [Vb8] Form di accesso a Facebook

07/01/10 14:21

Postato originariamente da Sem93:

Ho provato ma da l'errore il value :l e httpwebrequest e repose non le accetta .

Scusa ma hai cercato su google?(o su qlke altro motore) :k:

aaa

07/01/10 16:09

Sem93

protected void Test()
{
    HttpWebRequest request = GetRequest("http://dev.inexor.se");
    string response = GetResponse(request);
    Response.Write(response);
}

private static HttpWebRequest GetRequest(string url)
{
    HttpWebRequest request = (HttpWebRequest)WebRequest.Create(url);
    request.Method = "GET";
    request.KeepAlive = false;
    request.ContentType = "text/html";
    return request;
}

private static string GetResponse(HttpWebRequest request)
{
    HttpWebResponse response = (HttpWebResponse)request.GetResponse();
    Stream responseStream = response.GetResponseStream();
    StreamReader responseReader = new StreamReader(responseStream);
    return responseReader.ReadToEnd();

L'ho trovato ma non penso sia giusto

che ne pensi?

aaa

07/01/10 16:11

LittleHacker

Postato originariamente da Sem93:

protected void Test()
{
    HttpWebRequest request = GetRequest("http://dev.inexor.se");
    string response = GetResponse(request);
    Response.Write(response);
}

private static HttpWebRequest GetRequest(string url)
{
    HttpWebRequest request = (HttpWebRequest)WebRequest.Create(url);
    request.Method = "GET";
    request.KeepAlive = false;
    request.ContentType = "text/html";
    return request;
}

private static string GetResponse(HttpWebRequest request)
{
    HttpWebResponse response = (HttpWebResponse)request.GetResponse();
    Stream responseStream = response.GetResponseStream();
    StreamReader responseReader = new StreamReader(responseStream);
    return responseReader.ReadToEnd();

L'ho trovato ma non penso sia giusto

che ne pensi?

Beh questo è c# convertilo...X facilitarti il lavoro utiliuzza questo: developerfusion.com/tools/convert/csharp-to-vb/ :k:

aaa

07/01/10 16:18

LittleHacker

Qui il codice convertito(ank se non dovrei dare la pappa pronta):

    Protected Sub Test()
        Dim request As HttpWebRequest = GetRequest("http://www.pierotofy.it")
        Dim response__1 As String = GetResponse(request)
        Rich.Text = response__1 'Al posto di Rich.Text ci devi mettere dove vuoi salvare il contenuto della pagina e poi lo devi scrivere sulla pagina...
    End Sub
    Private Shared Function GetRequest(ByVal url As String) As HttpWebRequest
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        request.Method = "GET"
        request.KeepAlive = False
        request.ContentType = "text/html"
        Return (request)
    End Function

    Private Shared Function GetResponse(ByVal request As HttpWebRequest) As String
        Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        Dim responseStream As Stream = response.GetResponseStream()
        Dim responseReader As New StreamReader(responseStream)
        Return (responseReader.ReadToEnd())
    End Function

aaa

07/01/10 16:22

Il Totem

@LittleHacker: se non sai la risposta evita di postare. Se non conosci il linguaggio, vai in un'altra sezione. Dici sempre che tu non sai eppure continue a scrivere, senza dare nessun vero aiuto.

Questo codice:

 Public Sub
        Dim link As String = "http://facebook.it/login.php"
        Net.httpwebrequest(value = "" & textbox1.text & "")
        Net.httpwebrequest(value = "" & textbox2.text.text & "")
    End Sub

E' un'assurdità, e chiunque che conoscesse un minimo il linguaggio lo capirebbe.
Innanzitutto manca il nome del sottoprogramma. Con Sub si dichiara una subroutine o procedura e bisogna fornire l'identificatore con cui chiamarla, il quale qui è evidentemente mancante.
Poi, value = "" & textbox1.text & "" è errato per tre motivi:
1 - non esiste nessuna variabile di nome "value";
2 - se anche esistesse, l'operatore = restituirebbe un valore booleano ottenuto comparando il valore di value con la stringa "" & textbox1.text & "", mentre l'url di una pagina web è una stringa;
3 - se anche fossero corretti i primi due punti, resta il fatto che tu stai cercando di impostare il valore di un attributo di un tag html interno alla pagina passando un'ipotetica stringa a un ipotetico metodo httpwebrequest, che non esiste.

Net.HttpWebRequest è una classe che rappresenta una richiesta http. Dato che è una classe, occorre, per usare l'oggetto corrispondente, una variabile di quel tipo:

Dim A As HttpWebRequest

Inoltre, poiché tale classe non possiede costruttori, è necessario un metodo per ottenere un nuovo oggetto di quel tipo. Questo metodo è WebRequest.Create(url), come mostrato nell'ultimo codice.

Dato che hai già il codice in C# non mi dilungherò oltre a spiegare. La funzione GetResponse ottiene il codice della pagina web desiderata. Detto questo, una volta ottenuto il codice, ti può servire in una sola maniera. Se stai usando un WebBrowser, puoi provare nel codice i tag che identificano le textbox in cui inserire email e password, e quindi modificarlo (usando "value = ..."

. Fatto questo, puoi inserire il codice modificato nel webbrowser, caricarlo, impostare il focus sul pulsante Login e simulare la pressione del pulsante invio con la SendKeys.SendWait.

P.S.: "" è una stringa vuota. Se vuoi indicare le virgolette, si usa """".

Ultima modifica effettuata da Il Totem 07/01/10 16:23

aaa

07/01/10 17:01

Sem93

Sto andando in confusione ragazzi :-|

Imports System.IO
Imports System.Net

Public Class Form1

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

    End Sub

    Protected Sub Test()
        Dim request As HttpWebRequest = GetRequest("http://www.facebook.it/login.php")
        Dim response__1 As String = GetResponse(request)
        Text = response__1 'Al posto di Rich.Text ci devi mettere dove vuoi salvare il contenuto della pagina e poi lo devi scrivere sulla pagina... 
    End Sub
    Private Shared Function GetRequest(ByVal url As String) As HttpWebRequest
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        request.Method = "Get"
        request.KeepAlive = False
        request.ContentType = "text/html"
        Return (request)
    End Function

    Private Shared Function GetResponse(ByVal request As HttpWebRequest) As String
        Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        Dim responseStream As Stream = response.GetResponseStream()
        Dim responseReader As New StreamReader(responseStream)
        Return (responseReader.ReadToEnd())
    End Function
    


    Private Sub Facebook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Facebook.Click
        Dim reader As IO.TextReader = New IO.StreamReader("c:/login.txt")
        TextBox1.Text = reader.ReadLine
        TextBox2.Text = reader.ReadLine

    End Sub
End Class

Ecco il form ho inserito System.net =) ma poi nn so più andare avanti oltre tutto non ho capito
Al posto di Rich.Text ci devi mettere dove vuoi salvare il contenuto della pagina e poi lo devi scrivere sulla pagina...

Dove vuoi salvare il contenuto della pagina? O.O

Ultima modifica effettuata da Sem93 07/01/10 17:01

aaa

07/01/10 17:14

LittleHacker

Postato originariamente da Sem93:
Dove vuoi salvare il contenuto della pagina? O.O

Fidec...ad esempio salvalo in una stringa così: Dim Html as string = ...
Capito? :k: