Any idea why I'm forbidden?
Thanks in advance!
Function writeMessage(ByVal StrPass, ByVal StrUser, ByVal StrMessage,
ByVal StrTo) As String
Dim req As System.Net.HttpWebRequest =
System.Net.HttpWebRequest.Create("http://twitter.com/direct_messages/
new.xml?user=" + StrTo + "&text=" + StrMessage)
If Not StrUser = "" Or StrPass = "" Then
req.Credentials = New System.Net.NetworkCredential
(StrUser, StrPass)
req.Method = "POST"
'req.ContentLength = 0
'req.ServicePoint.Expect100Continue = False
req.ContentType = "application/x-www-form-urlencoded"
'req.PreAuthenticate = True
Dim resp As HttpWebResponse = req.GetResponse()
Dim sr As New System.IO.StreamReader(resp.GetResponseStream
())
'sr.Read(req.GetResponse(), )
Return sr.ReadToEnd()
End If
End Function
