Hola aquí les dejo el código para editar paginas del Internet explorer, el código es muy sencillo esta hecho en vb.net, OJO con otros navegadores no funciona y tiene que estar abierto el navegador Internet explorer.
otra cosa solo les dejare el código, la versión compilada no
Agregar 3 textbox llamados txt_url, txt_remplace,txt_injection y txtcode
Agregar 2 botones llamados Button2 y Button1
...:::CODIGO:::...
Public Class Form1
Dim shellWins As SHDocVw.ShellWindows
Dim explorer As SHDocVw.InternetExplorer
Dim code As String
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
shellWins = New SHDocVw.ShellWindows
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If txt_injection.Text <> "" And txt_remplace.Text <> "" Then
For Each Me.explorer In shellWins
If InStr(explorer.LocationURL, txt_url.Text) Then
code = explorer.Document.body.innerHtml
code = Replace(code, txt_remplace.Text, txt_injection.Text)
Me.explorer.Document.body.innerHtml = code
End If
Next
ElseIf txtcode.Text <> "" Then
Me.explorer.Document.body.innerHtml = txtcode.Text
Else
MsgBox("Error Campos vacios", MsgBoxStyle.Information, "Error")
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If txt_url.Text <> "" Then
txt_injection.Text = ""
txt_remplace.Text = ""
For Each Me.explorer In shellWins
If InStr(explorer.LocationURL, txt_url.Text) Then
code = explorer.Document.body.innerHtml
txtcode.Text = code
End If
Next
Else
MsgBox("Error No Has Ingresado Una Url")
End If
End Sub
End Class
Link del video donde muestra como usarse:
VerBueno Saludos Flamer y espero les halla gustado