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!