UA-Error #1735
 
Bitte wenden Sie sich per E-Mail an info@toppreise.ch
Please write to info@toppreise.ch

Option Compare Database
Option Explicit
 
Public Declare Function netDownloadFile Lib "vbarchiv.dll" _
                       (ByVal sUrl As String, _
                        ByVal sLocalFile As String, _
                        ByRef pCallbackFunc As Long, _
                        ByRef uTimeoutMillis As Long) As Boolean
 
Sub TestHTMLDownload()
Dim bSuccess As Boolean
  'meine Problemseite
  bSuccess = netDownloadFile("http://www.toppreise.ch/", _
    "D:\HtmlDownload\demo.HTM", 0, 5000)
 
'  'funktioniert
'  bSuccess = netDownloadFile("http://www.oelclick.ch/", 
' "D:\HtmlDownload\demo.HTM", 0, 5000)
 
End Sub