Dies ist eine alte Version des Dokuments!

file.vbs

  const url = "http://www.fixfoto.info/"
 
  set objXLM = CreateObject("Microsoft.XMLHTTP")
  objXLM.Open "Get",url,false 'bei false wird autom. gewartet bis url geöffnet
  objXLM.Send
 
  urlText = objXLM.responseText
 
  'hier können Informationen aus dem Text herausgefiltert werden
 
  msgbox urlText    'Anzeige nicht vollständig (nur ca. 1000 Zeichen zur Demo)