Welcome guest. Before posting on our computer help forum, you must register. Click here it's easy and free.

Author Topic: Web Loading  (Read 2081 times)

0 Members and 1 Guest are viewing this topic.

Jacob

    Topic Starter


    Hopeful

    Thanked: 1
    • Experience: Expert
    • OS: Windows XP
    Web Loading
    « on: June 07, 2008, 05:33:10 AM »
    resolved.
    « Last Edit: June 07, 2008, 09:10:45 AM by Jacob »

    Sidewinder



      Guru

      Thanked: 139
    • Experience: Familiar
    • OS: Windows 10
    Re: Web Loading
    « Reply #1 on: June 07, 2008, 07:51:32 AM »
    The type command expects [drive:][path]filename parameters not internet addresses. Batch coding is not designed for the Web, but you have alternatives on your system that will scrape and print the web page data:

    Code: [Select]
    Set objIE = CreateObject("InternetExplorer.Application")

    objIE.Navigate("http://batchmedia.0moola.com/text.txt")
    Do Until objIE.ReadyState = 4
    WScript.Sleep 100
    Loop

    objIE.document.parentwindow.clipboardData.SetData "text", objIE.Document.Body.InnerText

    WScript.Echo objIE.Document.ParentWindow.ClipboardData.GetData("text")
            objIE.Quit

    Save the script with a vbs extension and run from the command prompt as cscript scriptname.vbs

    Good luck. 8)
    The true sign of intelligence is not knowledge but imagination.

    -- Albert Einstein

    Jacob

      Topic Starter


      Hopeful

      Thanked: 1
      • Experience: Expert
      • OS: Windows XP
      Re: Web Loading
      « Reply #2 on: June 07, 2008, 08:13:13 AM »
      The type command expects [drive:][path]filename parameters not internet addresses. Batch coding is not designed for the Web, but you have alternatives on your system that will scrape and print the web page data:

      Code: [Select]
      Set objIE = CreateObject("InternetExplorer.Application")

      objIE.Navigate("http://batchmedia.0moola.com/text.txt")
      Do Until objIE.ReadyState = 4
      WScript.Sleep 100
      Loop

      objIE.document.parentwindow.clipboardData.SetData "text", objIE.Document.Body.InnerText

      WScript.Echo objIE.Document.ParentWindow.ClipboardData.GetData("text")
              objIE.Quit

      Save the script with a vbs extension and run from the command prompt as cscript scriptname.vbs

      Good luck. 8)
      amazing
      works like a dream
      thanks very much
       ;)