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

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

Pagine: [ 1 2 3 4 5 ]

Sem93 (Normal User)
Newbie

Messaggi: 20
Iscritto: 05/01/2010

Postato alle 14:54
Venerdì, 08/01/2010

C'è qualcuno che può aiutarmi :-?

()
Newbie

Messaggi:
Iscritto:

Postato alle 15:14
Venerdì, 08/01/2010

per aprire il browser ti consiglio di usare la classe process dovrebbe essere una cosa del genere

Codice sorgente - presumibilmente Plain Text

process.start("iexplore.exe","http://www.facebook.it/login.php")
'cosi si dovrebbe aprire internet explorer 
'alla pagina http://www.facebook.it/login.php

poi guarda questo tutorial forse può tornarti utile anche se non usi un web browser

http://www.pierotofy.it/pages/guide_tutorials/Visual_Basic ...:

oppure ho notato che quando apri lapagina di login di facebook il focus è già sulla textbox della mail quindi ti basta scrivere dopo il mio codice sopra

Codice sorgente - presumibilmente C# / VB.NET

sendkeys.sendwait("la tua mail")
sendkeys.send(chr(keys.TAB)) 'per passare alla textbox
                             'della pass
sendkeys.sendwait("la tua pass")
sendkeys.send(chr(keys.ENTER))'per effettuare il login 
'se vuoi le cose fatte ancora meglio inserisci questi due pezzi
'di codice all'evento form_load e poi aggiungi in fondo
End

Ultima modifica effettuata da il 08/01/2010 alle 17:51

Sem93 (Normal User)
Newbie

Messaggi: 20
Iscritto: 05/01/2010

Postato alle 15:49
Sabato, 09/01/2010

Allora ho seguito la guida che mi hai proposto (l'avevo già seguita in passato) l'errore c'è sempre.

Codice sorgente - presumibilmente VB.NET

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
    Private Sub Web_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs) Handles WB.Navigated
        For Each Form As HtmlElement In WB.Document.Forms
            If Form.Name = "nome modulo" Then
            End If
        Next
    End Sub
End Class
For Each Input As HtmlElement In Form.GetElementsByTagName("input")
If Input.Id = "username" Then
Input.Focus()
SendKeys.SendWait("Totem")
Input.RemoveFocus()
End If
If Input.Id = "password" Then
Input.Focus()
SendKeys.SendWait("password")
Input.RemoveFocus()
End If
next

Allora, non specifica il WB quando inizio con un nuovo comando non specifica cosa e come.

Ho provato con il mio form vecchio a fare la tua procedura ma il debug si rifiuta di startare.

()
Newbie

Messaggi:
Iscritto:

Postato alle 16:18
Sabato, 09/01/2010

dimentica il link che ti ho inserito

dentro form1.load inserisci il primo codice che ti ho dato poi inserisci

Codice sorgente - presumibilmente C# / VB.NET

me.cursor.position.x=350
me.cursor.position.y=0
sendkeys.send(chr(keys.Lbutton)) 
'non ricordo se è Lbutton
'comunque cerca quello del pulsante sinistro del mouse

e aggiungi il mio secondo codice con alla fine 'End'

dovrebbe funzionare non posso controllarlo per il momento

Sem93 (Normal User)
Newbie

Messaggi: 20
Iscritto: 05/01/2010

Postato alle 23:01
Domenica, 10/01/2010

No è proprio errata la sintassi, prova in un tuo form e vedi. Ho provato è tutto errato.

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 16:09
Lunedì, 11/01/2010

Testo quotato

Postato originariamente da Sem93:
Allora ho seguito la guida che mi hai proposto (l'avevo già seguita in passato) l'errore c'è sempre.

Codice sorgente - presumibilmente VB.NET

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
    Private Sub Web_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs) Handles WB.Navigated
        For Each Form As HtmlElement In WB.Document.Forms
            If Form.Name = "nome modulo" Then
            End If
        Next
    End Sub
End Class
For Each Input As HtmlElement In Form.GetElementsByTagName("input")
If Input.Id = "username" Then
Input.Focus()
SendKeys.SendWait("Totem")
Input.RemoveFocus()
End If
If Input.Id = "password" Then
Input.Focus()
SendKeys.SendWait("password")
Input.RemoveFocus()
End If
next

Sentiamo un po'... secondo te, quando verrebbe eseguito quel for? Se sei capace di rispondere, ti accorgerai di aver scritto un mostro.

()
Newbie

Messaggi:
Iscritto:

Postato alle 22:18
Lunedì, 11/01/2010

ho controllato il mio codice non è tutto sbagliato come dici tu

va correttoin alcuni punti in form_load metti

Codice sorgente - presumibilmente C# / VB.NET

process.start("iexplore.exe","http://www.facebook.it/login.php") 
'cosi si dovrebbe aprire internet explorer 
'alla pagina http://www.facebook.it/login.php 
dim pt as point
pt.x=350
pt.y=0

poi nell'evento di un timer con interval 5000 per lasciare il tempo di aprire la pagina
metti

Codice sorgente - presumibilmente C# / VB.NET

cursor.position= pt
sendkeys.send(chr(keys.Lbutton)) 
sendkeys.sendwait("la tua mail") 
sendkeys.send(chr(keys.TAB)) 'per passare alla textbox 
                             'della pass 
sendkeys.sendwait("la tua pass") 
sendkeys.send(chr(keys.ENTER))'per effettuare il login

cosi a me funziona alla grande

Sem93 (Normal User)
Newbie

Messaggi: 20
Iscritto: 05/01/2010

Postato alle 23:52
Lunedì, 11/01/2010

http://i49.tinypic.com/b54enp.jpg

Ecco gli errori che non riesco a sistemare.

Ultima modifica effettuata da Sem93 il 11/01/2010 alle 23:53

Pagine: [ 1 2 3 4 5 ]