W3 Socket - hent HTML side

Her er et eksempel, der henter Ekspertens forside. Efter koden er udført, indeholder variablen strHTTPResponse serverens svar:

Dim objSocket
Dim strHTTPReq, strHTTPResponse

strHTTPReq = \"\"
strHTTPReq = strHTTPReq & \"GET / HTTP/1.1\" & vbCRLF
strHTTPReq = strHTTPReq & \"Host: www.eksperten.dk\" & vbCRLF
strHTTPReq = strHTTPReq & \"Connection: Close\" & vbCRLF
strHTTPReq = strHTTPReq & vbCRLF

Set objSocket = CreateObject(\"Socket.TCP\")

With objSocket
  .Host = \"www.eksperten.dk:80\"
  .Open() \'Åbn forbindelsen
  .SendText(strHTTPReq) \' SendText() indsætter ikke et linieskift efter teksten, hvad SendLine() gør
  .WaitForDisconnect() \' Modtager data indtil den anden ende lukker forbindelsen
  .Close()
End With

strHTTPResponse = objSocket.Buffer

Set objSocket = Nothing

Bemærk at strHTTPResponse også indeholder de HTTP headere serveren sender med.

kan man lave det sådan den ikke komemr med resultatet.

Altså sådan den kun henter side men det faktisk sker i baggrunden.

Ikke forstået? Hvad vil du gerne gøre med siden?

Jeg har brugt en anden løsning den du kom med fungede ikke til dette desværre ...