WebBrowser.Navigate ("https://lab.atiaquaristik.com/share/65e040aec9b375e95c8e") Page.Text = WebBrowser.Document.documentElement.outerHTML
Clipboard.Clear WebBrowser.Navigate ("https://lab.atiaquaristik.com/share/65e040aec9b375e95c8e") WebBrowser.SetFocus keybd_event VK_CONTROL, 0, 0, 0 DoEvents keybd_event VK_A, 1, 0, 0 DoEvents keybd_event VK_CONTROL, 0, 0, 0 DoEvents keybd_event VK_C, 1, 0, 0 DoEvents keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0 DoEvents Page.Text = Clipboard.GetText
Clipboard.Clear WebBrowser.Navigate ("https://lab.atiaquaristik.com/share/65e040aec9b375e95c8e") WebBrowser.SetFocus SendKeys "^A" ' Ctrl A DoEvents SendKeys "^C" ' Ctrl C DoEvents Page.Text = Clipboard.GetText
Private Sub WebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Imported = True End Sub ... WebBrowser.Navigate ("https://www.triton-lab.de/en/showroom/icp-oes/96461") Imported = False Do DoEvents Loop Until ImportedLà c'est bon, le presse-papier contient bien le texte de la page telle que je la vois et je peux la décoder.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit Global sURL As String Global sfilename As String Global bRet As Boolean Global zone As String Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szUrl As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Function DownloadPage(ByVal url As String, ByVal FileName As String) As Boolean Dim done As Boolean Dim value As Long On Error Resume Next done = True If Dir$(FileName) <> "" Then Kill FileName End If value = URLDownloadToFile(0, url, FileName, 0, 0) If Dir$(FileName) = "" Then done = False End If DownloadPage = done End Function
Public Sub cmd_load_Click() sURL = "https://codes-sources.commentcamarche.net/forum/affich-10099325-recuperer-le-contenu-d-une-page-web" sfilename = App.Path & "\url.txt" bRet = DownloadPage(sURL, sfilename) If bRet Then MsgBox "Téléchargement réussi." Else MsgBox "Erreur lors du télécharegement" Exit Sub End If skip_load: conv_lf: Open App.Path & "\url.txt" For Input As #1 Open App.Path & "\crlf.txt" For Output As #2 zone = Input(LOF(1), #1) zone = Replace$(zone, vbLf, vbCrLf) zone = Replace(zone, "\u00e0", "à") zone = Replace(zone, "\u00e2", "â") zone = Replace(zone, "\u00e9", "é") zone = Replace(zone, "\u00e8", "è") zone = Replace(zone, "\u00ea", "ê") zone = Replace(zone, "\u00eb", "ë") zone = Replace(zone, "\u00f9", "ù") zone = Replace(zone, "\u00e7", "ç") zone = Replace(zone, "\u0026", "") zone = Replace(zone, "\u2026", "") zone = Replace(zone, "\u0027", "'") zone = Replace(zone, "\u0153", Chr(156)) zone = Replace(zone, "\u00fb", "û") zone = Replace(zone, "\u00f4", "ô") zone = Replace(zone, "\u00ef", "ï") zone = Replace(zone, "\u00f6", "ö") zone = Replace(zone, "\u00fc", "ü") zone = Replace(zone, "\u00e4", "ä") zone = Replace(zone, "\u00f1", "ñ") zone = Replace(zone, "\u00ee", "î") zone = Replace(zone, "\u00c9", "É") zone = Replace(zone, "\u00c0", "À") zone = Replace(zone, "\u00ab", "!") zone = Replace(zone, "\u00c0", "&") zone = Replace(zone, "\u00c7", "Ç") zone = Replace(zone, "\u00ed", "í") zone = Replace(zone, "\u00e1", "á") zone = Replace(zone, "\u00f3", "ó") zone = Replace(zone, "\u00bf", "¿") zone = Replace(zone, "\u0028", "(") zone = Replace(zone, "\u0029", ")") zone = Replace(zone, "amp;", "") Print #2, zone Close #2 Close #1 End Sub
<script> var dataTable = { data: {"quality_index":[{"percentage_value":85,"name_de":"Mengenelemente","name_en":"Major elements","name_es":"Major elements","name_it":"Major elements","name_fr":"Major ... j'abrège ... <script src="https://lab.atiaquaristik.com/js/vendor/liquid-fill-gauge.min.js"></script> <script src="https://lab.atiaquaristik.com/js/general.js?v=84"></script> <script src="https://lab.atiaquaristik.com/js/frontend.js?v=84"></script> </body> </html>Je voudrais obtenir ce que j'ai dans le presse papier en affichant la page dans un navigateur puis en faisant Ctrl+A Ctrl+C