ツイートボタンの代わりをしてみるテスト | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
;
;   ツイートボタンの代わりをしてみるテスト
;
#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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX