09/07/09 16:48
naki
Niente da fare 
riposto il codice
riposto il codice
Dim IE As Object
Private Sub Form_Load()
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "http://www.betpoint.it/top.aspx"
Me.ZOrder
IE.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set IE = Nothing
End Sub
Private Sub cmdlogin_Click()
IE.Document.Form1.txtUserName.Value = Text1.Text
IE.Document.Form1.txtPassword.Value = Text2.Text
IE.Document.Form1.submit
IE.Visible = True
End Sub
Ultima modifica effettuata da naki 09/07/09 16:51
aaa
05/03/10 14:13
gvigliani
Postato originariamente da naki:
Niente da fare riposto il codice
Niente da fare
riposto il codice
Dim IE As Object
Private Sub Form_Load()
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "http://www.betpoint.it/top.aspx"
Me.ZOrder
IE.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set IE = Nothing
End Sub
Private Sub cmdlogin_Click()
IE.Document.Form1.txtUserName.Value = Text1.Text
IE.Document.Form1.txtPassword.Value = Text2.Text
'IE.Document.Form1.submit
IE.Document.All("submit").Click
'Ovviamente submit identifica il nome del pulsante che vuoi spingere
IE.Visible = True
End Sub
Ciao amico,
presumo che anche tu abbia avuto il mio stesso problema. A giudicare dal sito che hai evidenziato , è probabile che tu stia lavorando ad un programma di betting. Se cosi' fosse potremmo unire le forze e magari tirarne fuori qualcosa di buono.
Io nella mia applicazione sono riuscito a riempire i campi Id e Passwrd oltre che ad effettuare il login.
Il mio problema nasce quando la pagina è formata da piu' di un frame.
Qui mi sono bloccato e non riesco piu' ad andare avanti. Se nel frattempo tu hai escogitato qualcosa di diverso e migliore contattami. Io ho gia' messo a punto un buon programma per la ricerca delle surebets e magari si parte gia' da un buon punto.
Saluti
Gaspare
Ultima modifica effettuata da gvigliani 05/03/10 14:27
aaa