hent html kode fra hjemmeside

Hvis du har WinHTTP kan du lave noget ligesom:

Private Sub Command1_Click()
    Dim WinHttpReq As Object
    Set WinHttpReq = New WinHttpRequest
    WinHttpReq.Open "GET", Text1.Text, False
    WinHttpReq.Send
    Text2.Text = WinHttpReq.ResponseText
End Sub

Jeg har lavet den før se her:

http://www.eksperten.dk/spm/453186
http://hjem.get2net.dk/sjh/eksperten/453186/vbDownload.zip

http://www.eksperten.dk/spm/430574
http://hjem.get2net.dk/sjh/eksperten/430574/Download.zip (Linket til vb5ccein.exe virker ikke mere)

Også et svar fra mig

vender tilbage

Du skal have Inet kontrollen (Inet1) på formen

Function GetHTMLPageStr(ByVal strUrl As String) As String
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = strUrl
strResult = Inet1.OpenURL(, icString)

Do Until Inet1.StillExecuting = False
    DoEvents
Loop

If Inet1.ResponseCode = 0 Then
GetHTMLPageStr = strResult
Else
    GetHTMLPageStr = "ERROR"
End If
End Function

tak blueman

men har lige et prob mere, hvorfor henter den ikke det hele !

Hvis de andre koder jeg sendte er forsværg.. så er her en let en.. ;)

'---------------------------------- Form1 ----------------------------------
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 DownloadFile(strUrl As String, strFilename As String) As Boolean
  DownloadFile = URLDownloadToFile(0, strUrl, strFilename, 0, 0) = 0
End Function

Private Sub Form_Load()
Dim strUrl As String
Dim strSave As String

  strUrl = "http://www.eksperten.dk/spm/544851"
  strSave = "C:\savefile.htm"

  If DownloadFile(strUrl, strSave) = False Then
    MsgBox "Siden blev ikke downloade", vbCritical
  End If
End Sub
'---------------------------------- Form1 ----------------------------------

men skal bare have det ind i en textfelt

ja så kan jeg ikke se hvorfor du ikke kan bruge den her:
http://hjem.get2net.dk/sjh/eksperten/453186/vbDownload.zip

Hvis den kun henter en del af en side kan det evt skyldes at inet.stillExecuting bliver False før hele siden er hentet (aner ikke hvorfor)- jeg har selv oplevet problemet med nogle sider når jeg bruger min hjemme opkobling (512). Med en meget hurtig opkopling (firmaets) har jeg aldrig haft problemer. Prøv evt at ligge en lille forsinkelse (et par tiende dele sekund kan være nok) ind eftter Loop'et.