Envoyer un message sur son compte twitter

Commenter

Contenu du snippet

C'est Script que vous pouvez utiliser dans un fichier .vbs
ou vous en servir comme base pour faire un programme
en Visual Basic. Twitter prend ce programme pour une API

Merci de m'aider a trouver des améliorations... :)

Source / Exemple : 


OPTION EXPLICIT
Dim strUsername, strPassword, strMessage
strUsername = InputBox("Nom d'utilisateur Twitter :","User account")
strPassword = InputBox("Mot de passe utilisateur :","Password")
strMessage =  InputBox("Message (140 char. maxi) :","Message")
If Len(strMessage) > 140 then
MsgBox "La limite du nombre de caractère à été dépassée",VbError,"Error"
MsgBox "Cliquez pour fermer le script",VbInformation,"Close script"
Else
Dim strTwitterXMLResponse
strTwitterXMLResponse = SendToTwitter(strMessage, strUsername, strPassword)
MsgBox "Message envoyé :)",,"Ok"
End If

Function SendToTwitter(strMessage, strUsername, strPassword)
	Dim objHTTP 
	Set objHTTP = CreateObject("Microsoft.XMLHTTP")
                objHTTP.open "POST", "http://twitter.com/statuses/update.xml", false, strUsername, strPassword
		objHTTP.send "status=" & strMessage
		SendToTwitter = objHTTP.responseText 
	Set objHTTP = nothing
End Function

Conclusion :


1 ) On demande le nom du compte et son password.

2 ) On choisit d'écrire un message de 140 caractères maximum (obligé).

3 ) Une connexion avec un fichier XML (API) de Twitter s'execute.
C'est la fonction SendToTwitter

4 ) Quand le message est envoyé, on le signal à l'utilisateur.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (lesinfosdugeek)