【HSP3】VOICEROID+ 東北ずん子をHSPから制御するモジュール Ver 0.01

VOICEROID+ 東北ずん子をHSPから制御するモジュールです。前シリーズと仕様が変わっています。NGワード系の処理が入っていません。
hinekure_inovia
2012/9/28 21:40
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
#include "user32.as"
#include "kernel32.as"
#module __VOICEROID_ZUNKO__
#deffunc zunko_init
    // ウィンドウ名とかクラス名とか
    zunkowname1 = "VOICEROID＋ 東北ずん子*"
    zunkowname2 = "VOICEROID＋ 東北ずん子"
    zunkomainclass = "WindowsForms10.Window.8.app.0.17ad52b"
    zunkoeditclass = "WindowsForms10.RichEdit20W.app.0.17ad52b"
    zunkobuttonclass = "WindowsForms10.BUTTON.app.0.17ad52b"
return
// ボイスロイドの起動数を調べる
#defcfunc GetZunkoRunningNumV
    h = 0 : c = 0
    repeat
        FindWindowExA 0, h, zunkomainclass, zunkowname1
        if stat == 0{
            FindWindowExA 0, h, zunkomainclass, zunkowname2
        }
        h = stat
        // 0 になるまでループ
        if h == 0 {
            c = cnt : break 
        }
    loop
return c
// ボイスロイドのトップのウィンドウを取得
#defcfunc GetZunkoTopWindowV
    FindWindowA zunkomainclass, zunkowname1
    if stat == 0{
        FindWindowA zunkomainclass, zunkowname2
    }
return stat
// ボイスロイドのテキストボックスを取得
#defcfunc GetZunkoTextBoxV
        FindWindowExA GetZunkoTopWindowV(), 0, zunkomainclass, 0
        hChild = stat
        FindWindowExA hChild, 0, zunkomainclass, 0      // その子を取得（長男）
        FindWindowExA hChild, stat, zunkomainclass, 0   // 2番目（次男）
            hChild = stat
            FindWindowExA hChild, 0, zunkomainclass, 0      // 2番目の兄弟の孫(長男)を取得
            FindWindowExA stat, 0, zunkomainclass, 0
            FindWindowExA stat, 0, zunkomainclass, 0
            FindWindowExA stat, 0, zunkomainclass, 0
                hChild = stat
                FindWindowExA hChild, 0, zunkoeditclass, 0
return stat
// ボイスロイドの再生ボタンを取得
#defcfunc GetZunkoPlayButtonV
        FindWindowExA GetZunkoTopWindowV(), 0, zunkomainclass, 0
        hChild = stat
        FindWindowExA hChild, 0, zunkomainclass, 0      // その子を取得（長男）
        FindWindowExA hChild, stat, zunkomainclass, 0   // 2番目（次男）
            hChild = stat
            FindWindowExA hChild, 0, zunkomainclass, 0      // 2番目の兄弟の孫(長男)を取得
            FindWindowExA stat, 0, zunkomainclass, 0
            FindWindowExA stat, 0, zunkomainclass, 0
            FindWindowExA stat, 0, zunkomainclass, 0
                hChild = stat
                FindWindowExA hChild, 0, zunkomainclass, 0
                    hChild = stat
                    FindWindowExA hChild, 0, zunkobuttonclass, 0
return stat
// ボイスロイドの停止ボタンを取得
#defcfunc GetZunkoStopButtonV
        FindWindowExA GetZunkoTopWindowV(), 0, zunkomainclass, 0
        hChild = stat
        FindWindowExA hChild, 0, zunkomainclass, 0      // その子を取得（長男）
        FindWindowExA hChild, stat, zunkomainclass, 0   // 2番目（次男）
            hChild = stat
            FindWindowExA hChild, 0, zunkomainclass, 0      // 2番目の兄弟の孫(長男)を取得
            FindWindowExA stat, 0, zunkomainclass, 0
            FindWindowExA stat, 0, zunkomainclass, 0
            FindWindowExA stat, 0, zunkomainclass, 0
                hChild = stat
                FindWindowExA hChild, 0, zunkomainclass, 0
                    hChild = stat
                    FindWindowExA hChild, 0, zunkobuttonclass, 0
                    FindWindowExA hChild, stat, zunkobuttonclass, 0
return stat
// ボイスロイドのテキストボックスを全選択する
#deffunc ZunkoTextAllSelectV
    sendmsg GetZunkoTextBoxV(), /*EM_SETSEL*/0x00B1, 0, -1
return stat
// ボイスロイドのテキストボックスにクリップボード経由で貼り付け
#deffunc ZunkoTextPasteV
    sendmsg GetZunkoTextBoxV(), 0x0301/*WM_COPY*/, 0, 0
return stat
// ボイスロイドのテキストボックスをUNDO
#deffunc ZunkoTextUndoV
    sendmsg GetZunkoTextBoxV(), 0x0304/*WM_UNDO*/, 0, 0
return stat
// ボイスロイドのテキストボックスを切り取る
#deffunc ZunkoTextCutV
    sendmsg GetZunkoTextBoxV(), 0x0300/*WM_CUT*/, 0, 0
return stat
// ボイスロイドのテキストボックスをコピー
#deffunc ZunkoTextCopyV
    sendmsg GetZunkoTextBoxV(), 0x0301/*WM_COPY*/, 0, 0
return stat
// ボイスロイドのテキストボックスを消去(選択されてるか所のみを消します)
#deffunc ZunkoTextDeleteV
    sendmsg GetZunkoTextBoxV(), 0x0303/*WM_CLEAR*/, 0, 0
return stat
// ボイスロイドのテキストボックスを消去(選択されてなくても消します)
#deffunc ZunkoTextDelete2V
    msg = ""
    sendmsg GetZunkoTextBoxV(), 0x000C/*WM_SETTEXT*/, 0, varptr(msg)
return stat
// テキストボックスに代入します(直接)
#deffunc ZunkoSetTextV str _msg
    msg = _msg
    sendmsg GetZunkoTextBoxV(), 0x000C/*WM_SETTEXT*/, 0, varptr(msg)
return stat
// テキストを再生します。
#deffunc ZunkoPlayTextV
    sendmsg GetZunkoPlayButtonV(), 0x00F5/*BM_CLICK*/, 0, 0 
return
// テキスト再生を停止します。
#deffunc ZunkoStopTextV
    sendmsg GetZunkoStopButtonV(), 0x00F5/*BM_CLICK*/, 0, 0 
return
// 再生中かチェック(再生中の場合は1)
// 0 停止中 1 再生中 2 一時停止中
#defcfunc IsZunkoPlayingV
    sdim tmp, 64
    sendmsg GetZunkoPlayButtonV(), 0x000D/*WM_GETTEXT*/, 64-1, varptr(tmp)
    if stat == 0 : return 0
    if instr(tmp, 0, "一時停止") != -1 {
        return 0
    }else : if instr(tmp, 0, "再開") != -1{
        return 2
    }
return 1
#global
// ↓これは必ず必要
zunko_init
    // サンプル
    
    // 起動している場合は 1以上が返る。
    if GetZunkoRunningNumV() > 0 {
        ZunkoSetTextV "東京特許許可局"
        ZunkoPlayTextV
    }
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
このコードをツイートする