ツイートボタンの代わりをしてみるテスト

実行するとブラウザが開いてツイートのためのページが開くはず。

実行するとブラウザが開いてツイートのためのページが開くはず。

;
;	ツイートボタンの代わりをしてみるテスト
;
#include "shell32.as"
#define SW_SHOWDEFAULT 10

#include "hspinet.as"
#include "encode.as"

twitterUrl = "https://twitter.com/intent/tweet"
twUrl  = "http://www.google.co.jp/"
twText = "ツイート内に含める文字"
twVia  = "ツイート内に含まれるユーザー名"
twHashtags = "ハッシュタグ"

input twUrl,  ginfo_winx
input twText, ginfo_winx
input twVia,  ginfo_winx
input twHashtags, ginfo_winx
button "ツイート", *twt
stop

;	ツイートを実行
*twt
	dest = ""
	url = ""

	;	Shift_JISをUTF-8にしてからパーセントエンコーディング
	sjis2utf8n dest, twText
	urlencode urlTwText, dest
	sjis2utf8n dest, twVia
	urlencode urlTwVia, dest
	sjis2utf8n dest, twHashtags
	urlencode urlTwHashtags, dest
	;	ツイート用URLを作成
	url = twitterUrl +"?url="+ twUrl +"&text="+ urlTwText +"&via="+ urlTwVia +"&hashtags="+ twHashtags

	mes url
	ShellExecuteA 0, 0, varptr(url), "", "", SW_SHOWDEFAULT
	stop