op een submit knop drukken lukt niet

[lefty999]

ik heb een vb script dat een webpagina opent dan de login gegevens ingeeft.

en dan zou hij op de submit knop moeten klikken

deze code gebruik ik daarvoor

wb.Document.All("submit").Click

en dit is de html code van de submit knop

            <input type="submit" value="Add Link">

kan iemand mij helpen of zijn er andere manieren om op die knop te drukken? (automatisch)


dank bij voorbaat

bij testen krijg ik volgende error

Run-time error 91
Object variable or With block variable not set

 

[That Guy]

errr, die error is vaag bij de code die je geeft. Iets meer is gewenst.

Anywho:

Document.All("submit").Click

zal alle elementen in document checken, en dan degene met name of id 'submit' aanklikken. Sinds je html code dit niet heeft, kan dit niet.

2 mogelijkheden: benader je knop anders. bijvoorbeeld door alle input-elementen te verkrijgen, en de goede te kiezen. Of, door het zoveelste child te vinden. De 2e oplosssing is de html veranderen, zoiets:

            <input type="submit" id='klikkert' value="Add Link">

en dan code:

Document.All("klikkert").Click

oid.

 

[lefty999]

de eerste heb ik al geprobeert en daar kreeg ik die errror bij kben in mijn eerste bericht vergetene de wb. bij te zetten (half gekopieerd

maar hier is de html code van de submit form

    <form action="/add.php" method="POST" style="margin: 0;"> 
      <div class="head">Add a Free Link</div> 
      <br> 
      <br><br> 
      <table cellpadding="3" cellspacing="0" border="0" style="margin: 5px 0 5px 20px; padding: 3px; border: 1px solid #000; background-color: #ededed;"> 
        <tr> 
          <td nowrap valign="top"><b>Step 1:</b></td> 
          <td>Enter a descriptive title for the link you are submitting.</td> 
        </tr> 
        <tr> 
          <td nowrap align="right">&nbsp;</td> 
          <td>Title: <input type="text" name="mytitle" value="" size="60" maxlength="200"></td> 
        </tr> 
        <tr><td colspan="2">&nbsp;</td></tr> 
        <tr> 
          <td nowrap valign="top"><b>Step 2:</b></td> 
          <td>URL of the link. (Should start with <i>http://</i>)</td> 
        </tr> 
        <tr> 
          <td nowrap align="right">&nbsp;</td> 
          <td>URL: <input type="text" name="myurl" value="" size="60" maxlength="500"></td> 
        </tr> 
        <tr> 
          <td>&nbsp;</td> 
          <td align="left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            <input type="submit" value="Add Link">

ik heb al wat gegoogeld maar kom er niet uit

ik zou dit script dan nog willen aanpassen zodat het ook op vbulletin forums kan (inloggen en een post maken ) zodat ik op alle forums waar ik post in 1 keer kan posten.

maar zoals het nu is kan ik niks submitten

Hier onder even mijn hele script

Private Sub Command1_Click()
wb.Navigate "http://www.websiteurlhier.com/index.php"
DoEvents
While wb.Busy = True
DoEvents
Wend
wb.Document.All("vb_login_username").Value = txt1.Text
wb.Document.All("vb_login_password").Value = txt2.Text
wb.Document.All("login").Click
DoEvents
While wb.Busy = True
DoEvents
Wend
End Sub