1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Sub New()
' Cet appel est requis par le concepteur.
InitializeComponent()
' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim setting As New CefSettings
setting.RemoteDebuggingPort = 8088
CefSharp.Cef.Initialize(setting)
browser = New ChromiumWebBrowser("https://www.google.fr")
Panel1.Controls.Add(browser)
' là ou je suis bloqué, je cherche à récupérer le code source mais je butte
' j'ai cherché comment attendre la fin du chargement sans succès pour le moment :-(
Dim stexte As String = browser.Text
End Sub |
Partager