Gå til innhold

[Løst]Bruke VB til å kontrollere nettsider

Bjox

Av Bjox
i Programmering og webutvikling

Anbefalte innlegg

Bjox

Bjox

Skrevet
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
Lenke til kommentar

Videoannonse

Videoannonse
Annonse
aadnk

aadnk

Skrevet
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
Lenke til kommentar

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å
Gå til emneliste
×
×
  • Opprett ny...