Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[VBS] Extraction du Code Source en HTML d'une page Web
Auteur Message
Répondre en citant
Message [VBS] Extraction du Code Source en HTML d'une page Web 
Salut Laughing
Voici un petit script VBS qui sert à extraire le code source HTML d'une page web Okay
Code:
Const TriStateTrue = -1 ' Pour la prise en charge de l'Unicode
URL = InputBox("Entrez l'URL pour y extraire son Code Source HTML "&vbcr&vbcr&_
"Exemple ""http://www.google.fr""","Extraction du Code Source © Hackoo © 2013","http://www.google.fr")
If URL = "" Then WScript.Quit
Titre = "Extraction du Code Source de " & URL
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 = "CodeSourceHTML.txt"
Set objHTMLFile = objFSO.OpenTextFile(strFileHTML, 2, True, TriStateTrue)
objHTMLFile.WriteLine(Titre&vbcr&String(120,"*"))
objHTMLFile.WriteLine(DataHTML)
objHTMLFile.Close
ie.Quit
Set ie=Nothing
 Ouvrir(strFileHTML)
wscript.Quit

Function Ouvrir(File)
    Set ws=CreateObject("wscript.shell")
    ws.run "Notepad.exe "& File,1,False
end Function




Dernière édition par Hackoo le Mer 16 Juil 2014 - 11:46; édité 1 fois

______________________________________________________
Mes Contributions en Téléchargement
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [VBS] Extraction du Code Source en HTML d'une page Web 
Bonjour,
Je voie pas à quoi ça peut servir dans l'immédiat Wink ,
Si ce n'est pour comprendre le language HTML Shocked ,
Autant prendre des cours Mort de Rire .

Okay merci du partage.




______________________________________________________
Le batch est mon joujou de tout les jours,
plus pour le loisir que pour le travail,
et avec j'apprend presque tout les jours,
comment programmer et le travailler,
pour avoir enfin un résultat cool.

Ed la poignée du 93 (^_^)
Yahoo Messenger MSN Skype
Répondre en citant
Message [VBS] Extraction du Code Source en HTML d'une page Web 
Salut Cool
Voila pourquoi on a besoin de savoir le code source HTML ou bien en Texte d'une page web c'est pour récupérer quelques données qu'on veut les extraire et les exploiter après dans un programme Laughing
un petit exemple qui vous montre comment récupérer votre IP publique en HTA
Donc copier et coller ce code ci-dessous et enregistrez-le sous IP.hta Laughing je sais, je sais ... Wink je crois vous allez bientôt aimer le HTA Okay Enjoy it Okay
Code:
<html>
<head>
<title>Application pour Tester la Connexion à Internet avec affichage des adresses IP(s) © Hackoo  2013 (^_^)</title>
<HTA:APPLICATION
APPLICATIONNAME="Set IP config"
SCROLL="no"
SINGLEINSTANCE="yes"
ICON="nslookup.exe"
MAXIMIZEBUTTON="no"
WINDOWSTATE="no">
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<script language="VBScript">
Dim TimerID,vbtxt
Dim refresh
VBtxt="Application pour Tester la Connexion à Internet avec affichage des adresses IP(s) © Hackoo  2013 (^_^) "
VBvitesse="500"

Sub IPs()
   Set oFso = CreateObject("Scripting.FileSystemObject")
   If oFso.FileExists("c:\ipconfig.txt") Then
      Set f = oFso.OpenTextFile("c:\ipconfig.txt",1)
      Data = f.ReadAll
      f.Close
   Else
      MsgBox "une erreur s'est produite lors de la lecture du fichier c:\ipconfig.txt",16,"Erreur de Lecture du fichier"
      Exit Sub
   End If
   Set objRegex = new RegExp
   objRegex.Pattern = "\b((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)\b"
   objRegex.Global = True
   objRegex.IgnoreCase = True
   Set Matches = objRegex.Execute(Data)
'MsgBox Matches(0)&vbcr&Matches(1)&vbcr&Matches(2)
   IPaddress.Value = Matches(0)
   Subnet.Value=Matches(1)
   Gateway.Value=Matches(2)
End Sub

Function VBScroll_Title()
   Document.title=vbtxt
   vbtxt=mid(vbtxt,2,len(vbtxt)) & left(vbtxt,1)
End Function

Sub stoper()
   Clear=ClearInterval(refresh)
End Sub

Sub Window_OnLoad
   CenterWindow 320,300
   refresh=setInterval("VBscroll_title()",VBvitesse,"Vbscript")
   IpConfig()
   IPs()
End Sub

Sub IpConfig()
   Set Ws = CreateObject("wscript.Shell")
   Command = "Cmd /c ipconfig > c:\ipconfig.txt"
   Resultat = Ws.Run(Command,0,True)
End Sub

Sub CheckIP()
   Dim IP,Masque,Passerelle,DNS1,DNS2
   IP = IPaddress.Value
   Masque = Subnet.Value
   Passerelle = Gateway.Value
   DNS1 = DNSServer1.Value
   DNS2 = DNSServer2.Value
   
   If Not IP_Valide(IP) Then
      MsgBox "L'adresse IP que vous avez saisi est non valide",16,"L'adresse IP que vous avez saisi est non valide"
      IPaddress.Focus()
   End If
   
   If Not IP_Valide(Masque) Then
      MsgBox "L'adresse IP du masque sous-réseau que vous avez saisi est non valide",16,"L'adresse IP du masque sous-réseau que vous avez saisi est non valide"
      Subnet.Focus()
   End If
   
   If Not IP_Valide(Passerelle) Then
      MsgBox "L'adresse IP de la Passerelle par défaut que vous avez saisi est non valide",16,"L'adresse IP de la Passerelle par défaut que vous avez saisi est non valide"
      Gateway.Focus()
   End If
   
   If Not IP_Valide(DNS1) Then
      MsgBox "L'adresse IP de DNS1 que vous avez saisi est non valide",16,"L'adresse IP de DNS1 que vous avez saisi est non valide"
      DNSServer1.Focus()
   End If
   
   If Not IP_Valide(DNS2) Then
      MsgBox "L'adresse IP de DNS2 que vous avez saisi est non valide",16,"L'adresse IP de DNS2 que vous avez saisi est non valide"
      DNSServer2.Focus()
   End If
   
   If IP_Valide(IP) And IP_Valide(Masque) And IP_Valide(Passerelle) And IP_Valide(DNS1) And IP_Valide(DNS2) Then
      MsgBox "IP : "&IP&vbCr&"Masque sous réseau : "&Masque&vbCr&"Passerelle par défaut : "&Passerelle&vbCr&_
      "DNS1 : "& DNS1&vbCr&"DNS2 : "& DNS2,64,"Les @ IP"
   End If
End Sub

Sub CenterWindow(x,y)
   window.resizeTo x, y
   iLeft = window.screen.availWidth/2 - x/2
   itop = window.screen.availHeight/2 - y/2
   window.moveTo ileft, itop
End Sub

Function IP_Valide(ip)
   Set RegularExpressionObject = New RegExp
   With RegularExpressionObject
      .Pattern = "\b((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)\b"
      .IgnoreCase = False
      If .Test(ip)= True then
         IP_Valide = True
      end if
   End With
End Function

Function TestConnexion()
   strComputer = "smtp.gmail.com"
   Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
   For Each objStatus in objPing
      If objStatus.Statuscode = 0 Then
         TestConnexion = True
         Call stoper
         Self.document.title = "Connecté à INTERNET © Hackoo"
         Ip_Publique
      Else
         TestConnexion = False
         Call Stoper
         Self.document.title = "PAS Connecté A INTERNET © Hackoo"
         ip.InnerHTML = "###.###.###.###"
      end If   
   Next   
End Function

Sub Ip_Publique
   Dim Titre,URL,ie,objFSO,Data,OutPut,objRegex,Match,Matches
   Titre = "Adresse Ip Publique !"
   URL = "http://monip.org"
   Set ie = CreateObject("InternetExplorer.Application")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   ie.Navigate (URL)
   ie.Visible=false
   DO WHILE ie.busy
      Sleep 100
   LOOP
   Data = ie.document.documentElement.innertext
   ie.Quit
   Set ie = Nothing
   Set objRegex = new RegExp
   objRegex.Pattern = "\b([0-9]{1,3}\.){3}[0-9]{1,3}\b"
   objRegex.Global = False
   objRegex.IgnoreCase = True
   Set Matches = objRegex.Execute(Data)
   For Each Match in Matches   
      ip.InnerHTML = Match.Value
   Next
End Sub

Sub Sleep(MSecs)' Fonction pour faire une pause car wscript.sleep ne marche pas dans un HTA
   Set fso = CreateObject("Scripting.FileSystemObject")
   Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
   Dim tempName : tempName = "Sleeper.vbs"
   If Fso.FileExists(tempFolder&"\"&tempName)=False Then
      Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True)
      objOutputFile.Write "wscript.sleep WScript.Arguments(0)"
      objOutputFile.Close
   End If
   CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& MSecs,1,True
End Sub
</script>
<body STYLE="font:10 pt arial; color:white;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">
<table>
<tr><a><BIP Publique : </B><B<font color="#669933"><span id="ip"></span></font></B></a><p></tr>
<tr>
<td><BAdresse IP Locale</B></td>
<td>
<input type="textbox" name="IPaddress" size="13"  style="font-weight: bold">
</td>
</tr>
<tr>
<td><BMasque sous-réseau</B></td>
<td>
<input type="textbox" name="Subnet" size="13"  style="font-weight: bold">
</td>
</tr>
<tr>
<td><BPasserelle par défaut</B></td>
<td>
<input type="textbox" name="Gateway" size="13"  style="font-weight: bold">
</td>
</tr>
<tr>
<td><BDNS Server 1</B></td>
<td>
<input type="textbox" name="DNSServer1" size="13"  style="font-weight: bold">
</td>
</tr>
<tr>
<td><BDNS Server 2</B></td>
<td>
<input type="textbox" name="DNSServer2" size="13"  style="font-weight: bold">
</td>
</tr>
</table><br>
<center><input type="Submit" style="cursor:hand;" value="Vérifier les @IP" name="Check"  onClick="CheckIP()" style="font-weight: bold">
<input type="button" style="cursor:hand;" value="IP Publique" name="Reload"  onClick="TestConnexion()" style="font-weight: bold"><p>
</body>
</html>





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [VBS] Extraction du Code Source en HTML d'une page Web 
Hey mais t'es fort sur le sujet toi.
Rien qu'en 2h j'ai 3 hta et 2 vbs à toi Okay
tu me plait Mr. Green Okay




______________________________________________________
Le batch est mon joujou de tout les jours,
plus pour le loisir que pour le travail,
et avec j'apprend presque tout les jours,
comment programmer et le travailler,
pour avoir enfin un résultat cool.

Ed la poignée du 93 (^_^)
Yahoo Messenger MSN Skype
Répondre en citant
Message [VBS] Extraction du Code Source en HTML d'une page Web 
Salut Laughing
une mise à jour du HTA qui a été mal formaté par le convertisseur automatique du forum

Application pour Tester la Connexion vers Internet avec affichage des adresses IP




______________________________________________________
Mes Contributions en Téléchargement
Message [VBS] Extraction du Code Source en HTML d'une page Web 


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