WebBrowser komponent show source

source i HTML format

'--------------------------------- Form1 ---------------------------------
Option Explicit

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_FLAG_RELOAD = &H80000000

Public Function DownloadString(UrlFile As String) As String
Dim lInternetOpen As Long
Dim lInternetOpenUrl As Long
Dim sBuffer As String * 256
Dim lBytes As Long
Dim sComplete As String

  lInternetOpen = InternetOpen("Test", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
  lInternetOpenUrl = InternetOpenUrl(lInternetOpen, UrlFile, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
    Do
      InternetReadFile lInternetOpenUrl, sBuffer, Len(sBuffer), lBytes
        If lBytes = 0 Then Exit Do
          sComplete = sComplete & Left$(sBuffer, lBytes)
      DoEvents
    Loop
  InternetCloseHandle lInternetOpenUrl
  InternetCloseHandle lInternetOpen

DownloadString = sComplete
End Function

Private Sub Command1_Click()
  Text1 = DownloadString("http://www.eksperten.dk/spm/256469")
End Sub
'--------------------------------- Form1 ---------------------------------

Degt virkede jo perfekt (er det noget du har fra en side) lige på nær at text1 ikke var defineret, så det er den blevet nu :-)

Takker!

http://allapi.net/