易语言 windows系统webdav挂载+Alist 图形界面 （源码）

暗夜硝烟

之前用VB6写过一个，看不到命令，只能挂载一个。
vb6写得alist自动启动面板和win自带服务挂载小工具2.8
https://www.52pojie.cn/thread-1936553-1-1.html
(出处: 吾爱破解论坛)
~~~
这个算是升级版本，能显示运行命令，自定义密码，挂载多个磁盘，自动启动。
个人兴趣就是弄着玩的哈。






网盘挂载工具.exe

https://wwvl.lanzout.com/irdYI29xxjvi
密码:52pj
~~~
网盘挂载.e  （源码需要自行编译）
https://wwvl.lanzout.com/iLHe429zlcje

[Visual Basic] 纯文本查看 复制代码

?

001 002 003 004 005 006 007 008 009 010 011 012 013 014 015 016 017 018 019 020 021 022 023 024 025 026 027 028 029 030 031 032 033 034 035 036 037 038 039 040 041 042 043 044 045 046 047 048 049 050 051 052 053 054 055 056 057 058 059 060 061 062 063 064 065 066 067 068 069 070 071 072 073 074 075 076 077 078 079 080 081 082 083 084 085 086 087 088 089 090 091 092 093 094 095 096 097 098 099 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

.版本 2 .支持库 EThread .支持库 CompleteUI .支持库 iext .支持库 iext3 .支持库 spec .支持库 iext2   .程序集 窗口程序集_启动窗口   .子程序 __启动窗口_创建完毕 .局部变量 注册表路径, 文本型   启动线程 (&_时钟1_周期事件, , ) 注册表路径 ＝ “Software\Microsoft\Windows\CurrentVersion\Run\” .如果真 (注册项是否存在 (#现行用户, 注册表路径 ＋ “\alist”))     选择框1.选中 ＝ 真 .如果真结束 .如果真 (注册项是否存在 (#现行用户, 注册表路径 ＋ “\dav”))     选择框2.选中 ＝ 真 .如果真结束     .子程序 _超级按钮6_被单击 .局部变量 执行结果, 文本型 .局部变量 处理后的结果, 文本型 .局部变量 行数组, 文本型, , "1" .局部变量 索引, 整数型   执行结果 ＝ 系统_取DOS执行结果 (“alist.exe restart”) 行数组 ＝ 分割文本 (执行结果, “      ”, ) 处理后的结果 ＝ “” .计次循环首 (取数组成员数 (行数组), 索引)     处理后的结果 ＝ 处理后的结果 ＋ 行数组 [索引] ＋ #换行符 .计次循环尾 () 编辑框1.内容 ＝ 处理后的结果 启动线程 (&_时钟1_周期事件, , )   .子程序 _超级按钮7_被单击   编辑框1.内容 ＝ “”   运行 (“alist.exe stop”, 假, 0) 运行 (“taskkill /f /im alist.exe”, 假, 0) 启动线程 (&_时钟1_周期事件, , )     .子程序 _超级按钮8_被单击 .局部变量 执行结果, 文本型 .局部变量 处理后的结果, 文本型 .局部变量 行数组, 文本型, , "1" .局部变量 索引, 整数型 .局部变量 参数, 文本型   .如果 (编辑框2.内容 ≠ “”)     参数 ＝ “admin set ” ＋ 编辑框2.内容 .否则     参数 ＝ “admin random” .如果结束   执行结果 ＝ 系统_取DOS执行结果 (“alist.exe ” ＋ 参数) 行数组 ＝ 分割文本 (执行结果, “        ”, ) 处理后的结果 ＝ “” .计次循环首 (取数组成员数 (行数组), 索引)     处理后的结果 ＝ 处理后的结果 ＋ 行数组 [索引] ＋ #换行符 .计次循环尾 () 编辑框1.内容 ＝ 处理后的结果 启动线程 (&_时钟1_周期事件, , )   .子程序 _时钟1_周期事件 .局部变量 A句柄, 整数型   时钟1.时钟周期 ＝ 2000 .如果 (进程_是否存在 (“alist.exe”) ＝ 真)     标签1.标题 ＝ “     网盘挂载工具     ” ＋ “Alist已启动”     外形框1.填充颜色 ＝ #青绿   .否则     标签1.标题 ＝ “     网盘挂载工具     ” ＋ “Alist未开启”     外形框1.填充颜色 ＝ #红色     时钟1.时钟周期 ＝ 0 .如果结束     .子程序 _按钮1_被单击   .如果 (编辑框2.输入方式 ＝ #输入方式_密码方式)     按钮1.标题 ＝ “隐藏”     编辑框2.输入方式 ＝ #输入方式_通常方式 .否则     按钮1.标题 ＝ “显示”     编辑框2.输入方式 ＝ #输入方式_密码方式 .如果结束     .子程序 _透明标签1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型   透明标签1.可视 ＝ 假 编辑框2.获取焦点 ()   .子程序 _超级按钮1_被单击   高级选择夹1.现行子夹 ＝ 0   .子程序 _超级按钮2_被单击   高级选择夹1.现行子夹 ＝ 1   .子程序 _超级按钮3_被单击   高级选择夹1.现行子夹 ＝ 2   .子程序 _超级按钮4_被单击   高级选择夹1.现行子夹 ＝ 3   .子程序 _超级按钮9_被单击   高级选择夹1.现行子夹 ＝ 4   .子程序 _超级按钮11_被单击   _启动窗口.位置 ＝ 2     .子程序 _超级按钮10_被单击   销毁 ()     .子程序 _超级按钮5_被单击   运行 (“alist.exe server”, 假, #隐藏窗口)   .子程序 _超级按钮15_被单击 .局部变量 执行结果, 文本型   写到文件 (取运行目录 () ＋ “\dav.reg”, 到字节集 (编辑框4.内容)) 执行结果 ＝ 系统_取DOS执行结果 (“reg import ” ＋ “dav.reg”) 编辑框5.内容 ＝ #换行符 ＋ 执行结果 删除文件 (“dav.reg”)     .子程序 _超级按钮16_被单击 .局部变量 执行结果, 文本型   写到文件 (取运行目录 () ＋ “\Client.bat”, 到字节集 (编辑框3.内容)) 执行结果 ＝ 系统_取DOS执行结果 (“Client.bat”) 编辑框5.内容 ＝ 执行结果 删除文件 (“Client.bat”)   .子程序 _超级按钮14_被单击   _超级按钮15_被单击 () 延迟 (1000) _超级按钮16_被单击 () 延迟 (1000) 超级按钮14.标题 ＝ “执行完毕” 超级按钮14.通常背景色 ＝ #嫩绿 超级按钮14.焦点背景色 ＝ #嫩绿 延迟 (3000) 超级按钮14.标题 ＝ “开启WebDav服务” 超级按钮14.通常背景色 ＝ #浅灰 超级按钮14.焦点背景色 ＝ #浅灰   .子程序 _超级按钮13_被单击   运行 (“explorer.exe http://127.0.0.1:5244”, 假, )     .子程序 _超级按钮17_被单击   运行 (“explorer.exe https://alist.nn.ci/”, 假, )   .子程序 _超级按钮18_被单击   运行 (“explorer.exe https://github.com/alist-org/alist/releases/”, 假, )   .子程序 _超级按钮19_被单击   编辑框7.内容 ＝ “http://” 编辑框6.可视 ＝ 假 标签6.可视 ＝ 真 标签7.可视 ＝ 真 标签8.可视 ＝ 真 标签9.可视 ＝ 真 组合框1.可视 ＝ 真 编辑框7.可视 ＝ 真 编辑框8.可视 ＝ 真 编辑框9.可视 ＝ 真 超级按钮22.可视 ＝ 真 超级按钮23.可视 ＝ 真   .子程序 _超级按钮22_被单击 .局部变量 挂载地址, 文本型   编辑框6.可视 ＝ 真 标签6.可视 ＝ 假 标签7.可视 ＝ 假 标签8.可视 ＝ 假 标签9.可视 ＝ 假 组合框1.可视 ＝ 假 编辑框7.可视 ＝ 假 编辑框8.可视 ＝ 假 编辑框9.可视 ＝ 假 超级按钮22.可视 ＝ 假 超级按钮23.可视 ＝ 假 挂载地址 ＝ #换行符 ＋ “net use ” ＋ 组合框1.内容 ＋ “ ” ＋ 编辑框7.内容 ＋ “ ” ＋ 编辑框8.内容 ＋ “ /USER:” ＋ 编辑框9.内容 _超级按钮21_被单击 () 编辑框6.内容 ＝ 编辑框6.内容 ＋ 挂载地址 _超级按钮20_被单击 () 组合框1.内容 ＝ “” 编辑框7.内容 ＝ “” 编辑框8.内容 ＝ “” 编辑框9.内容 ＝ “”     .子程序 _组合框1_将弹出列表 .局部变量 盘符, 文本型 .局部变量 盘符代码, 整数型 .局部变量 盘符字符串, 文本型   组合框1.清空 () .计次循环首 (26, 盘符代码)     盘符字符串 ＝ 取文本中间 (“ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 盘符代码, 1)     盘符 ＝ 盘符字符串 ＋ “:”     .如果 (取磁盘卷标 (盘符) ＝ “”)         组合框1.加入项目 (盘符, )     .否则       .如果结束   .计次循环尾 ()     .子程序 _超级按钮21_被单击 .局部变量 挂载bat, 整数型   .如果真 (文件是否存在 (取运行目录 () ＋ “\mount.bat”))     挂载bat ＝ 打开文件 (取运行目录 () ＋ “\mount.bat”, #读入, )     编辑框6.内容 ＝ 读入文本 (挂载bat, )     关闭文件 (挂载bat) .如果真结束     .子程序 _超级按钮20_被单击   写到文件 (取运行目录 () ＋ “\mount.bat”, 到字节集 (编辑框6.内容))   .子程序 _超级按钮23_被单击   编辑框6.可视 ＝ 真 标签6.可视 ＝ 假 标签7.可视 ＝ 假 标签8.可视 ＝ 假 标签9.可视 ＝ 假 组合框1.可视 ＝ 假 编辑框7.可视 ＝ 假 编辑框8.可视 ＝ 假 编辑框9.可视 ＝ 假 超级按钮22.可视 ＝ 假 超级按钮23.可视 ＝ 假 组合框1.内容 ＝ “” 编辑框7.内容 ＝ “” 编辑框8.内容 ＝ “” 编辑框9.内容 ＝ “”     .子程序 _超级按钮24_被单击 .局部变量 执行结果, 文本型   执行结果 ＝ 系统_取DOS执行结果 (“mount.bat”) 编辑框6.内容 ＝ 执行结果       .子程序 _选择框2_被单击 .局部变量 注册表路径, 文本型 .局部变量 bat文件路径, 文本型   bat文件路径 ＝ 取运行目录 () ＋ “\mount.bat” 注册表路径 ＝ “Software\Microsoft\Windows\CurrentVersion\Run\” .如果 (选择框2.选中)     .如果真 (文件是否存在 (取运行目录 () ＋ “\mount.bat”))         写注册项 (#现行用户, 注册表路径 ＋ “\dav”, bat文件路径)     .如果真结束   .否则     删除注册项 (#现行用户, 注册表路径 ＋ “\dav”) .如果结束       .子程序 _选择框1_被单击 .局部变量 注册表路径, 文本型 .局部变量 vbs文件路径, 文本型   vbs文件路径 ＝ 取运行目录 () ＋ “\start.vbs” 注册表路径 ＝ “Software\Microsoft\Windows\CurrentVersion\Run” .如果 (选择框1.选中)     写到文件 (取运行目录 () ＋ “\start.vbs”, 到字节集 (编辑框10.内容))     写注册项 (#现行用户, 注册表路径 ＋ “\alist”, vbs文件路径) .否则     删除注册项 (#现行用户, 注册表路径 ＋ “\alist”) .如果结束           .子程序 _超级按钮12_被单击   运行 (“mount.bat”, 假, #隐藏窗口)

ifrv

大佬挂载选项怎么填写，我的一直都不成功，alist后台没问题。之前用的你的老版本 都正常，换了新的不会用了。
D:\应用\alist>net use E: http://127.0.0.1:5244/dav admin /USER:1
发生系统错误 1244。


因为用户还未通过身份验证，不能执行所要求的操作。

暗夜硝烟

Lty20000423 发表于 2024-9-14 07:39
之前也用过，但是这个 能一键挂载吗？我看之前发过的不能啊

之前的也能，不过之前vb6挂载好像不是很稳定，这次挂载是运行的bat，添加挂载地址后会被保存bat，然后运行bat挂载的。开机器粉就是吧bat添加到了开机启动。alist启动是易语言直接运行，开机启动是创建了vbs启动alist，所以开机启动不会显示这个程序。

swl0515

感谢分享，再用Raidrive

lsy832

感谢分享,分享精神点赞

rory1185

感谢分享。看着不错

chplifeng

易语言做外挂是不错的东西。

逐雅斋

这个看起来不错，感谢分享

xbang

感谢，这个源码。。能按文件分享么

Lty20000423

之前也用过，但是这个 能一键挂载吗？我看之前发过的不能啊

pistachios2008

感谢！感谢！