控制服务器上传文件

白小川

控制服务器上的指定文件，传送到蓝云凑
每次还要登录服务器，感觉太麻烦了，有什么好办法？

Ruang

远控？   

花间一壶酒

直接把脚本放到服务器上运行不就行了   让脚本自动传

联系q2067702037

远控？   

你的猫

  

子程序名	返回值类型	公开	备 注
上传文件到蓝奏云
参数名	类 型	参考	可空	数组	备 注
服务器文件路径	文本型
蓝奏云用户名	文本型
蓝奏云密码	文本型

变量名	类 型	静态	数组	备 注
本地临时文件	文本型
网页操作	网页操作类
登录结果	逻辑型
上传结果	文本型
分享链接	文本型

' 步骤1：从服务器下载文件到本地
本地临时文件 ＝ 取运行目录 () ＋ "\temp_" ＋ 取文本右边 (服务器文件路径, 取文本长度 (服务器文件路径) － 倒找文本 (服务器文件路径, "\", , 假))
输出调试文本 ("正在下载文件到本地：" ＋ 本地临时文件)
如果 (FTP下载文件 ("服务器IP", "用户名", "密码", 服务器文件路径, 本地临时文件) ＝ 假)
信息框 ("从服务器下载文件失败！", 0, , )
返回 ()
输出调试文本 ("文件下载成功")

' 步骤2：登录蓝奏云
输出调试文本 ("正在登录蓝奏云...")
登录结果 ＝ 网页操作.网页_访问 ("https://up.woozooo.com/account.php?action=login", 1, "username=" ＋ 编码_URL编码 (蓝奏云用户名, 真, 真) ＋ "&password=" ＋ 编码_URL编码 (蓝奏云密码, 真, 真) ＋ "&remember=on", , , "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.90 Safari/537.36", , , , , , , , , )
如果 (寻找文本 (网页操作.网页_取返回文本 (), "登录成功", , 假) ＝ -1)
信息框 ("蓝奏云登录失败！", 0, , )
返回 ()
输出调试文本 ("蓝奏云登录成功")

' 步骤3：上传文件到蓝奏云
输出调试文本 ("正在上传文件到蓝奏云...")
上传结果 ＝ 网页操作.网页_访问 ("https://up.woozooo.com/fileup.php", 1, , 本地临时文件, , "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.90 Safari/537.36", , , , , , , , , )
如果 (寻找文本 (上传结果, "上传成功", , 假) ＝ -1)
信息框 ("文件上传失败！", 0, , )
返回 ()
输出调试文本 ("文件上传成功")

' 步骤4：获取分享链接
分享链接 ＝ 文本_取出中间文本 (上传结果, "分享链接：", """"")
信息框 ("上传成功！分享链接：" ＋ #换行符 ＋ 分享链接, 0, "上传结果", )

' 删除临时文件
删除文件 (本地临时文件)

子程序名	返回值类型	公开	备 注
FTP下载文件	逻辑型
参数名	类 型	参考	可空	数组	备 注
服务器地址	文本型
用户名	文本型

变量名	类 型	静态	数组	备 注
FTP句柄	整数型
下载结果	逻辑型

FTP句柄 ＝ FTP连接 (服务器地址, 用户名, 密码, 21, 假)
如果 (FTP句柄 ＝ 0)
返回 (假)
下载结果 ＝ FTP下载 (FTP句柄, 服务器文件路径, 本地临时文件)
FTP断开 (FTP句柄)
返回 (下载结果)

i支持库列表	支持库注释
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .子程序 上传文件到蓝奏云<br /> .参数 服务器文件路径, 文本型<br /> .参数 蓝奏云用户名, 文本型<br /> .参数 蓝奏云密码, 文本型<br /> .局部变量 本地临时文件, 文本型<br /> .局部变量 网页操作, 网页操作类<br /> .局部变量 登录结果, 逻辑型<br /> .局部变量 上传结果, 文本型<br /> .局部变量 分享链接, 文本型<br /> <br /> ' 步骤1：从服务器下载文件到本地<br /> 本地临时文件 ＝ 取运行目录 () ＋ "\temp_" ＋ 取文本右边 (服务器文件路径, 取文本长度 (服务器文件路径) － 倒找文本 (服务器文件路径, "\", , 假))<br /> 输出调试文本 ("正在下载文件到本地：" ＋ 本地临时文件)<br /> <br /> .如果 (FTP下载文件 ("服务器IP", "用户名", "密码", 服务器文件路径, 本地临时文件) ＝ 假)<br />     信息框 ("从服务器下载文件失败！", 0, , )<br />     返回 ()<br /> .否则<br />     输出调试文本 ("文件下载成功")<br /> .如果结束<br /> <br /> ' 步骤2：登录蓝奏云<br /> 输出调试文本 ("正在登录蓝奏云...")<br /> 登录结果 ＝ 网页操作.网页_访问 ("https://up.woozooo.com/account.php?action=login", 1, "username=" ＋ 编码_URL编码 (蓝奏云用户名, 真, 真) ＋ "&password=" ＋ 编码_URL编码 (蓝奏云密码, 真, 真) ＋ "&remember=on", , , "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.90 Safari/537.36", , , , , , , , , )<br /> <br /> .如果 (寻找文本 (网页操作.网页_取返回文本 (), "登录成功", , 假) ＝ -1)<br />     信息框 ("蓝奏云登录失败！", 0, , )<br />     返回 ()<br /> .否则<br />     输出调试文本 ("蓝奏云登录成功")<br /> .如果结束<br /> <br /> ' 步骤3：上传文件到蓝奏云<br /> 输出调试文本 ("正在上传文件到蓝奏云...")<br /> 上传结果 ＝ 网页操作.网页_访问 ("https://up.woozooo.com/fileup.php", 1, , 本地临时文件, , "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.90 Safari/537.36", , , , , , , , , )<br /> <br /> .如果 (寻找文本 (上传结果, "上传成功", , 假) ＝ -1)<br />     信息框 ("文件上传失败！", 0, , )<br />     返回 ()<br /> .否则<br />     输出调试文本 ("文件上传成功")<br />     <br />     ' 步骤4：获取分享链接<br />     分享链接 ＝ 文本_取出中间文本 (上传结果, "分享链接：", """"")<br />     信息框 ("上传成功！分享链接：" ＋ #换行符 ＋ 分享链接, 0, "上传结果", )<br /> .如果结束<br /> <br /> ' 删除临时文件<br /> 删除文件 (本地临时文件)<br /> <br /> .子程序 FTP下载文件, 逻辑型<br /> .参数 服务器地址, 文本型<br /> .参数 用户名, 文本型<br /> .局部变量 FTP句柄, 整数型<br /> .局部变量 下载结果, 逻辑型<br /> <br /> FTP句柄 ＝ FTP连接 (服务器地址, 用户名, 密码, 21, 假)<br /> .如果 (FTP句柄 ＝ 0)<br />     返回 (假)<br /> .否则<br />     下载结果 ＝ FTP下载 (FTP句柄, 服务器文件路径, 本地临时文件)<br />     FTP断开 (FTP句柄)<br />     返回 (下载结果)<br /> .如果结束

白小川

你的猫 发表于 2025-5-4 21:05
[e=2].版本 2
.支持库 internet
.支持库 spec

正在编译现行程序
正在检查重复名称...
正在预处理现行程序
错误(4): 没有找到名为“网页操作类”的数据类型。