Mobile

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim lsParams As String = "status=" & Uri.EscapeDataString("message to post")

     Dim loRequest As HttpWebRequest = CType(HttpWebRequest.Create("http://twitter.com/statuses/update.xml"), HttpWebRequest)
     With loRequest
         .Proxy = System.Net.GlobalProxySelection.GetEmptyWebProxy()

         .Timeout = 10000
         .AllowAutoRedirect = True
         .AllowWriteStreamBuffering = True

         .Method = "POST"

         .ContentType = "application/x-www-form-urlencoded"
         .ContentLength = Len(lsParams)

         Dim loCred As New System.Net.NetworkCredential("USERNAME", "PASSWORD")
         .Credentials = loCred

         ' Write the request paramater
         Dim stOut As New StreamWriter(.GetRequestStream(), System.Text.Encoding.ASCII)
         stOut.Write(lsParams)
         stOut.Flush()
         stOut.Close()

         Dim loResp = .GetResponse
         With loResp

             .Close()
         End With

     End With
 End Sub