実行するとブラウザが開いてツイートのためのページが開くはず。
実行するとブラウザが開いてツイートのためのページが開くはず。
; ; ツイートボタンの代わりをしてみるテスト ; #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