-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathn2n.red
More file actions
317 lines (274 loc) · 10.3 KB
/
Copy pathn2n.red
File metadata and controls
317 lines (274 loc) · 10.3 KB
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
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
Red [
Needs: 'view
]
;; 各个版本的edge、tap、nssm下载地址
edge_v1_url: https://cdn.jsdelivr.net/gh/kingwen0302/n2nredgui/bin/edge_v1.exe.gz
edge_v2_url: https://cdn.jsdelivr.net/gh/kingwen0302/n2nredgui/bin/edge_v2.exe.gz
edge_v2s_url: https://cdn.jsdelivr.net/gh/kingwen0302/n2nredgui/bin/edge_v2s.exe.gz
edge_v3_url: https://cdn.jsdelivr.net/gh/kingwen0302/n2nredgui/bin/edge_v3.exe.gz
tap_url: https://cdn.jsdelivr.net/gh/kingwen0302/n2nredgui/bin/tap-windows-9.21.2.exe.gz
nssm_url: https://cdn.jsdelivr.net/gh/kingwen0302/n2nredgui/bin/nssm.exe.gz
gsudo_url: https://cdn.jsdelivr.net/gh/kingwen0302/n2nredgui/bin/gsudo.exe.gz
down_binary: func [file url] [
if not exists? file [
write/binary file (decompress read/binary url)
]
]
copy_binary: func [to_file from_file] [
if not exists? to_file [
write/binary to_file (read/binary from_file)
]
]
;; 如果有配置文件的话, 从配置文件中加载, 否则默认数据
case [
exists? %config.red [
do read %config.red
]
true [
;; 配置文件
users: [
; 用户和分配的IP
["user1" "192.168.254.3" ]
["user2" "192.168.254.2" ]
]
users_index_name: 1
users_index_ip: 2
servers: [
["default1" "example1.com:10800" "mynetwork1" "mypassword1"]
["default2" "example2.com:10800" "mynetwork2" "mypassword2"]
]
servers_index_name: 1
servers_index_supernode: 2
servers_index_community: 3
servers_index_encrypt_key: 4
ping_ip: "192.168.254.1"
]
]
;; 转换list为map
users_map: make map! []
servers_map: make map! []
i: 1
user_names: []
while [ i <= (length? users) ] [
put users_map i users/(i)
append user_names users/(i)/(users_index_name)
i: i + 1
]
i: 1
server_names: []
while [ i <= (length? servers) ] [
put servers_map i servers/(i)
append server_names servers/(i)/(servers_index_name)
i: i + 1
]
select_id: 0
label_size: 140
field_size: 200
button_size: 150
edge_ver_name_list: ["v1 - 1.3.2" "v2 - 2.8" "v2s - 2.1" "v3 - 3.x"]
edge_ver_name_map: make map! [1 "v1" 2 "v2" 3 "v2s" 4 "v3"]
edge_version: ""
;; 创建数据目录
data_dir: %data/
create-dir data_dir
view [
title "N2N GUI"
style separator: text ""
h5 font-color Blue "edge版本:" label_size
drop-down "" data edge_ver_name_list field_size
on-change [
select_id: face/selected
edge_version: edge_ver_name_map/(select_id)
]
return
h5 font-color Blue "预置server: " label_size
drop-down "" data server_names field_size
on-change [
select_id: face/selected
f_supernode/text: servers_map/(select_id)/(servers_index_supernode)
f_community/text: servers_map/(select_id)/(servers_index_community)
f_encrypt_key/text: servers_map/(select_id)/(servers_index_encrypt_key)
]
return
h5 font-color Blue "预置账户:" label_size
drop-down "" data user_names field_size
on-change [
select_id: face/selected
f_ip/text: users_map/(select_id)/(users_index_ip)
]
return
h5 font-color Blue "是否DEBUG:" label_size
is_debug: check font-size 13 "否"
on-change [
either is_debug/data
[is_debug/text: "是"]
[is_debug/text: "否"]
print is_debug/data
]
return
separator
return
h5 "community(-c):" label_size
f_community: field "" field_size
return
h5 "encrypt_key(-k):" label_size
f_encrypt_key: field "" field_size
return
h5 "supernode(-l):" label_size
f_supernode: field "" field_size
return
h5 "ip:" label_size
f_ip: field "" field_size
return
separator
return
button font-size 14 bold font-color Red "1. 下载/安装" button_size [
down_binary rejoin [data_dir "edge_v1.exe"] edge_v1_url
down_binary rejoin [data_dir "edge_v2.exe"] edge_v2_url
down_binary rejoin [data_dir "edge_v2s.exe"] edge_v2s_url
down_binary rejoin [data_dir "edge_v3.exe"] edge_v3_url
down_binary rejoin [data_dir "tap-windows-9.21.2.exe"] tap_url
down_binary rejoin [data_dir "nssm.exe"] nssm_url
down_binary rejoin [data_dir "gsudo.exe"] gsudo_url
call rejoin ["start " data_dir "/tap-windows-9.21.2.exe"]
alert "下载完成，准备安装Tap-Windows！！！"
]
button font-size 14 bold "2. 启动/重启N2N" button_size [
case [
select_id = 0 [alert "没有选择"]
true [
;; 复制binary文件
to_edge_binary: rejoin ["edge_" edge_version "_" f_ip/text ".exe" ]
to_edge_binary1: rejoin [ data_dir to_edge_binary ]
from_edge_binary: rejoin [data_dir "edge_" edge_version ".exe"]
copy_binary (to-file to_edge_binary1) (to-file from_edge_binary)
;; 生成启动脚本
to_edge_bat: rejoin [data_dir "edge_" edge_version "_" f_ip/text "_start.bat"]
write (to-file to_edge_bat) rejoin [
"@echo off" newline
"set DIR=%~dp0" newline
"%DIR%gsudo.exe taskkill /F /IM " to_edge_binary newline
"%DIR%gsudo.exe %DIR%" to_edge_binary " -p 61234 -a " f_ip/text
" -c " f_community/text
" -k " f_encrypt_key/text
" -l " f_supernode/text
" -b" newline
]
; print is_debug/data
either is_debug/data [
;; debug 启动
call rejoin [
"start /min cmd /C "
replace to_edge_bat "/" "\"
]
] [
;; release 启动
call rejoin [
"cmd /C "
replace to_edge_bat "/" "\"
]
alert "启动完成，测试PING"
]
]
]
]
button font-size 14 bold "3. 停止N2N" button_size [
case [
select_id = 0 [alert "没有选择"]
true [
;; 复制binary文件
to_edge_binary: rejoin ["edge_" edge_version "_" f_ip/text ".exe" ]
;; 生成启动脚本
to_edge_bat: rejoin [data_dir "edge_" edge_version "_" f_ip/text "_stop.bat"]
write (to-file to_edge_bat) rejoin [
"@echo off" newline
"set DIR=%~dp0" newline
"%DIR%gsudo.exe taskkill /F /IM " to_edge_binary newline
]
; print is_debug/data
either is_debug/data
[
;; debug 启动
call rejoin [
"start /min cmd /C "
replace to_edge_bat "/" "\"
]
]
[
;; release 启动
call rejoin [
"cmd /C "
replace to_edge_bat "/" "\"
]
alert "停止完成"
]
]
]
]
return
button font-size 14 bold "4. 注册为服务" button_size [
case [
select_id = 0 [alert "没有选择"]
true [
;; 复制binary文件
to_edge_binary: rejoin ["edge_" edge_version "_" f_ip/text ".exe" ]
to_edge_binary1: rejoin [data_dir to_edge_binary]
srv_name: rejoin ["edge_" edge_version "_" f_ip/text ]
from_edge_binary: rejoin [data_dir "edge_" edge_version ".exe"]
copy_binary (to-file to_edge_binary1) (to-file from_edge_binary)
;; 生成启动脚本
to_edge_bat: rejoin [data_dir "edge_" edge_version "_" f_ip/text "_srv.bat"]
write (to-file to_edge_bat) rejoin [
"@echo off" newline
"set DIR=%~dp0" newline
"%DIR%gsudo.exe sc stop " srv_name " " newline
"sleep 1" newline
"%DIR%gsudo.exe taskkill /F /IM " to_edge_binary newline
"sleep 1" newline
"%DIR%gsudo.exe sc delete " srv_name " " newline
"sleep 1" newline
"%DIR%gsudo.exe %DIR%nssm.exe install " srv_name " "
"%DIR%" to_edge_binary " -p 61234 -a " f_ip/text
" -c " f_community/text
" -k " f_encrypt_key/text
" -l " f_supernode/text
" -b" newline
"sleep 1" newline
"%DIR%gsudo.exe sc start " srv_name " " newline
]
; print is_debug/data
either is_debug/data
[
;; debug 启动
call rejoin [
"start /min cmd /C "
replace to_edge_bat "/" "\"
]
]
[
;; release 启动
call rejoin [
"cmd /C "
replace to_edge_bat "/" "\"
]
alert "注册完成"
]
]
]
]
button font-size 14 bold "5. 测试(PING)" button_size [
call "start ^"PING^" cmd"
]
button font-size 14 bold "6. 帮助/注意" button_size [
View [
title "N2N-帮助/注意"
h5 font-color Red "1. 请用管理员身份运行；"
return
h5 font-color Red "2. 先下载，安装Tap-Windows，已安装的忽略；"
return
h5 font-color Red "3. 请不要关闭命令行，若连接不上，请关闭命令行窗口重试；"
return
h5 font-color Red "4. edge版本要和supernode版本一致。"
]
]
]