Bjox Skrevet 2. november 2008 Del Skrevet 2. november 2008 (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 3. november 2008 av Bjox Lenke til kommentar
aadnk Skrevet 3. november 2008 Del Skrevet 3. november 2008 (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 3. november 2008 av aadnk Lenke til kommentar
Bjox Skrevet 3. november 2008 Forfatter Del Skrevet 3. november 2008 Takk for svar skal se om jeg får det til Lenke til kommentar
Bjox Skrevet 4. november 2008 Forfatter Del Skrevet 4. november 2008 Jeg fikk det til! Lenke til kommentar
Anbefalte innlegg
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 kontoLogg inn
Har du allerede en konto? Logg inn her.
Logg inn nå