[VB.NET] Preia sursa unei pagini web

[tw8]

Salut!

Datorita faprului ca am cunoscut multe persoane care s-au blocat (sau s-au dat pagubasi) cand au avut nevoie sa preia sursa unei pagini web in VB.NET, m-am hotarat sa fac un mic tutorial.

Pentru a lua sursa paginii (in exemplu, index-ului de la Google) vom folosi un mic dll creeat de mine (click to download).

Sa incepem...

Mai intai, adaugam programul la referinte, apoi o invocam (eu am invocat-o, spre exemplu, in procedura load a form-ului). Pentru a invoca dll-ul:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim WebS As New Web.STry

Apoi, pentru a retine sursa paginii web o sa definim o variabila de tip text:

Dim pagesource As String

Acum, pentru a functiona corect codul, inainte de a lua sursa poaginii (ca si dupa ce o iau, de altfel), voi pune urmatorul cod, care apeleaza o functie a dll-ului pentru a sterge fisierul temporar in care se salveaza susra paginii (voi pune aceasta functie si inainte, pentru a fi sigur ca fisierul nu exista in caz ca, spre exemplu, programul s-a blocat inainte de a apuca sa sterga fisierul):

WebS.Del()

Pentru a lua sursa paginii web, vom folosi:

pagesource = WebS.Read("http://www.google.ro/index.html")

Apoi, vom pune din nou

WebS.Del()

Si desigur

MessageBox.Show(pagesource)

Codul Complet:

        Dim WebS As New Web.STry
        Dim pagesource As String
        WebS.Del()
        pagesource = WebS.Read("http://www.google.ro/index.html")
        WebS.Del()
        MessageBox.Show(pagesource)

Cam atat pentru un moment.

Bafta .

[ÐÒ&]

in vb.net sunt si functii care fac un http request la un anumit uniform resource locator.

Dim var as Net.HttpWebRequest  = net.webrequest.create("www.google.ro")
Dim rasp as Net.HttpWebResponse = var.getresponse()
//citim ca fisier
Dim fs as filestream
Dim s$
s = fisier.readtoend()

in s vom avea sursa paginii.

Sau ne conectam cu socketi chiar noi dar asta o voi explica mai tarziu.

apropo,va trebuiesc system.io.file si system.net

: