Cloudflare Tunnel 将本地服务暴露至公网

1
外部用户 → https://你的域名
2
  → Cloudflare 边缘节点（HTTPS 终止，CDN 缓存）
3
    → Cloudflared  加密隧道（QUIC / HTTP2）
4
      → 本机 127.0.0.1:端口（任意本地 HTTP 服务）

1
{
2
  "root_dir": "F:\\share",
3
  "port": 3000,
4
  "bind": "127.0.0.1",
5
  "public_url": "https://你的子域名.你的域名"
6
}

1
Option Explicit
2
Dim WshShell, fso
3
Set WshShell = CreateObject("WScript.Shell")
4
Set fso = CreateObject("Scripting.FileSystemObject")
5
Dim BasePath, port, publicUrl, configPath, cloudflaredExe
6
BasePath = fso.GetParentFolderName(WScript.ScriptFullName)
7
configPath = BasePath & "\.cloudflare-tunnel\pictures.yml"
8

9
' 从配置文件读取参数
10
Function GetConfig(key)
11
    Dim ex, val
12
    Set ex = WshShell.Exec("py """ & BasePath & "\gallery_server.py"" --get " & key)
13
    val = ex.StdOut.ReadLine()
14
    Set ex = Nothing
15
    GetConfig = val
16
End Function
17

18
port = GetConfig("port")
19
publicUrl = GetConfig("public_url")
20
cloudflaredExe = GetConfig("cloudflared_path")
21
If cloudflaredExe = "" Then cloudflaredExe = "cloudflared"
22

23
' Step 1: 查杀残留进程
24
WshShell.Run "cmd /c for /f ""tokens=5"" %a in ('netstat -ano ^| findstr /R ""TCP.*:" & port & "[ ].*LISTENING""') do taskkill /f /pid %a /t >nul 2>&1", 0, True
25
WshShell.Run "taskkill /f /im cloudflared.exe /t >nul 2>&1", 0, True
26
WScript.Sleep 1200
27

28
' Step 2: 启动本地服务（后台静默，无窗口）
29
WshShell.Run "py """ & BasePath & "\gallery_server.py""", 0, False
30

31
' Step 3: 等待服务就绪（轮询 PID 文件 + 进程存活检测，最长 15 秒）
32
Dim maxWait, waited, running
33
maxWait = 15
34
waited = 0
35
Do While waited < maxWait
36
    WScript.Sleep 1000
37
    waited = waited + 1
38
    running = GetConfig("running")
39
    If running = "1" Then Exit Do
40
Loop
41

42
If running <> "1" Then
43
    WshShell.Popup "Gallery server 启动超时（" & maxWait & " 秒）", 10, "启动失败", 16
44
    WScript.Quit 1
45
End If
46

47
' Step 4: 启动命名隧道（固定域名，读取项目内的 pictures.yml 配置）
48
WshShell.Run """" & cloudflaredExe & """ --config """ & configPath & """ --no-autoupdate --protocol quic tunnel run pictures", 0, False
49

50
' Step 5: 弹窗提示
51
Dim msgText
52
msgText = "本地服务 & Cloudflare 隧道已后台运行" & vbCrLf & _
53
          "访问地址：" & publicUrl & vbCrLf & _
54
          "关闭请运行 StopAll.vbs"
55
WshShell.Popup msgText, 8, "启动成功", 64
56

57
Set WshShell = Nothing
58
Set fso = Nothing

1
Option Explicit
2
Dim WshShell, fso
3
Set WshShell = CreateObject("WScript.Shell")
4
Set fso = CreateObject("Scripting.FileSystemObject")
5
Dim BasePath, port, exec
6
BasePath = fso.GetParentFolderName(WScript.ScriptFullName)
7

8
' 从配置文件读取端口
9
Set exec = WshShell.Exec("py """ & BasePath & "\gallery_server.py"" --get port")
10
port = exec.StdOut.ReadLine()
11
Set exec = Nothing
12

13
' Step 1: 通过 PID 文件精确终止 gallery_server（优先，不会误杀）
14
WshShell.Run "py """ & BasePath & "\gallery_server.py"" --kill", 0, True
15

16
' Step 2: 兜底 —— 按端口查杀残留（防 PID 文件被意外删除）
17
WshShell.Run "cmd /c for /f ""tokens=5"" %a in ('netstat -ano ^| findstr /R ""TCP.*:" & port & "[ ].*LISTENING""') do taskkill /f /pid %a /t >nul 2>&1", 0, True
18

19
' Step 3: 关闭所有 Cloudflared  隧道进程
20
WshShell.Run "taskkill /f /im cloudflared.exe /t >nul 2>&1", 0, True
21

22
WScript.Sleep 400
23
WshShell.Popup "服务已全部关闭", 3, "停止成功", 64
24

25
Set WshShell = Nothing
26
Set fso = Nothing

1
tunnel: pictures
2
credentials-file: C:\Users\你的用户名\.cloudflared\<tunnel-id>.json
3

4
ingress:
5
  - hostname: 你的子域名.你的域名
6
    service: http://127.0.0.1:3000
7
  - service: http_status:404

1
with open('xxx.vbs', 'r', encoding='utf-8') as f:
2
    content = f.read()
3
with open('xxx.vbs', 'w', encoding='gbk') as f:
4
    f.write(content)