Hvordan henter jeg html/dukumenter hjem

Private Sub GetPage(strUrl As String)
Dim b() As Byte
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = \"http://www.eksperten.dk\"
b() = Inet1.OpenURL(, icByteArray)
Open \"c:\\emp\\emp.htm\" For Binary Access Write As #1
Put #1, , b()
Close #1
End Sub

\'-------------------------- Form1 --------------------------
Private Declare Function URLDownloadToFile Lib \"urlmon\" Alias _
    \"URLDownloadToFileA\" (ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Private Sub Form_Load()
ret = DownloadFile(\"http://www.eksperten.dk/spm/100634\", \"C:\\eksperten.htm\")
End Sub
\'-------------------------- Form1 --------------------------

Hej igen sorry min computer har været helt nede til tælling!

jelzin101:
Det virker ikke der kommer en fejlmeldning lydende på:
\"Can´t assign to a non-byte array\"
Kan det skyldes at jeg har version 4.0???
:-)  Dixieman

jeg kender ikke nogen kode... men du kan download WinZip på download.com...

Jeg håber at det er svaret på dit spørgsmål...

/akExpert