Hallo zusammen,
erstmal möchte ich mich vorstellen, bin 51 Jahre jung, hauptberuflich CNC Programmierer und habe nach einiger Turbo Pascal/VB6 Erfahrung in den 90ern vor ca. 3 Jahren angefangen mich mit VB.NET zu beschäftigen.
Nun zum Problem, an welchem ich nun 2 Wochen hänge und einfach nicht weiter komme.
Im Rahmen eines größeren Projekts greife ich über ein Webbrowser Control auf die Seite ttsmp3.com zu, um bei Bedarf eine Sprachausgabe mit einer besseren Stimme als die Windows Sprachausgabe zu nutzen.
Das Ganze hat auch monatelang wunderbar funktioniert, bis Anfang Januar die Website geändert wurde. egal ob ich den READ Button per Maus klicke oder über InvokeMember("click"), der Klick wird ausgeführt aber der Text nicht mehr gelesen, sondern die Seite neu geladen.
Die Registry Einträge damit das Webbrowser Control den aktuellen Edge benutzt sind gesetzt. Betriebssystem ist Windows 10 mit VS2019
Da ich absolut keinen Plan von Webseitenprogrammierung habe, weiß ich hier nicht weiter.
Das folgende Codeschnipsel ist auf das eigentliche Problem runtergebrochen.
(ein Webbrowser Control und drei Button)
Wo könnte hier das Problem liegen?
Gruß
der Heini
*Code-BBCode eingefügt, bitte demnächst selbst machen*
erstmal möchte ich mich vorstellen, bin 51 Jahre jung, hauptberuflich CNC Programmierer und habe nach einiger Turbo Pascal/VB6 Erfahrung in den 90ern vor ca. 3 Jahren angefangen mich mit VB.NET zu beschäftigen.
Nun zum Problem, an welchem ich nun 2 Wochen hänge und einfach nicht weiter komme.
Im Rahmen eines größeren Projekts greife ich über ein Webbrowser Control auf die Seite ttsmp3.com zu, um bei Bedarf eine Sprachausgabe mit einer besseren Stimme als die Windows Sprachausgabe zu nutzen.
Das Ganze hat auch monatelang wunderbar funktioniert, bis Anfang Januar die Website geändert wurde. egal ob ich den READ Button per Maus klicke oder über InvokeMember("click"), der Klick wird ausgeführt aber der Text nicht mehr gelesen, sondern die Seite neu geladen.
Die Registry Einträge damit das Webbrowser Control den aktuellen Edge benutzt sind gesetzt. Betriebssystem ist Windows 10 mit VS2019
Da ich absolut keinen Plan von Webseitenprogrammierung habe, weiß ich hier nicht weiter.
Das folgende Codeschnipsel ist auf das eigentliche Problem runtergebrochen.
(ein Webbrowser Control und drei Button)
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- WebBrowser1.Navigate("ttsmp3.com")
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- WebBrowser1.Document.GetElementById("voicetext").Focus()
- WebBrowser1.Document.GetElementById("voicetext").InnerText = "hallo"
- WebBrowser1.Document.GetElementById("vorlesenbutton").Focus()
- 'bis hierhin okay
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- 'ging ein paar Monate gut. aber jetzt funktioniert es nicht mehr, Seite wird stattdessen neu geladen
- WebBrowser1.Document.GetElementById("vorlesenbutton").InvokeMember("click")
- End Sub
- End Class
Wo könnte hier das Problem liegen?
Gruß
der Heini
*Code-BBCode eingefügt, bitte demnächst selbst machen*
