Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Récupérer le code source d'un site
Auteur Message
Répondre en citant
Message Récupérer le code source d'un site 
Bonjour,

Je suis confronté à un soucis,
Je voudrais récupérer le code source de cette page https://viio.smartschool.be/Grades
Le soucis est que ce site ne peut pas s'afficher sur internet explorer. En effet on obtient cette page quand on essaye via internet explorer:


j'utilise pour le moment ce code vbs
Code:
Const TriStateTrue = -1
set args = WScript.Arguments
fichier_de_sortie = args(0)
url = args(1)

Set ie = CreateObject("InternetExplorer.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ie.Navigate(url)
ie.Visible=false
DO WHILE ie.busy
LOOP
DataHTML = ie.document.documentElement.innerHTML
strFileHTML = fichier_de_sortie
Set objHTMLFile = objFSO.OpenTextFile(strFileHTML, 2, True, TriStateTrue)
objHTMLFile.WriteLine(DataHTML)
objHTMLFile.Close
ie.Quit
Set ie=Nothing

Que j'appelle via cmd avec cette synthaxe de commande:
Code:
call:recup_code fichier.txt url

Donc j'obtient le code source de la page qui dit que c'est pas possible d'afficher sur internet explorer...
N'y a-t-il pas un moyen de prendre le code source via edge ou un autre naviguateur que le site accepte?

Merci d'avance,

Programme




______________________________________________________

Programme
Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Récupérer le code source d'un site 
CC,

Non ce n'est pas possible directement, CreateObject("InternetExplorer.Application") est "figé" en vbs ...
Cependant, j'ai trouvé >> >>CECI<< qui devrait t'intéresser, une sorte de contrôle activeX firefox compatible vba Razz
Par contre quand je tests ton vbs je n'ai qu'une partie du code source ... Peut-être voir de ce coté là ?

le code source récupéré (donc pas complet) ouvert dans firefox Mr. Green





______________________________________________________


L'ignorance est un fléau qui engendre la haine et la mort
La connaissance est une arme qui surpasse toutes les autres
Partagez votre savoir, sinon il sera perdu à jamais
Répondre en citant
Message Récupérer le code source d'un site 
utilise un objet XMLHTTP :


Code:
URL="https://viio.smartschool.be/login/"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set http = CreateObject("Microsoft.XmlHttp")

On Error Resume Next
http.open "GET", URL, False
http.send ""
if err.Number = 0 Then
     WScript.Echo http.responseText
Else
     Wscript.Echo "error " & Err.Number & ": " & Err.Description
End If
set WshShell = Nothing
Set http = Nothing


Okay




______________________________________________________
Répondre en citant
Message Récupérer le code source d'un site 
Merci à vos deux réponse.

J'ai utilisé le code de Sachadee et je l'ai mixé avec celui que j'avais déjà:
Code:
Const TriStateTrue = -1
set args = WScript.Arguments
fichier_de_sortie = args(0)
URL = args(1)

Set http = CreateObject("Microsoft.XmlHttp")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
On Error Resume Next
http.open "GET", URL, False
http.send ""
if err.Number = 0 Then
Set objHTMLFile = objFSO.OpenTextFile(fichier_de_sortie, 2, True, TriStateTrue)
objHTMLFile.WriteLine(http.responseText)
objHTMLFile.Close

Else
     Wscript.Echo "error " & Err.Number & ": " & Err.Description
End If
Set http = Nothing


Le problème est que vu qu'il faut que je me loggue sur le site pour acceder à la page il me redirige vers la page de log donc on télécharge la page de log
Avec mon ancienne maniere je me loguais sur internet explorer et je lui faisait retenir le mot de passe.
Il faudrait donc une maniere pour soit:
- me loguer automatiquement via vbs
- meloguer via le browser que le programme utiliseet qu'il retienne mon mot de passe


Une idée?




______________________________________________________

Programme
Skype
Répondre en citant
Message Récupérer le code source d'un site 
un bon vieux javascript Okay




______________________________________________________


L'ignorance est un fléau qui engendre la haine et la mort
La connaissance est une arme qui surpasse toutes les autres
Partagez votre savoir, sinon il sera perdu à jamais
Répondre en citant
Message Récupérer le code source d'un site 
stryk a écrit:
un bon vieux javascript Okay


Je ne sais pas coder en javascript




______________________________________________________

Programme
Skype
Message Récupérer le code source d'un site 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch