HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2011
0805
RyoTwitter投稿2解決


Ryo

リンク

2011/8/5(Fri) 19:51:14|NO.40406

連続投稿すみません。

もうひとつ質問です。

hspinetのサンプルにある、「twitter_send.hsp」ですが、
エラーが出ます。

なぜでしょうか?

投稿後に、「サポートされない機能を選択しました」と出ます。

一応ソース載せときます。


#include "hspinet.as" ; ; Twitterに発言を投稿 ; title "Twitterに発言を投稿" sdim res,4096 sdim orgmsg,4096 ; もとのメッセージ(SJIS) sdim utf8msg,4096 ; UTF8に変換したメッセージ sdim encmsg,4096 ; URLエンコードされたメッセージ user = "???" pass = "???" orgmsg = "日本語メッセージの投稿テスト viaHSP3" objsize 120,24 pos 0,0:mes "TwitterID":pos 220,0:mes "PASS" pos 80,0:input user pos 262,0:input pass:id_pass=stat sendmsg objinfo(id_pass,2),$CC,'*' pos 0,28 mesbox orgmsg,640,100,1 button "送信",*go stop *go cls netinit if stat : dialog "ネット接続できません。" : end ; URLを指定 neturl "http://twitter.com/statuses/" ; POST形式でCGIにパラメーターを渡す srcstr = user+":"+pass b64encode res, srcstr ; base64エンコード netheader "Authorization: Basic "+res+"\n" ; BASIC認証の設定 nkfcnv utf8msg,orgmsg,"Sw" ; utf-8に変換する urlencode encmsg,utf8msg ; URLエンコードする prm = "status="+encmsg netrequest_post "update.json", prm ; CGI送信(POST) mes "投稿を送信しました。" *main ; 結果待ちのためのループ netexec res if res > 0 : goto *comp if res < 0 : goto *bad await 50 goto *main *bad ; エラー neterror estr mes "ERROR "+estr stop *comp ; 完了 mes "完了。" netgetv buf jsonopen jroot,buf jsongets erstr, "error" if stat=0 : dialog "サーバーがエラーを返しました\n"+erstr jsonclose mesbox buf,640,300,1 stop



この記事に返信する


inovia

リンク

2011/8/5(Fri) 20:09:26|NO.40408

BASIC認証によるツイートの投稿が廃止されてしまったため
投稿できない状態になっているのではないでしょうか。

OAuth/xAuthを利用する必要があるので、以下の専用のモジュールを使うとよいと思います。

「TsubuyakiSoup.as」
http://clovers428.web.fc2.com/soft.html#soft_2



Ryo

リンク

2011/8/7(Sun) 11:14:00|NO.40430

返事遅れてすみません。
ありがとうございます!
もう無理なんですね(泣
「TsubuyakiSoup.as」使います!

ありがとうございました!



ONION software Copyright 1997-2023(c) All rights reserved.