22. juni 2007 - 11:16Der er
1 kommentar og 1 løsning
hente oplysninger fra webside
jeg har nogle sider hvor jeg altid checker deres nyheder/tilbud så tænkte jeg på om det var muligt at aflæse disse sider ,så ledes at jeg kunne bruge min egen hjemmeside som startside og se alle oplysningerne istedet for at surfe rundt ?
Function GetDataFromWeb(ByVal WebAdr As String) As String Try Dim WebAdresse As String = WebAdr Dim WS As WebClient = New WebClient Dim Response As Stream = WS.OpenRead(WebAdresse) Dim SR As New StreamReader(Response, System.Text.UTF8Encoding.UTF8) GetDataFromWeb = SR.ReadToEnd().ToString SR.Close() Response = Nothing WS = Nothing Catch ex As Exception Debug.WriteLine(ex.Message) GetDataFromWeb = "Error" End Try End Function
/Lars
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.