> 
- Home Page
- > Script VB.Net
- > Script VB.Net - Network
- > WebClient
WebClient - << VERSIONE C# >>
Usare la classe WebClient per leggere l'html
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.IO" %>
<%@ Page Language="vb" %>
<HTML>
<script language="vb" runat="server">
Private Sub getHtml(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim myWebClient As WebClient = New WebClient
Dim myStream As Stream = myWebClient.OpenRead(tbUrl.Text)
Dim sr As StreamReader = New StreamReader(myStream)
lbHtml.Text = sr.ReadToEnd().Replace("<", "<").Replace(">", ">").Replace("\n", "<br>")
Catch
lbHtml.Text = "Sito non trovato!"
Finally
myStream.Close()
End Try
End Sub
</script>
<body>
<form name="Form1" runat="server" ID="Form1">
<TABLE id="Table1" cellSpacing="0" cellPadding="4" width="300" bgColor="#ffff66" border="0">
<TR>
<TD>URL</TD>
<TD><asp:textbox id="tbUrl" runat="server" Width="280px">http://</asp:textbox></TD>
</TR>
<TR>
<TD></TD>
<TD><asp:button id="Button1" onclick="getHtml" runat="server" Text="Leggi HTML"></asp:button></TD>
</TR>
</TABLE>
<BR>
<TABLE id="Table2" cellSpacing="0" cellPadding="4" width="100%" bgColor="honeydew" border="1">
<TR>
<TD>
<asp:Label id="lbHtml" runat="server"></asp:Label></TD>
</TR>
</TABLE>
</form>
</body>
