Sjule (ALDRI engang vise) vinduet i appen min

[Wubbable]

Har kjørt meg litt i senk her...

 

"ToString" metoden returnerer bare navnet på funksjonen:

 

    Sub Main()

       MsgBox(GetResponse("http://home.lyse.net"))

   End Sub

   Public Function GetResponse(ByRef URL As String)

       'Create a web request   
       Dim m_Req As HttpWebRequest = HttpWebRequest.Create(URL)

       'Get a web response   
       Return m_Req.GetResponse().ToString

   End Function

 

 

 

edit:

Fant en kode på google, funka

 

    Public Function RetPG(ByVal URL As String)

       Try

           Dim myRequest As System.Net.HttpWebRequest = WebRequest.Create(URL)
           myRequest.Credentials = CredentialCache.DefaultCredentials

           '// Get the response 

           Dim webResponse As WebResponse = myRequest.GetResponse
           Dim respStream As Stream = webResponse.GetResponseStream

           '// 

           Dim ioStream As StreamReader = New StreamReader(respStream)
           Dim pageContent As String = ioStream.ReadToEnd

           Return pageContent

           '// Close streams 

           ioStream.Close()
           respStream.Close()

       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Page loading error")
           End
       End Try

   End Function

 

 

edit: Må bare si hvor SYKT mye raskere programmet ble til å laste... Har application frameworket SÅ SYKT mye å si for performance?

Endret 10. mai 2007 av Vigilant

[wolf5]

Heheh. Alt det der med cookiecontainer og HttpWebRequest stod jo i den fine klassen jeg postet jo.

 

Dere må lese etter.

[Wubbable]

Synes min var noe mer ryddigere