Visual Basic .NET

2.1 HttpWebRequest

Date: 21.11.2004

Imports System
Imports System.Net
Imports System.IO

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private Sub bSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSend.Click
        Dim Url As String = "http://www.example.org/cgi-bin/env.pl"
        Dim PageRequest As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
        Dim PageResponse As WebResponse = PageRequest.GetResponse()

        'Read response stream
        Dim r As New StreamReader(PageResponse.GetResponseStream())
        Dim Page As String = r.ReadToEnd()
        r.Close()
        appMsg.Text = Page
    End Sub

    Private Sub sms_text_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sms_text.TextChanged

    End Sub

End Class

copyright by retoh - created with mytexi