VB.Net Webbrowserda arama butonu yapmak istiyorum.

Muhtemelen özel mesaj atma sebebin bu konu içindi öyleyse yardımcı olmaya çalışalım.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Arama metnini TextBox'tan al
Dim aramaMetni As String = TextBox1.Text

' WebBrowser içinde arama yap
If Not String.IsNullOrEmpty(aramaMetni) Then
If WebBrowser1.Document IsNot Nothing Then
Dim body As HtmlElement = WebBrowser1.Document.Body
If body IsNot Nothing Then
Dim bodyText As String = body.InnerText
Dim index As Integer = bodyText.IndexOf(aramaMetni, StringComparison.OrdinalIgnoreCase)
If index >= 0 Then
' Metin bulunduysa işlemleri burada gerçekleştirin (örneğin, vurgulama yapabilirsiniz)
WebBrowser1.Document.Window.ScrollTo(0, index)
MessageBox.Show("Metin bulundu!")
Else
MessageBox.Show("Metin bulunamadı.")
End If
End If
End If
Else
MessageBox.Show("Lütfen arama metnini girin.")
End If
End Sub


Yukarda ki kod sana yardımcı olur misal bulunan kısmın html yapısını düzenlemek istiyorsan örneğin id vs de verebilirsin otomasyon yaptırıcaksan aşağıda ki kodlar üzerinden devam edebilirsin

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Arama metnini TextBox'tan al
Dim aramaMetni As String = TextBox1.Text

' WebBrowser içinde arama yap
If Not String.IsNullOrEmpty(aramaMetni) Then
If WebBrowser1.Document IsNot Nothing Then
Dim body As HtmlElement = WebBrowser1.Document.Body
If body IsNot Nothing Then
Dim bodyText As String = body.InnerHtml

' Metni vurgula (örneğin, sarı arka plan ile)
Dim vurgulananMetin As String = "<span style='background-color: yellow;'>" & aramaMetni & "</span>"
body.InnerHtml = bodyText.Replace(aramaMetni, vurgulananMetin)

' Kullanıcıya mesaj göster
MessageBox.Show("Metin bulundu!")

' WebBrowser içinde kaydırma yap (isteğe bağlı)
Dim index As Integer = body.InnerHtml.IndexOf(vurgulananMetin, StringComparison.OrdinalIgnoreCase)
WebBrowser1.Document.Window.ScrollTo(0, index)
End If
End If
Else
MessageBox.Show("Lütfen arama metnini girin.")
End If
End Sub