发布来自vb.net的推文

时间:2012-08-31 12:20:49

标签: vb.net twitter

如何使用vb.net在我的Twitter帐户上发布自定义推文?

如果不可能,我怀疑,有没有办法用c#或javascript来实现这个目标?

3 个答案:

答案 0 :(得分:2)

您可以使用twitterizer库。


以下是如何使用它的示例:

Dim tokens As New OAuthTokens()
tokens.AccessToken = "XXX"
tokens.AccessTokenSecret = "XXX"
tokens.ConsumerKey = "XXX"
tokens.ConsumerSecret = "XXX"

Dim tweetResponse As TwitterResponse(Of TwitterStatus) = TwitterStatus.Update(tokens, "Hello, #Twitterizer")

If tweetResponse.Result = RequestResult.Success Then
        ' Tweet posted successfully!
Else
        ' Something bad happened
End If

顺便说一句,here's a list of avaiable twitter libraries(但它不是100%最新的)。

答案 1 :(得分:1)

你可以在LINQ to Twitter中这样做:

    Dim credentials As IOAuthCredentials = New InMemoryCredentials
    credentials.ConsumerKey = "xxx"
    credentials.ConsumerSecret = "xxx"
    credentials.OAuthToken = "xxx"
    credentials.AccessToken = "xxx"

    Dim auth As PinAuthorizer = New PinAuthorizer()
    auth.Credentials = credentials

    Dim twitterCtx As TwitterContext = New TwitterContext(auth)
    twitterCtx.UpdateStatus(statusMsg)

如果您想执行查询,可以这样做:

    Dim queryResults = _
        From search In twitterCtx.Search _
        Where search.Type = SearchType.Search _
        And search.Query = "LINQ to Twitter"

此处有更多信息:http://linqtotwitter.codeplex.com/

答案 2 :(得分:0)

执行此操作的一种非常简单的方法是使用IFTTT和我的IFTTT Maker.net libary

首先,在IFTTT中创建一个由Maker频道触发的新配方,并将事件命名为“tweet_now”。

然后,选择Twitter引擎并点击“发布推文”,从输入框中删除所有内容并将其替换为{{value1}},然后点击创建配方。

之后,在Visual Studio中,将ifttt.vb添加到项目中。现在代码:

      Try
    makechannel.scode = "your account ID"
    makechannel.fireevent("tweet_now", "Tweet text", "", "")
   'code goes here if done
    Catch ex As Exception
        'code goes here if it fails
    End Try

然后填写您的帐户ID。您可以在ifttt.com/maker

找到它

就是这样!