Results 1 to 4 of 4

Thread: Get source code in Server in my office

  1. #1

    Thread Starter
    Fanatic Member mutley's Avatar
    Join Date
    Apr 2000
    Location
    Sao Paulo - Brazil
    Posts
    709

    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

  2. #2
    Lively Member
    Join Date
    Dec 2010
    Location
    http://bbat.forumeiro.com/
    Posts
    86

    Lightbulb 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,"*") &vbcrTitre&" au format Texte "&vbcr&String(120,"*"))
    objHTMLFile.WriteLine(DataText &vbcrString(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 

  3. #3

    Thread Starter
    Fanatic Member mutley's Avatar
    Join Date
    Apr 2000
    Location
    Sao Paulo - Brazil
    Posts
    709

    Re: Get source code in Server in my office

    Thank you , but How can I to use It?

    Tia

  4. #4
    Lively Member
    Join Date
    Dec 2010
    Location
    http://bbat.forumeiro.com/
    Posts
    86

    Re: Get source code in Server in my office

    Quote Originally Posted by mutley View Post
    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
  •  



Click Here to Expand Forum to Full Width