Dim request As String
 
        request = "isiwebuserid=" & HttpUtility.UrlEncode(txtUsername.Text) & _
                  "&isiwebpasswd=" & HttpUtility.UrlEncode(txtPassword.Text) & _
                  "&isiwebjavascript=No&isiwebappid=mobile&isiwebmethod=authen" & _
                  "icate" & _
                  "&isiweburi=%2Fyouth%2Fsms_senden-de.aspx&isiwebargs=login"
 
        Dim myReq As HttpWebRequest = WebRequest.Create( _
          "https://www.swisscom-mobile.ch/youth/sms_senden-de.aspx?login")
        Dim encoding As New System.Text.ASCIIEncoding()
        Dim byte1 As Byte() = encoding.GetBytes(request)
 
        myReq.ContentType = "application/x-www-form-urlencoded"
        myReq.ContentLength = byte1.Length
        myReq.Method = "Post"
 
        Dim newStream As Stream = myReq.GetRequestStream()
        newStream.Write(byte1, 0, byte1.Length)
 
        newStream.Close()
 
        request = _
          "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE_SCM=1&__VIEWSTATE=" & _
                  "&CobYouthSMSSenden:txtMessage=" & HttpUtility.UrlEncode( _
                  txtMessage.Text) & _
                  "&CobYouthSMSSenden:txtNewReceiver=" & HttpUtility.UrlEncode( _
                  txtTelephoneNr.Text) & _
                  "&CobYouthSMSSenden:btnSend=Senden"
 
        myReq = WebRequest.Create( _
          "https://www.swisscom-mobile.ch/youth/sms_senden-de.aspx")
        byte1 = encoding.GetBytes(request)
 
        myReq.ContentType = "application/x-www-form-urlencoded"
        myReq.ContentLength = byte1.Length
        myReq.Method = "Post"
 
        newStream = myReq.GetRequestStream()
 
        newStream.Write(byte1, 0, byte1.Length)
 
        newStream.Close()
 
        newStream = Nothing