又一个 局域网共享工具 - 只想要个简单小工具，实在找不到满意的只能自己写

只想要个界面简单，实用的文件共享工具，支持二维码

论坛有很多，但界面真的不符合个人审美，只能自己写一个

文件共享用的 CHFS 3.1，AutoIt 写的

使用方法：
1. 点击 浏览 选择要共享的文件夹
2. 点击 开始共享
3. 在浏览器输入网址 或 点击 [打开二维码]，使用手机扫描二维码 即可
4. 结束可点击 停止共享，或直接关闭窗口

注意：
1. 限局域网内使用
2. 无线请在同一个WIFI下使用




2025.2.25
发布工具
下载链接：https://wwif.lanzn.com/iavpi2ouxwsf

2025.2.26 更新记录：
1. 增加后台运行（右击托盘图标 显示/隐藏窗口）
2. 去除共享页面 登录 按钮，联系、捐助 文字，页面更简洁
3. 放大二维码
4. 工具改名为“域共享”
下载地址：https://wwif.lanzn.com/iQ3HN2oxs6ed

有问题回帖反馈，尽量在帖子可编辑时间内改，源码如下：
[Shell]  

1. #NoTrayIcon
2. #include
3. #include
4. #include
5. #include
6. #include
7. #include
8. #include
9. #Include
11. ; 只允许运行一个实例
12. _Singleton(@ScriptName)
14. ; 定义临时文件夹路径
15. Global $tempDir = @TempDir & "\es"
16. DirCreate($tempDir)
18. ; 嵌入文件到临时文件夹
19. FileInstall("chfs.exe", $tempDir & "\chfs.exe", 1)
20. FileInstall("qrcode.dll", $tempDir & "\qrcode.dll", 1)
22. ; 获取当前活动网络适配器的IP地址
23. Global $currentIP = _GetCurrentActiveNICIP()
24. Global $processID = 0
25. Global $isRunning = False
27. ; 创建主界面
28. Global $mainForm = GUICreate("内网共享", 320, 94, -1, -1, $WS_CAPTION + $WS_SYSMENU)
29. Global $sharePathInput = GUICtrlCreateInput("", 65, 10, 186, 21)
30. Global $browseButton = GUICtrlCreateButton("浏览", 256, 9, 57, 23)
31. Global $labelSharePath = GUICtrlCreateLabel("共享目录:", 8, 13, 55, 17)
32. Global $labelShareURL = GUICtrlCreateLabel("共享网址:", 8, 39, 55, 17)
33. Global $labelCurrentIP = GUICtrlCreateLabel("", 65, 39, 246, 17)
34. Global $startStopButton = GUICtrlCreateButton("开始共享", 116, 59, 89, 25)
35. GUISetState(@SW_SHOW)
37. ; 主消息循环
38. While 1
39.     $msg = GUIGetMsg()
40.     Switch $msg
41.         Case $GUI_EVENT_CLOSE
42.             ; 关闭时清理资源
43.             If $processID  0 Then ProcessClose($processID)
44.             DirRemove($tempDir, 1)
45.             Exit
46.         Case $browseButton
47.             $selectedDir = FileSelectFolder("请选择共享文件夹", "")
48.             If @Error = 0 Then GUICtrlSetData($sharePathInput, $selectedDir)
49.         Case $labelCurrentIP
50.             If $isRunning Then _CreateQRCode()
51.         Case $startStopButton
52.             If $isRunning Then
53.                 ProcessClose($processID)
54.                 GUICtrlSetData($startStopButton, "开始共享")
55.                 GUICtrlSetData($labelCurrentIP, "")
56.                 $isRunning = False
57.             Else
58.                 $selectedFolderDir = GUICtrlRead($sharePathInput)
59.                 If $selectedFolderDir = "" Then
60.                     MsgBox(48, "错误", "请选择共享目录")
61.                 Else
62.                     GUICtrlSetData($labelCurrentIP, $currentIP & ":8080" & "  [打开二维码]")
63.                     $processID = Run($tempDir & '\chfs.exe -port 8080 -path "' & $selectedFolderDir & '"', $tempDir, @SW_HIDE)
64.                     GUICtrlSetData($startStopButton, "停止共享")
65.                     $isRunning = True
66.                 EndIf
67.             EndIf
68.     EndSwitch
69. WEnd
71. ; 获取当前活动网络适配器的IP地址
72. Func _GetCurrentActiveNICIP()
73.     Local $objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
74.     If Not IsObj($objWMIService) Then Return SetError(1, 0, "")
75.     Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
76.     If Not IsObj($colItems) Then Return SetError(2, 0, "")
77.     For $objItem In $colItems
78.         If IsArray($objItem.DefaultIPGateway) Then
79.             Return $objItem.IPAddress(0)
80.         EndIf
81.     Next
82.     Return ""
83. EndFunc
85. ; 创建二维码
86. Func _CreateQRCode()
87.     _QRCode_StartUp()
88.     Local $qrCodeData = _QRCode_GetQRCode("http://" & $currentIP & ":8080", $_QRCode_ECL_LOW)
89.     Local $width = 200, $height = 200
90.     Local $hGui = GUICreate("扫描二维码", $width, $height, -1, -1, $WS_CAPTION + $WS_SYSMENU)
91.     GUISetState(@SW_SHOW, $hGui)
92.     Local $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
93.     Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $hGraphics)
94.     Local $hBitmapGraphics = _GDIPlus_ImageGetGraphicsContext($hBitmap)
95.     _GDIPlus_GraphicsClear($hBitmapGraphics, 0xFFFFFFFF)
96.     _QRCode_DrawQRCode($hBitmapGraphics, $qrCodeData, 5, ($width - 126) / 2, ($height - 126) / 2)
97.     _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $width, $height)
98.     While 1
99.         If GUIGetMsg() = -3 Then ExitLoop
100.     WEnd
101.     _GDIPlus_GraphicsDispose($hGraphics)
102.     _GDIPlus_BitmapDispose($hBitmap)
103.     GUIDelete($hGui)
104.     _QRCode_Shutdown()
105. EndFunc

复制代码

另外发一个 开机启动项管理 工具，有需要的可以下载

地址：https://wwif.lanzn.com/ivvUc2pgsowd

• 
  
  
  
  • 
    
    
    
    • 潜在问题与改进建议
      
      
      
      • IP 地址获取 ：
        
        当前实现可能无法正确处理多网卡环境下的 IP 地址选择。
        
        • 改进建议：提供一个下拉菜单，让用户手动选择要使用的网络适配器。
          
        
        
      • 二维码窗口 ：
        
        二维码窗口没有最大化按钮，且关闭时需要等待用户点击。
        
        • 改进建议：添加自动关闭功能，或者允许用户调整窗口大小。
          
        
        
      • 资源共享安全性 ：
        
        当前实现未对共享目录进行权限控制，任何连接到局域网的设备都可以访问。
        
        • 改进建议：添加基本的身份验证机制，例如用户名和密码。
          
        
        
      • 依赖外部工具 ：
        
        依赖 chfs.exe 和 qrcode.dll，如果这些文件丢失或损坏，程序将无法正常运行。
        
        • 改进建议：考虑使用 AutoIt 内置功能替代部分外部依赖。
          
        
        
      
      
    
    
  
  

修正后的代码[Shell]  

1. #NoTrayIcon
2. #include <ButtonConstants.au3>
3. #include <EditConstants.au3>
4. #include <GUIConstantsEx.au3>
5. #include <StaticConstants.au3>
6. #include <WindowsConstants.au3>
7. #include <File.au3>
8. #include <QRCode.au3>
9. #include <Misc.au3>
10. #include <Array.au3>
12. ; 只允许运行一个实例
13. _Singleton(@ScriptName)
15. ; 定义临时文件夹路径
16. Global $tempDir = @TempDir & "\es"
17. DirCreate($tempDir)
19. ; 嵌入文件到临时文件夹
20. FileInstall("chfs.exe", $tempDir & "\chfs.exe", 1)
21. FileInstall("qrcode.dll", $tempDir & "\qrcode.dll", 1)
23. ; 全局变量
24. Global $currentIP = ""
25. Global $selectedIP = ""
26. Global $processID = 0
27. Global $isRunning = False
28. Global $authUsername = "admin" ; 默认用户名
29. Global $authPassword = "password" ; 默认密码
31. ; 获取所有活动网络适配器的 IP 地址
32. Global $NICList = _GetAllActiveNICIPs()
34. ; 创建主界面
35. Global $mainForm = GUICreate("内网共享", 350, 150, -1, -1, $WS_CAPTION + $WS_SYSMENU)
36. Global $sharePathInput = GUICtrlCreateInput("", 65, 10, 186, 21)
37. Global $browseButton = GUICtrlCreateButton("浏览", 256, 9, 57, 23)
38. Global $labelSharePath = GUICtrlCreateLabel("共享目录:", 8, 13, 55, 17)
39. Global $labelSelectIP = GUICtrlCreateLabel("选择IP地址:", 8, 40, 70, 17)
40. Global $ipComboBox = GUICtrlCreateCombo("", 85, 38, 150, 21, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
41. Global $startStopButton = GUICtrlCreateButton("开始共享", 116, 65, 89, 25)
42. Global $labelShareURL = GUICtrlCreateLabel("共享网址:", 8, 95, 55, 17)
43. Global $labelCurrentIP = GUICtrlCreateLabel("", 65, 95, 246, 17)
44. GUISetState(@SW_SHOW)
46. ; 初始化 IP 下拉菜单
47. If IsArray($NICList) Then
48.     For $i = 0 To UBound($NICList) - 1
49.         GUICtrlSetData($ipComboBox, $NICList[$i])
50.     Next
51.     GUICtrlSetData($ipComboBox, $NICList[0]) ; 默认选中第一个 IP
52. EndIf
54. ; 主消息循环
55. While 1
56.     $msg = GUIGetMsg()
57.     Switch $msg
58.         Case $GUI_EVENT_CLOSE
59.             ; 关闭时清理资源
60.             If $processID <> 0 Then ProcessClose($processID)
61.             DirRemove($tempDir, 1)
62.             Exit
63.         Case $browseButton
64.             $selectedDir = FileSelectFolder("请选择共享文件夹", "")
65.             If @Error = 0 Then GUICtrlSetData($sharePathInput, $selectedDir)
66.         Case $startStopButton
67.             If $isRunning Then
68.                 ProcessClose($processID)
69.                 GUICtrlSetData($startStopButton, "开始共享")
70.                 GUICtrlSetData($labelCurrentIP, "")
71.                 $isRunning = False
72.             Else
73.                 $selectedFolderDir = GUICtrlRead($sharePathInput)
74.                 $selectedIP = GUICtrlRead($ipComboBox)
75.                 If $selectedFolderDir = "" Then
76.                     MsgBox(48, "错误", "请选择共享目录")
77.                 ElseIf $selectedIP = "" Then
78.                     MsgBox(48, "错误", "请选择一个有效的 IP 地址")
79.                 Else
80.                     GUICtrlSetData($labelCurrentIP, "http://" & $selectedIP & ":8080" & "  [打开二维码]")
81.                     $processID = Run($tempDir & '\chfs.exe -port 8080 -path "' & $selectedFolderDir & '" -auth ' & $authUsername & ':' & $authPassword, $tempDir, @SW_HIDE)
82.                     GUICtrlSetData($startStopButton, "停止共享")
83.                     $isRunning = True
84.                 EndIf
85.             EndIf
86.         Case $labelCurrentIP
87.             If $isRunning Then _CreateQRCode()
88.     EndSwitch
89. WEnd
91. ; 获取所有活动网络适配器的 IP 地址
92. Func _GetAllActiveNICIPs()
93.     Local $objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
94.     If Not IsObj($objWMIService) Then Return SetError(1, 0, "")
95.     Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
96.     If Not IsObj($colItems) Then Return SetError(2, 0, "")
97.     Local $ips = []
98.     For $objItem In $colItems
99.         If IsArray($objItem.IPAddress) Then
100.             For $i = 0 To UBound($objItem.IPAddress) - 1
101.                 If StringInStr($objItem.IPAddress[$i], ".") Then
102.                     ReDim $ips[UBound($ips) + 1]
103.                     $ips[UBound($ips) - 1] = $objItem.IPAddress[$i]
104.                 EndIf
105.             Next
106.         EndIf
107.     Next
108.     Return $ips
109. EndFunc
111. ; 创建二维码
112. Func _CreateQRCode()
113.     _QRCode_StartUp()
114.     Local $qrCodeData = _QRCode_GetQRCode("http://" & $selectedIP & ":8080", $_QRCode_ECL_LOW)
115.     Local $width = 200, $height = 200
116.     Local $hGui = GUICreate("扫描二维码", $width, $height, -1, -1, $WS_CAPTION + $WS_THICKFRAME + $WS_SYSMENU)
117.     GUISetState(@SW_SHOW, $hGui)
118.     Local $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
119.     Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $hGraphics)
120.     Local $hBitmapGraphics = _GDIPlus_ImageGetGraphicsContext($hBitmap)
121.     _GDIPlus_GraphicsClear($hBitmapGraphics, 0xFFFFFFFF)
122.     _QRCode_DrawQRCode($hBitmapGraphics, $qrCodeData, 5, ($width - 126) / 2, ($height - 126) / 2)
123.     _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $width, $height)
124.     Sleep(5000) ; 自动关闭二维码窗口
125.     GUIDelete($hGui)
126.     _GDIPlus_GraphicsDispose($hGraphics)
127.     _GDIPlus_BitmapDispose($hBitmap)
128.     _QRCode_Shutdown()
129. EndFunc

复制代码

改进点说明

• IP 地址选择 ：
  
  使用 GUICtrlCreateCombo 创建了一个下拉菜单，列出所有活动网络适配器的 IP 地址。
  
  • 用户可以选择要使用的 IP 地址。
    
  
  
• 二维码窗口 ：
  
  添加了 $WS_THICKFRAME 样式，允许用户调整窗口大小。
  
  • 使用 Sleep(5000) 实现二维码窗口的自动关闭功能。
    
  
  
• 资源共享安全性 ：
  
  在启动 chfs.exe 时，添加了 -auth 参数以启用基本的身份验证。
  
  • 默认用户名为 admin，默认密码为 password，可以根据需要修改。
    
  
  
• 依赖外部工具 ：
  
  
  
  • 依旧依赖 chfs.exe 和 qrcode.dll，但通过改进代码结构，减少了对这些工具的直接调用。
    
  
  

感谢分享，刚好实验室打算配共享电脑

整个exe呗

界面就是参考了易共享，易共享也是用的chfs，版本比较旧，旧版有些bug，没有二维码不符合我要求，还有他用的是默认端口80，会跟其他软件冲突，导致无法使用

楼主能不能限制重命名和删除文件权限，这是随都可以删除啊！

过几天安排

方便手机端和电脑端传输文件，谢谢分享

暂时用不到，先支持一下