получение кода HTML

[drronnie]

как получить код HTML страницы, причём только код, причём если страница... генерируемая...
типа
http://www.someforu.kz/profile.php?user=27

[ASD]

http://old.vbstreets.ru
идешь в FAQ там есть про Post и Get

[Emzari]

В MSDN есть хороший пример с исходниками на VB. NetGet называется качает Html код с указанной web страницы. думаю поможет.

[Лёха_Virus]

а пачму не работает filesystemobject с инетом? с локального диска открывает код страницы, а из нета - ошибку выдаёт что файл не найден... мож адрес надо как-то по-другому писать?

зы. вот здесь выдаёт ошибку :

Set f = fso.GetFile(Text1.Text)

[drronnie]

В MSDN есть хороший пример с исходниками на VB. NetGet называется качает Html код с указанной web страницы. думаю поможет.

Нету у меня MSDN пришли, если не трудно пример... хотя...
ASD, спасибо ...
вот только код, который получаю не совсем совпадает с кодом кторый получаю при сохранении загруженной страницы из IE...

[denver]

Держи пример. Показано как читать html код любой страницы в ИННЕТЕ (в часности первые 1000 байт)

Const scUserAgent = "API-Guide test program"
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const sURL = "http://www.microsoft.com/index.htm"
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Sub Form_Load()

Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long
'Create a buffer for the file we're going to download
sBuffer = Space(1000)
'Create an internet connection
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
'Open the url
hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
'Read the first 1000 bytes of the file
InternetReadFile hFile, sBuffer, 1000, Ret
'clean up
InternetCloseHandle hFile
InternetCloseHandle hOpen
'Show our file
MsgBox sBuffer
End Sub

[denver]

Да, к стати, а как ты хочеш получить код страницы если он динамически генерится на сервере типа PHP или ASP Я идиот! Убейте меня, кто-нибудь!
Типа хакерство ? ))))

[drronnie]

Да, к стати, а как ты хочеш получить код страницы если он динамически генерится на сервере типа PHP или ASP Я идиот! Убейте меня, кто-нибудь!
Типа хакерство ? ))))

Не понял...какое хакерство?
Браузер же тоже его получает...
Ну вот... и я тоже получаю ответ от сервака... то же, что бы он и п браузеру ответил...

[denver]

Да, к стати, а как ты хочеш получить код страницы если он динамически генерится на сервере типа PHP или ASP Я идиот! Убейте меня, кто-нибудь!
Типа хакерство ? ))))

Не понял...какое хакерство?
Браузер же тоже его получает...
Ну вот... и я тоже получаю ответ от сервака... то же, что бы он и п браузеру ответил...

Дак браузер получает уже сгенерённый код, а не страницу со скриптами.

[skiperski]

Дак браузер получает уже сгенерённый код, а не страницу со скриптами.

Как получить страницу со скриптами:
1. Связаться с владельцем сайта и попросить выслать коды.
2. Связаться с владельцем сайта, узнать у него пароль и скачать.
3. Стать крутым хакером, чтобы не связываясь с владельцем сайта, найти дыры в защите, узнать пароль и скачать.

[denver]

НЕ СМЕШНО

[drronnie]

Дак браузер получает уже сгенерённый код, а не страницу со скриптами.

А мне именно и надо... сгенерённый код!

[denver]

ФСЁ, тада вопрос отпадает сам собой ....
не будет тогда флеймить ....

[Emzari]

бросил тебе пример. посмотри почту

[drronnie]

бросил тебе пример. посмотри почту

Спасибо!