Oppure

Loading
07/01/10 17:54
Sem93
Si ma rimane sempre il fatto che non riesco a loggarmi su facebook perchè non si inseriscono i dati e non si apre il broswer
aaa
08/01/10 13:54
Sem93
C'è qualcuno che può aiutarmi:-?
aaa
08/01/10 14:14
per aprire il browser ti consiglio di usare la classe process dovrebbe essere una cosa del genere 
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

pierotofy.it/pages/guide_tutorials/Visual_Basic/Simulare_login_da_codice/:k:

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 

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 08/01/10 16:51
09/01/10 14:49
Sem93



Allora ho seguito la guida che mi hai proposto (l'avevo già seguita in passato) l'errore c'è sempre. 
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.
aaa
09/01/10 15:18
dimentica il link che ti ho inserito

dentro form1.load inserisci il primo codice che ti ho dato poi inserisci 
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
10/01/10 22:01
Sem93
No è proprio errata la sintassi, prova in un tuo form e vedi. Ho provato è tutto errato.
aaa
11/01/10 15:09
Il Totem
Postato originariamente da Sem93:
Allora ho seguito la guida che mi hai proposto (l'avevo già seguita in passato) l'errore c'è sempre. 
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.
aaa
11/01/10 21:18
ho controllato il mio codice non è tutto sbagliato come dici tu

va correttoin alcuni punti in form_load metti 
 
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 
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