Skip to main content

AccessTr.neT


Webbrowser Den Radiogroup Ta Seçili Değeri Alma

Webbrowser Den Radiogroup Ta Seçili Değeri Alma

Çözüldü #1
İyi çalışmalar arkadaşlar.
Örneğimde  websitede radiogrup var ve ben bu radiogruptaki  seçili olan verinin değerini nasıl alabilirim.

örneğin
Sağ / Ölü elementinin Sağ mı Ölü mü Seçili.
.rar radioa grupal.rar (Dosya Boyutu: 211,4 KB | İndirme Sayısı: 4)
mustinba, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
#2
Merhaba.
Eğer selenium kullanırsanız alttaki kod işinize yarayabilir.
Başka yöntem bilmiyorum.

Private Sub Komut0_Click()
    Dim baglan As New Selenium.WebDriver
    Dim olu As Boolean, sag As Boolean
   
    baglan.AddArgument "-headless"
    baglan.Start "chrome"
    baglan.Get CurrentProject.Path & "\radiogrupal.html"
    olu = baglan.FindElementByXPath("//*[@id='rdOlu']").IsSelected
    sag = baglan.FindElementByXPath("//*[@id='rdSag']").IsSelected
    If olu = True Then MsgBox "isaretli olan: Ölü"
    If sag = True Then MsgBox "isaretli olan: Sag"
    baglan.Close
    Set baglan = Nothing
End Sub
.rar radioa grupal.rar (Dosya Boyutu: 241,41 KB | İndirme Sayısı: 1)
Video #3
Selenium Basic kurulum videosuda videoda.Adam Excel için anlatmış lakin Access içinde aynısı.
#4
cevabınız için teşekkürler.
Harici bir kütüphane kullanmadan yapmaya çalışıyorum.
mustinba, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
#5
Rica ederim,siz bilirsiniz abey.
#6
Alttaki kodu dener misiniz?

Private Sub Komut1_Click()
    Dim ie As Object, sag As Object, olu As Object
    Set ie = CreateObject("internetexplorer.application")
   
    With ie
        .Visible = False
        .Navigate CurrentProject.Path & "\radiogrupal.html"
        Do While .Busy: DoEvents: Loop
        Do While .ReadyState <> 4: DoEvents: Loop
    End With
    Set sag = ie.Document.getelementbyid("rdSag")
    Set olu = ie.Document.getelementbyid("rdOlu")
    If sag.Checked Then MsgBox "Sag secili"
    If olu.Checked Then MsgBox "Ölü secili"
    ie.Quit
    Set ie = Nothing: Set sag = Nothing: Set olu = Nothing
End Sub
.rar radioa grupal.rar (Dosya Boyutu: 206,94 KB | İndirme Sayısı: 1)

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task