Html код страницы сайта

Как получить HTML код страницы сайта:

Sh:
curl https://test.ru/info.php - на экран
curl -O http://prohorov-andrej.ru/index.php - в файл

1. Если у вас открыта страница в любом из браузеров - просто кликните правой мышкой в любом пустом месте страницы и с выпадающего меню выберите пункт "исходный код страницы" или "просмотр в виде НТМЛ"

2. С помощью языка Perl. Скрипт прост:

#!/usr/bin/perl

use LWP::Simple;

$URL="http://yaca.yandex.ru/yca/cat/Computers/";
print "Content-type: text/html\n\n";
print get($URL);

3. С PHP HTML код страницы сайта получить ещё проще:

<?= file_get_contents('http://www.example.com/');?>

Или так:


<?= implode('', file('http://www.example.com/'));?>

----------------------------------
Вероятно что ниже - это аналог команды:
curl https://test.ru/info.php - на экран
curl -O http://prohorov-andrej.ru/index.php - в файл

<?php
// создание нового ресурса cURL
$ch = curl_init();

// установка URL и других необходимых параметров
curl_setopt($ch, CURLOPT_URL, "http://www.example.com/");
curl_setopt($ch, CURLOPT_HEADER, 0);

// загрузка страницы и выдача её браузеру
curl_exec($ch);

// завершение сеанса и освобождение ресурсов
curl_close($ch);
?>
----------------------
<?php
// create curl resource
$ch = curl_init();

// set url
curl_setopt($ch, CURLOPT_URL, "http://www.example.com/");

//return the transfer as a string
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);

// $output contains the output string
$contents = curl_exec($ch);

// close curl resource to free up system resources
curl_close($ch);
?>

-----------------------------------

4. C#

using System;
using System.Net;

class App
{
static void Main()
{
string h=new WebClient().DownloadString("http://test.ru");
Console.WriteLine (h);

}
}

5. VBS:


Function GetHTMLText ( byval strURL )
'Set MyBrowser = CreateObject("MSXML2.XMLHTTP")
Set MyBrowser = CreateObject("MSXML2.ServerXMLHTTP.6.0")
MyBrowser.Open "GET", strURL, False
MyBrowser.send
If MyBrowser.status = 200 Then GetHTMLText = MyBrowser.responseText
Set MyBrowser = Nothing
End Function

html = GetHTMLText ("http://google.ru")
Wscript.Echo html