Spørgsmål mht Internet Controls

Et skud i tågen kunne være :

webbrowser1.Offline

/Tubber

nej..

Noget i den stil:


Option Explicit

Public Sub SaveUrl(ByVal strURL As String, ByVal strFile As String)
Dim objXMLHTTP As Object
Dim intFile As Integer
Dim strSave As String
intFile = FreeFile

  Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
    objXMLHTTP.Open "GET", strURL, False
    objXMLHTTP.send
    strSave = objXMLHTTP.responseText
  Set objXMLHTTP = Nothing

  Open strFile For Output Shared As #intFile
    Print #intFile, strSave;
  Close #intFile
End Sub

Private Sub Form_Load()
  Call SaveUrl("http://www.eksperten.dk/spm/315152", "C:\Test.txt")
End Sub

du kan også bruge et lille API Call


Option Explicit

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 SaveUrl(ByVal strURL As String, strFile As String) As Boolean
  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, strURL, strFile, 0, 0)
  If lngRetVal = 0 Then SaveUrl = True
End Function

Private Sub Form_Load()
  Call SaveUrl("http://www.eksperten.dk/spm/315152", "C:\Test.txt")
End Sub

Fandt selv en meget nemmere løsning..
Browser.Document.documentElement.outerHTML

..men ellers mange tak for support!