「Twitter投稿」アプリ

「Twitter投稿」アプリを作ってみた

【開発環境】
os:Windows 10
IDE（統合開発環境）:VisualStudio 2017
言語；VB

【参考書】
株式会社秀和システム「作って覚えるVisualBasic2017」
著者：萩原　博之/宮崎　昭世

【Twitter投稿アプリ】
デザイン画面


◆コントロールを貼る
①Button1コントロール
Button1.Text="Twitter投稿"
②TextBox1コントロール

③Button2コントロール
Button2.Text="PIN入力"

④TextBox2コントロール
TextBox2.Multiline="True"

⑤Button3コントロール
Button3.Text="ツイート"
追伸
Form1コントールのTextはTwitter投稿にしてね

【Twitter】
Twitter Developerの開発者申請とAPIキー取得方法について
【仮登録】
デジナビのTwitter Developerの開発者申請を参照にしてください

注意1） Internet Explorer 11では不具合が生じるよ。Chromeが良いかも
注意2）携帯電話が登録してないと、認証コードがSNSメールで送られて来ないよ
注意3）デジナビと違った点を下記に記す
1

2

3

4

5

この後はデジナビを参照のこと！

【本登録】
Twitterから届くメールを確認して本登録を完了
1

2

3確認したら、「create」ボタンを押す

4キー取得


◆CoreTweetのインストール
NUGetパッケージマネージャーを利用し、TwitterAPI を扱うためのライブラリCoreTweetをインストールする。
1.NUGetパッケージマネージャーを開く

2.NUGetパッケージマネージャー表示

3.検索ボックスに「CoreTweet」と入力し、該当プロジェクトにチェックし、「インストール」ボタンを押す

4.変更を確認するダイアログが表示されたら、「OK」ボタンをクリックする


【コーデング】
Public Class Form1
Private session As CoreTweet.OAuth.OAuthSession
Private Tokens As CoreTweet.Tokens

'twitterのアプリ認証
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

'AIPキーとSecretキーをセットする
Dim AIP_key As String = "☓☓☓☓"
Dim Secret_key As String = "☓☓☓☓"

'アプリケーションの認証
session = CoreTweet.OAuth.Authorize(AIP_key, Secret_key)
'Pinコードの取得
Process.Start(session.AuthorizeUri.ToString())
End Sub

'Pin番号の入力
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Tokens = CoreTweet.OAuth.GetTokens(session, TextBox1.Text)
End Sub

'twitter投稿
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Tokens.Statuses.Update(TextBox2.Text)
End Sub
End Class

【twitter投稿アプリの操作】
1.操作画面の「twitter投稿」ボタンをクリックする


2.ブラウザーに「アカウントのアクセス許可をしますか」と表示される


3.PINコード表示
「連帯アプリを認証」ボタンをクリックすると


4.アプリにPINコードを入力し、「PIN入力」ボタンを押す


5.ツイート投稿

テキストに適当な文書を書いたら、「ツイート」ボタンをクリックする

6.結果