<%@ Page Language="VB" %> <%@ Import Namespace="System.Net" %> <%@ Import Namespace="System.IO" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <script runat="server"> Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim oRequest As HttpWebRequest Dim oResponse As HttpWebResponse Dim oStream As StreamReader Try oRequest = WebRequest.Create(TextBox1.Text) oResponse = oRequest.GetResponse oStream = New StreamReader(oResponse.GetResponseStream, Encoding.ASCII) Label1.Text = oStream.ReadToEnd oStream.Close() Catch ex As Exception Label1.Text = ex.Message End Try End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> <title>Untitled Page</title> </head> <form id="form1" runat="server"> </form> </html>
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question