نوشته شده توسط
hamidrezax1
سلام وقت بخیر دوستان.معمولا شما با کد زیر میتونید چیزی رو که میخواید درون یک تکس باکس در صفحه وب قرار بدین اما مشکلی که من بهش برخوردم این هست که تکست باکس درون یک کلاس قرار گرفته و من ID اون تکس باکس رو نمیدونم و تنها چیزی که دارم اندکس و کلاس اون تکست باکس هست.چجوری میتونم ID اون تکست باکس ها رو بدست بیارم.ممنون میشم راهنمایی کنید
Me.WebBrowser1.Document.GetElementById("nam_ID").I nnerText = "TEXT"
Public Shared Function GetElementsByClass (root As HtmlElement, className As String, Optional tagName As String = Nothing) As HtmlElement()
Dim items = New List(Of HtmlElement)
If String.IsNullOrEmpty (tagName) Then
For Each item As HtmlElement In root.All
If item.GetAttribute ("className") = className Then items.Add(item)
Next
Else
For Each item As HtmlElement In root.GetElementsByTagName (tagName)
If item.GetAttribute ("className") = className Then items.Add(item)
Next
End If
Return items.ToArray()
End Function
مثلا :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim items = GetElementsByClass (Me.WebBrowser1. Document.Body, "YourClassName")
For Each item In items
item.InnerText = "TEXT"
Next
End Sub
یا اگر دنبال فقط تگ خاصی مثلا تگ های <input> هستید :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim items = GetElementsByClass (Me.WebBrowser1. Document.Body, "YourClassName", "input")
For Each item In items
item.InnerText = "TEXT"
Next
End Sub