Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicitÓ e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.NET] Login Automatico!
Forum - C# / VB.NET - [VB.NET] Login Automatico!

Avatar
federiko (Normal User)
Rookie


Messaggi: 30
Iscritto: 14/08/2010

Segnala al moderatore
Postato alle 18:02
Venerdý, 10/06/2011
ciao ragazzi vorrei sapere come creare un programma x il login automatico sul sito megaupload.com.. fino ad ora ho creato una pezzo di codice ma mi da errore errore a questa riga:"but1 = WebBrowser1.Document.GetElementById("a href=javascript:void(0)").DomElement" :(


Codice sorgente - presumibilmente VB.NET

  1. Public Class Form1
  2.  
  3.     Dim whereami As Integer
  4.     Dim loggedin As Boolean
  5.  
  6.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  7.         whereami = 0
  8.         loggedin = False
  9.         WebBrowser1.Navigate("http://www.megaupload.com/?c=login")
  10.     End Sub
  11.  
  12.     Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
  13.         If whereami = 0 Then
  14.             Dim but1 As Object
  15.             WebBrowser1.Document.GetElementById("username").SetAttribute("value", "username1")
  16.             WebBrowser1.Document.GetElementById("password").SetAttribute("value", "1234567")
  17.             but1 = WebBrowser1.Document.GetElementById("a href=javascript:void(0)").DomElement
  18.             but1.Click()
  19.             whereami = whereami + 1
  20.             Exit Sub
  21.         ElseIf whereami = 1 Then
  22.             WebBrowser1.Navigate("http://www.megaupload.com/?c=login")
  23.             whereami = whereami + 1
  24.             Exit Sub
  25.         ElseIf whereami = 2 Then
  26.             Dim dom As Object
  27.             dom = WebBrowser1.Document.DomDocument
  28.             dom.Links(1).Click()
  29.             whereami = whereami + 1
  30.             loggedin = True
  31.             Exit Sub
  32.         End If
  33.     End Sub
  34.  
  35.     Sub placebets(ByVal batchbets As String)
  36.         Dim olddate As Date
  37.         Dim procs() As Process
  38.         WebBrowser1.Document.GetElementById("BvTextArea").InnerText = batchbets
  39.         ClickLink(WebBrowser1.Document.DomDocument, "SUBMIT BATCH")
  40.         olddate = Now
  41.         'Wait five seconds until the confirmation window opens
  42.         Do
  43.             Application.DoEvents()
  44.         Loop Until DateDiff(DateInterval.Second, olddate, Now) >= 5 Or DateDiff(DateInterval.Second, olddate, Now) <= -5
  45.         procs = Process.GetProcesses()
  46.         'close confirmation window
  47.         For i = 0 To procs.Length - 1
  48.             If procs(i).MainWindowTitle = "https://www.tab.com.au/?State=1 - BetReceiptSummary - Windows Internet Explorer" Then
  49.                 procs(i).CloseMainWindow()
  50.                 Exit For
  51.             End If
  52.         Next
  53.     End Sub
  54.  
  55.     Sub ClickLink(ByVal doc As Object, ByVal LinkText As String)
  56.         For i = 0 To doc.Links.Length - 1
  57.             If LTrim(RTrim(doc.Links(i).OuterText)) = LinkText Then
  58.                 doc.Links(i).Click()
  59.                 Exit For
  60.             End If
  61.         Next i
  62.     End Sub
  63. End Class



:(:(

PM
Avatar
walker93 (Member)
Expert


Messaggi: 460
Iscritto: 31/01/2010

Up
1
Down
V
Segnala al moderatore
Postato alle 18:41
Venerdý, 10/06/2011
semplicemente perchŔ "a href=javascript:void(0)" non Ŕ l'id che dovresti inserire nella funzione "GetElementById()"

l'hai usata benissimo per username e password, allo stesso modo devi usarla per
il bottone login.
ho guardato il codice sorgente e il bottone non ha ne un ID ne un nome:
Codice sorgente - presumibilmente Plain Text

  1. <a href="javascript:void(0);" onclick="postlogin();" class="log_but1">Login</a>



Per˛ c'Ŕ lo ha il form che contiene i campi e il bottone, ed Ŕ : loginfrm
quindi sostituisci "a href=javascript:void(0)" con "loginfrm" e usa .submit() al posto di .click()
dovrebbe funzionare, nel caso chiedi...


Il software Ŕ come il sesso, Ŕ meglio quando Ŕ libero.
Linus Torvalds, Conferenza della Free Software Foundation, 1996 (attribuito)

Non provare mai a spiegare il computer a un profano. ╚ pi¨ facile spiegare il sesso a una vergine.
Robert Anson Heinle
PM
Avatar
federiko (Normal User)
Rookie


Messaggi: 30
Iscritto: 14/08/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 19:04
Venerdý, 10/06/2011
grande Walker93!!!!  :love::love:

bŔ nn Ŕ ke ora potresti risolvere un altro mio problema XD.. dunque mi connetto al sito del download e voglio scaricare un file e l'unico modo Ŕ "cliccare" un bottone.. come posso far fare tutto questo in automatico a VB???

PM
Avatar
walker93 (Member)
Expert


Messaggi: 460
Iscritto: 31/01/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 22:50
Venerdý, 10/06/2011
esattamente come hai fatto fino ad adesso:
se il bottone ha un Id o un nome usi:
Codice sorgente - presumibilmente Plain Text

  1. bottone = WebBrowser1.Document.GetElementById("id bottone").DomElement
  2. bottone.click()


altrimenti cerchi il form in cui Ŕ contenuto e usi l'id di quello ma con .submit() al posto di .click()


Il software Ŕ come il sesso, Ŕ meglio quando Ŕ libero.
Linus Torvalds, Conferenza della Free Software Foundation, 1996 (attribuito)

Non provare mai a spiegare il computer a un profano. ╚ pi¨ facile spiegare il sesso a una vergine.
Robert Anson Heinle
PM
Avatar
federiko (Normal User)
Rookie


Messaggi: 30
Iscritto: 14/08/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 17:41
Sabato, 11/06/2011
in questo caso c'Ŕ lo stesso problema di prima.. neanche qui c'Ŕ un id o nome al bottone ma nn c'Ŕ neanche un form principale :(

guarda il codice esempio della pagina dove c'Ŕ il bottone:

<div class="down_butt_pad1" style="" id="downloadlink"><a href="http://www.example.it" class="down_butt1"></a></div>


io ho fatto questo codice:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim bottone As Object
  3.         bottone = WebBrowser1.Document.GetElementById("down_butt_pad1").DomElement
  4.         bottone.click()
  5.     End Sub



x˛ mi da questo errore"Riferimento a un oggetto non impostato su un'istanza di oggetto."

please help me!! :(

PM