Visual Basic & Reading HTML code from URL???

[Lord Skill]

voobshem mne nado schitat' - HTML dokument ot nachala do konca i pomestit' ego v peremennuju
ispol'zuju dlja e'togo -
Inet1.OpenURL "http://....", icString
no on schitqvaet tol'ko pervye - 1238 simvolov
a v drugom sluchae
Inet1.OpenURL "http://...."
Inet1.GetChunk (99999)
- no ego tozhe do konca fajla ne hvataet =(
proshu pomoshi!!

[RaZEr]

Dim strURL As String
Dim bData() As Byte      ' Data variable
Dim intFile As Integer   ' FreeFile variable
strURL = _
"ftp://ftp.microsoft.com/Softlib/Softlib.exe"
intFile = FreeFile()      ' Set intFile to an unused
                        ' file.
' The result of the OpenURL method goes into the Byte 
' array, and the Byte array is then saved to disk.
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\Temp\Softlib.exe" For Binary Access Write _ 
As #intFile
Put #intFile, , bData()
Close #intFile

[Lord Skill]

RaZEr

Dim strURL As String
Dim bData() As Byte      ' Data variable
Dim intFile As Integer   ' FreeFile variable
strURL = "http://superchat.ee/"
intFile = FreeFile()      ' Set intFile to an unused
                        ' file.
' The result of the OpenURL method goes into the Byte
' array, and the Byte array is then saved to disk.
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\index.htm" For Binary Access Write _
As #intFile
Put #intFile, , bData()
Close #intFile

tozhe 1238 simvolov schitqvaet
NB!! - mne nado schitat' imenno HTML code!

[RaZEr]

Другой файл с другого сервера считать попробуй.

[Lord Skill]

RaZEr
da mail.ru chitaet - no problemma v tom chto mne imenno tot nado schitat' - i ja ne mogu ponjat' v chem problemma !?
kak-to ved' mozhno - tem bolee esli sozdavat' InternetBrowser - to on ego v okoshke otkrqvaet - a mne nuzhno poluchit' Source =(

[RaZEr]

GetChunk(1024) циклом попробуй (пока не начнет возвращать пустую строку).

[Lord Skill]

RaZEr
Thanks - vse rabotaet > 5 tebe