asp.net 1.1 oauth twitter status update

I'm using VB asp.net 1.1 and I'd like to have a new function to handle the required oauth to post twitter status updates and that is it. I'd rather not use any dll references. I tried twitterizer, but since I have asp.net 1.1 it does not work.

Please see the details for more info. Thanks!

## Deliverables

I've used visual basic 2003 with the asp.net framework 1.1.

Asp.net 1.1 on a windows 2003 server with IIS6.

Related links:

[url removed, login to view]

This might help a bit, I'm not sure:

[url removed, login to view]

I need you to have your own twitter account to test this on, as well as all the software you're going to need to test. I would like to have the code and instruction to call the function you're building and a detailed description of what the code in the function is doing.

I'll test the code and if it works, I'll release the escrow. Unfortunately, I can not give you access to our servers, I'm hoping that will not be a problem.

Please let me know if you have any questions. Thanks!

Marvin

---------------------------------------------------------------------------------------

This is the code I used when calling the function to do a status update on twitter:

Tweet = TwitterUpdate([USERNAME], [PASSWORD], "xml", [TYPED_MESSAGE], [USERNAME])

If Tweet = "Error" Then

[url removed, login to view] = "Twitter post Failed."

[url removed, login to view] = [url removed, login to view]

Else

[url removed, login to view] = "Successfully updated Twitter."

[url removed, login to view] = [url removed, login to view]

End If

This is the main function that use to work for the basic authentication before twitter required the new oauth authentication process:

Public Function TwitterUpdate(ByVal _username As String, ByVal _password As String, ByVal format As String, ByVal status As String, ByVal in_reply_to_status_id As String) As String

Dim _url As String = "[url removed, login to view]{format}?"

Dim _data As String = ""

Dim _pAdded As Boolean = False

If status <> "" Then

If _pAdded Then

_data += "&"

End If

_data += "status=" & [url removed, login to view](status)

_pAdded = True

End If

If in_reply_to_status_id <> "" Then

If _pAdded Then

_data += "&"

End If

_data += "in_reply_to_status_id=" & [url removed, login to view](in_reply_to_status_id)

_pAdded = True

End If

If format <> "" Then

_url = [url removed, login to view]("{" & "format" & "}", format)

End If

Return (ExecutePostCommand(_url, _username, _password, _data))

Return (ExecuteDELETECommand(_url, _username, _password, _data))

End Function

Ingeniería MySQL PHP Gestión de proyectos Arquitectura de software Verificación de software Web Hosting Gestión de páginas web Verificación de páginas web

Nº del proyecto: #3860767

Sobre el proyecto