Hente værdi fra internet side

hej

tilføj en Inet Control (CTRL+T: Microsoft Internet Transfer Control). Indstil den på formen til
  AccessType = 0 'Default
  RemotePort = 80
  Protocol = 4 'HTTP

og når du så vil hente siden så er det følgende:

Private Sub HentMinSide()
    dim strURL as String
    dim toParse as String

    strURL = "http://mitdomæne.dk/tjekabn.php"
    strURL = strURL & "?s=123456"

    toParse = InetTjekUpdate.OpenURL(strURL)

    If Len(toParse) > 0 Then
        'tjek om linieskift osv.
    Else
        'intet indhold
    End If

End Sub

/hiks