Gå til innhold

[Løst]Bruke VB til å kontrollere nettsider


Anbefalte innlegg

Skrevet (endret)

kan noen gi noen eksempler på hvordan man bruke VB til å kontrollere nettsider?

 

For eksempel hvordan kan man få prgrammet til å merke en radio-button? og trykke på "submit"?

 

Prøver å lage en slags "snarvei" til funksjoner på nettsider. :)

 

EDIT: klarte å få den til å trykke på en vanlig knapp. (tok navnet til knappen og... osv.) Men hvordan får man den til å merke en radio-button?

Endret av Bjox
Videoannonse
Annonse
Skrevet (endret)

Det er noe av det samme:

Public Class frmTest

 

   Private Sub frmTest_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

 

       ' Testdokumentets innhold:

       '  <html>

       '  <body>

       '      <form name="test">

       '          <input type="radio" name="sex" value="male"> Male <br>

       '          <input type="radio" name="sex" value="female"> Female

       '      </form>

       '  </body>

       '  </html>

 

       WebBrowser1.Navigate("file://C:\Test.html")

 

   End Sub

 

   Private Sub btnMark_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMark.Click

 

       ' ** Det kan være lurt å legge all denne koden i en egen prosedyre dersom du **

       ' ** skal avmerkere flere valgknapper.                                       **

 

       ' Parameter med tallet (n-1) brukes for å referere til den n'te formen

       ' (den første: (0), den andre: (1), ect.). Bruk dette når formen ikke har et navn.

       Dim TargetForm = WebBrowser1.Document.Forms("test")

 

       For Each Control As HtmlElement In TargetForm.GetElementsByTagName("input")

 

           ' Henter ut alle valgknapper

           If Control.GetAttribute("type").ToLower = "radio" Then

 

               ' Generelt sett tar en alltid utgangspunkt i en egenskap som

               ' elementene du vil lese/endre kun deler med hverandre.

 

               ' I valgknappgrupper er denne egenskapen inndatakontrollenes navn.

               ' Denne blir for øvrig sendt til serveren i URL'en (ved GET):

               '     http://.../?...&[radiobuttonname]=[selected_button's_value]&...

               If Control.Name.ToLower = "sex" Then

                   If Control.GetAttribute("value").ToLower = "male" Then

                       ' Velg èn av disse metodene!

                       Control.SetAttribute("checked", 1)

                       Control.InvokeMember("click")

                   End If

               End If

 

           End If

       Next

 

   End Sub

End Class

Endret av aadnk

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...