Oppure

Loading
30/01/12 14:23
Mattrix93
Ciao a tutti. Oggi stavo dillettandomi con i controlli WebBrowser in VB6. Il mio obbiettivo è quello di effettuare il login automatico in un sito x. Premetto che ho iniziato oggi ad interressarmi di questi controlli e in internet ho trovato molto poco. Con quello che ho trovato sono riuscito a fare una mezza specie di browser con una textbox (nella quale inserisco la url), un commandbutton che cliccato mi apre la url indicata nella textbox in un componente webbrowser. Modificando il commandbutton per raggiungere il mio obbiettivo sono riuscito a fare questo:

Private Sub Command1_Click()

URL = "http://forum.tntvillage.scambioetico.org/index.php?act=Login&CODE=00"
 
Me.WebBrowser1.Navigate2 URL
 
 
WebBrowser1.Document.getElementById("Privacy").Checked = True
 
WebBrowser1.Document.Forms(LOGIN).UserName.Value = "user"
WebBrowser1.Document.Forms(LOGIN).PassWord.Value = "pass"

WebBrowser1.Document.Forms(LOGIN).submit

End Sub


Ora, le prime 3 istruzioni mi danno errore "Run-time error '91' : Object variable or With Block variable not set" ma premendo F8 la esegue lo stesso e passa oltre fino ad arrivare all'ultima istruzione dove (ricevendo lo stesso errore) non va avanti nemmeno se premo F8. Il codice HTML interresato è questo:

<form onsubmit="return ValidateForm()" name="LOGIN" method="post" action="http://forum.tntvillage.scambioetico.org/index.php?act=Login&amp;CODE=01">
<input type="hidden" value="" name="referer"/>
<div class="tableborder">
  <div class="maintitle"><img width="8" border="0" height="8" alt="&gt;" src="style_images/mkportal-636/nav_m.gif"/> Connettiti</div>
  <div class="pformstrip">Inserisci i tuoi dati per la connessione al Forum</div>
  <table cellspacing="1" class="tablebasic">
  <tbody><tr>
    <td class="pformleftw">Inserisci il tuo nome utente</td>

    <td class="pformright"><input type="text" class="forminput" name="UserName" maxlength="64" size="20"/></td>
  </tr>
  <tr>
    <td class="pformleftw">Inserisci la tua password</td>
    <td class="pformright"><input type="password" class="forminput" name="PassWord" size="20"/></td>
  </tr>
  </tbody></table>
  <div class="pformstrip">Opzioni</div>		
  <table cellspacing="1" class="tablebasic">

  <tbody><tr>
    <td class="pformleftw"><b>Ricorda i dettagli per la connessione?</b><br/>Quando abilitata questa opzione fa in modo che al tuo ritorno nel forum verrai riconosciuto automaticamente e non dovrai reinserire nuovamente i dati per la connessione. Raccomandiamo di non utilizzare questa opzione in un computer condiviso con altri utenti!</td>
    <td class="pformright"><input type="radio" checked="checked" value="1" name="CookieDate"/>Si<br/><input type="radio" value="0" name="CookieDate"/>No</td>
  </tr>
  <tr>
    <td class="pformleftw"><b>Privacy</b>:vuoi comparire nella lista degli utenti connessi?</td>

    <td class="pformright"><input type="checkbox" value="1" name="Privacy"/>Non aggiungere il mio nome alla lista degli utenti connessi</td>
  </tr>
  </tbody></table>		
  <div align="center" class="pformstrip"><input type="submit" class="forminput" value="Connettiti al Forum" name="submit"/></div>
</div>
</form> 


Mi potreste inoltre dire come operare sui menu a tendina (select - option) ?

Attendo il vostro aiuto! :)
Ultima modifica effettuata da Mattrix93 30/01/12 16:33
aaa
30/01/12 18:44
Nullable
Quell'errore ti viene restituito perché URL non è una variabile dichiarata, avresti dovuto scrivere :

Dim URL As String
URL = "http://forum.tntvillage.scambioetico.org/index.php?act=Login&CODE=00"


Comunque questo potrà esserti utile -> pierotofy.it/pages/guide_tutorials/Visual_Basic/Simulare_login_da_codice/
aaa