-
Mar 27th, 2013, 06:53 AM
#1
Thread Starter
Fanatic Member
Get source code in Server in my office
Hi
I need to see (only) the source code in server in office , I get to Service Desk, but very slow to provide
Are there some other way to get it ?
tia
-
Mar 30th, 2013, 05:35 AM
#2
Lively Member
Re: Get source code in Server in my office
Hi, Try this :
PHP Code:
URL = InputBox("Entrez l'URL pour y extraire son Code Source HTML "&vbCr&vbcr&_
"Exemple ""http://www.google.fr""","Extraction du Code Source"," http://www.monip.org")
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
DataText = ie.document.documentElement.innerText
strFileHTML = "CodeSourceHTML.txt"
Set objHTMLFile = objFSO.OpenTextFile(strFileHTML,2,True)
objHTMLFile.WriteLine(String(120,"*") &vbcr& Titre&" au format Texte "&vbcr&String(120,"*"))
objHTMLFile.WriteLine(DataText &vbcr& String(120,"*"))
objHTMLFile.WriteLine(Titre&" au format HTML "&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
-
Apr 1st, 2013, 07:32 AM
#3
Thread Starter
Fanatic Member
-
Apr 1st, 2013, 01:26 PM
#4
Lively Member
Re: Get source code in Server in my office
Originally Posted by mutley
but How can I to use It?
Just copy and paste the code above in your notepad and save it as SourceCode.vbs and execute it by double clic on it
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|