易语言 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] 纯文本查看 复制代码

.版本 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”, 假, #隐藏窗口)

暗夜硝烟

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

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

bachelor66

有源码的必须顶一下，感谢楼主分享                                      

irundream

感谢分享，再用Raidrive

swl0515

感谢分享，再用Raidrive

lsy832

感谢分享,分享精神点赞

rory1185

感谢分享。看着不错

chplifeng

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

jinsuo12138

        我很赞同！

yoyoma211

这个还是不错的，支持原创

逐雅斋

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