Anders Lund skrev:
> jeg kan desværre ikke hente hele siden, men kun 30 linie (lidt over
4100
> tegn)
> Her er min kode:
>
> Inet1.URL = "
http://folding.stanford.edu/cgi-bin/teampage?q=13939"
> Inet1.AccessType = icDirect
> StrInput = Inet1.OpenURL
Jeg har lige prøvet at oprette et helt tom VB 6.0 projekt, har tilføjet
komponenten "Microsoft Internet Transfer Control 6.0 (SP4)", lagt et
eksemplar på formen og indsat følgende kode:
Private Sub Form_Load()
Dim StrInput As String
Inet1.URL = _
"
http://folding.stanford.edu/cgi-bin/teampage?q=13939"
Inet1.AccessType = icDirect
StrInput = Inet1.OpenURL
MsgBox Len(StrInput)
End Sub
Jeg får en dialogboks frem, hvor jeg får at vide at længden af StrInput
er 17040 tegn.
Læg mærke til at der tydeligvis er rettelser til "Microsoft Internet
Transfer Control" i Service Pack 4 (og nyere) til Visual Studio
6.0/Visual Basic 6.0.
-------
Tomas