Search solution for tweeter in vbscript language with oAuth authentification or

Résolu
thierryd75 Messages postés 23 Date d'inscription mardi 28 octobre 2008 Statut Membre Dernière intervention 16 juillet 2018 - 15 mars 2012 à 18:47
thierryd75 Messages postés 23 Date d'inscription mardi 28 octobre 2008 Statut Membre Dernière intervention 16 juillet 2018 - 16 mars 2012 à 20:03
Hi,

I search a free vbscript for tweets with OAuth authentification , i found php, .... but not in vps or api have you a solution in vbscript please ? éventualy call an api since vbscript ?

Thanks all !




<!-- Twitter and BitLy access keys -->







Public Sub PostOnTwitter(ByVal Tweet As String)
'Retrieve Keys from web.config
Dim twitterKey As String = system.Configuration.ConfigurationManager.AppSettings("ConsumerKey")
Dim twitterSecret As String = System.Configuration.ConfigurationManager.AppSettings("ConsumerSecret")
Dim twitterOAuthToken As String = System.Configuration.ConfigurationManager.AppSettings("OAuthToken")
Dim twitterOAuthTokenSecret As String = System.Configuration.ConfigurationManager.AppSettings("OAuthTokenSecret")

Try
twConn.AuthenticateWith(twitterKey, twitterSecret, twitterOAuthToken, twitterOAuthTokenSecret)
twConn.Update(Trim(Tweet))
Catch ex As Exception
lblError.Text = "Twitter Returned: " & ex.Message
End Try
End Sub

10 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
16 mars 2012 à 08:49
cf
http://scottdesapio.com/VBScriptOAuth/

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
16 mars 2012 à 09:16
tu peux toujours faire un

Call Ironical.Magical.Fantastic.Tweet("login", "password", "Message")

hein? ah non...

semble y avoir des API pas mal documentées sur le site de tweeter :


Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
3
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 236
15 mars 2012 à 19:41
dime,
si no te molestas :
puedes traducirmelo en castellano, que à mi me sale mas facil de entender ?
O en catalan, si asi te gusta.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 56
15 mars 2012 à 20:59
Hola Ucfoutu

El caballero en busca de un tweets de VBScript con la autenticación de aut
muchas gracias
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Utilisateur anonyme
16 mars 2012 à 04:09
Ayoye

My dear Thierry de France you have made a grosse erreur. You mélanged VB.net et VBScript. C'est almost pire que de mixer C, C++ and CAiguisé.
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 236
16 mars 2012 à 04:42
Le plus drôle est que son texte en anglais ne sera pas compris par un anglophone
(j'ai particulièrement adoré l'utilisation faite ici de l'adverbe since, qui laissera songeur, au lieu de from)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 236
16 mars 2012 à 06:27
Ne crois-tu pas, thierryd75, qu'il aurait été plus simple de faire un "up" de cette même demande de traduction de VB.Net vers VBS === >>
Tapez le texte de l'url ici.
Deux ans !
Et le plus fort, rhierryd, c'est qu'avant même d'avoir posé ici (en novembre 2010, donc) cette question, tu avais déjà reçu deux mois plus tôt (très exactement le 26 septembre 2010) cette réponse en anglais du forumeur tsuji, à qui tu n'as jamais répondu :
tsuji (TechnicalUser)
26 Sep 10 10:12
>use this function in vbs since 2 years
I don't know what happens on those 2 years of the vbs of yours. But, the script is certain not correct if only you got away because it errors out, at least, just at the end and you had escaped the mal-function by fortune. There is no way it works as such at any period of time.

It should at least look something like this. Still no gurantee, depending the proper url to process the post. To an xml extension, it seems strange; but I have no way to know.

Function SendToTwitter(strMessage, strUsername, strPassword)
'On Error Resume Next
Dim objHTTP, result
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
WScript.Echo "Post Twitter : " & " " & numligne & " " & date() & " " & time () & " " & strMessage
objHTTP.open "POST", "http://twitter.com/statuses/update.xml", false, strUsername, strPassword
objHTTP.send "status=" & escape(strMessage)
'result = objHTTP.responseText
If objHttp.status <> 200 Then
Postageok=0
WScript.Echo "No Post Twitter" & Len(strMessage) & Statusok
result=""
Else
Postageok=1
WScript.Echo "Post Twitter OK " & Statusok
result=objHTTP.responseText
End if
'strMessage = ""
Set objHTTP = nothing 'Release the object
'This won't do anything, just because you have an on error resume next; it is wrong and you're fortunate to preserve result if it were a global variable to be used (but it is not global neither). Only postageok seems global.
'Set result = Nothing
'If result is some global variable (that should not be because you've dim result up there), you would be fortunate to get away and end the function there.
'If result is not global (that seems to be the case), you need to return to caller by this line, and during the 2 years, something happened to you if you think it works.
SendToTwitter=result
End Function

'for instance, the way to use it
dim s, postageok
s=SendToTwitter("some message","userx","passwordx")
'check postageok value too.
tsuji (TechnicalUser)
26 Sep 10 11:29
Upon re-reading my comments, they might tend to imply(?) the set result to nothing would error out, that is not what I would imply. I meant only it won't do anything, and it is contradictory in intention, and the result won't pass outside of the function and thereby died with the function as it is local to it.


Tu reviens quand ? dans deux autres années ? avec toujours la même demande ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0
thierryd75 Messages postés 23 Date d'inscription mardi 28 octobre 2008 Statut Membre Dernière intervention 16 juillet 2018
16 mars 2012 à 08:30
Merci ucfoutu, Bon désolé d'avoir mis un script d'un autre langage dans ma question et mon anglais bon les américains semblent pourtant comprendre eux, effectivement tsuji à répondu en corrigeant mon vrai script mais c'est sans compter le passage à oauth , donc mon bout de script ça ne marche plus depuis décembre 2009 (30aout2009 twitter à décidé du passage à oAuth por test et en décembre à coupé l'authentification simple), et oui je repasserais dans 2 ans poser la même question bête :

Merci si vous pouvez me répondre ?

Tapez le texte de l'url ici.

Bonjour à tous !

Jusqu'ici je postais mes tweets avec le petit bout de code ci-dessous, mais depuis le 30 Août 2010, twitter à résilié ce mode de post pour oAuth, comment faut-il faire pour corriger mon code ? je ne trouve rien à ce sujet sur le net ???

Merci à tous !!!
Thierry


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
0
thierryd75 Messages postés 23 Date d'inscription mardi 28 octobre 2008 Statut Membre Dernière intervention 16 juillet 2018
16 mars 2012 à 09:10
merci renfield ! j'avais vu cette page aussi mais je n'ai pas testé encore , y'a pas plus simple ?
0
thierryd75 Messages postés 23 Date d'inscription mardi 28 octobre 2008 Statut Membre Dernière intervention 16 juillet 2018
16 mars 2012 à 20:03
Merci renfield, le site de scott est bien expliqué mais je reste un peu débutant je doit dire dans ce langage, faut que je passe en éditeur asp car avec vbscript il me dis qu'il manque la librairie cLibOAuth pour le moment , bien présente pourtant en locale dans mon répertoire inetpub .. il doit me manquer un référencement je pense ... pas si simple qu’auparavant ! et plein de scripts asp sur son site ...

http://scottdesapio.com/VBScriptOAuth/
0