nazr.inのサービスを使ってアドレスを短縮するスクリプト | 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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
/*
    nazr.inのサービスを使ってアドレスを短縮するスクリプト
    と、それを関数一つを呼び出して取得できるようにするモジュール
    nazr.in/docs/devのテキストAPIを使用します。
*/
#if 1
; 普通に呼び出す
#include "hspinet.as"
    NetInit ; net系命令を初期化
    TargetURL  = "http://miyahiro-shiki.com/"   ; 短縮するアドレス
    ServiceURL = "http://nazr.in/api/shorten?url="  ; nazr.in APIのアドレス
    NetUrl GetPath(ServiceURL,32)   ; APIのアドレスを指定して
    NetRequest_Get GetPath(ServiceURL,8)+TargetURL  ; ダウンロード開始
    res = 0
    While(res==0)
        NetExec res ; 処理を続ける
    WEnd
    if(res){
        NetGetV ret ; 変数へ結果を移す
        mes ret ; 出力
    } else {
        mes "miss"
    }
    NetTerm ; net系命令の終了
    stop
#else
; モジュールでラッピングしたバージョン
; 前提MODとしてhspinet.asが必要
#include "hspinet.as"
#module NazrinAPI
; 短縮されたアドレス = GetNazrin(短縮するアドレス)
#defcfunc GetNazrin str p1
    if strlen(p1) == 0 :return "error"  ; 空ならば処理しない
    NetInit@    ; とりあえずの初期化
    TargetURL  = p1
    ServiceURL = "http://nazr.in/api/shorten?url="  ; nazr.in APIのアドレス
    NetUrl@ GetPath(ServiceURL,32)  ; APIのアドレスを指定して
    NetRequest_Get@ GetPath(ServiceURL,8)+TargetURL ; ダウンロード開始
    res = 0
    While(res==0)
        NetExec@ res    ; 処理を続ける
    WEnd
    if(res){
        NetGetV@ ret    ; 変数へ結果を移す
    } else {
        ret = "miss"
    }
;   NetTerm@    ; 解放はしない
return ret
#global
    ; 呼び出してみる
    mes GetNazrin("http://miyahiro-shiki.com/")
    stop
#endif
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX