• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 10
发新话题 回复该主题

[源码分享] 自己用的ftp可以上传下载所有格式文件,文本,图片等 [复制链接]

1#
//完善小玮以前写的插件,自己一直用的放出来。

//完全免费的。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

//什么都不用安装,上传下载不限制任何文件大小,就是这么吊



//.............................
Import "xy.luae"
Dim 路径
路径= GetSdcardDir ()
Delay 1000

Function 下载
判断文件
Dim 服务器地址="ftp地址", 用户名="ftp账号", 密码="ftp密码" ,服务器文件路径 = "web/你的服务器文件.txt", 本地路径= 路径&"/你的本地文件.txt"
Delay 100
dim xz= xy.FtpGet(服务器地址,用户名,密码,本地路径,服务器文件路径)'FTP下载
TracePrint xz'成功输出true ,失败返回false。
End Function

Function 上传
判断文件
Dim 服务器地址="ftp地址", 用户名="ftp账号", 密码="ftp密码" ,服务器文件路径 = "web/你的服务器文件.txt", 本地路径= 路径&"/你的本地文件.txt"

Delay 100
dim sc = xy.FtpPut(服务器地址,用户名,密码,本地路径,服务器文件路径)'FTP上传
TracePrint sc'成功输出true ,失败返回false。
End Function

Function 判断文件

Call xy.Mount("/system")
//这个是防止有的设备系统根目录为xbin,一般情况下都是bin目录
// If Dir.Exist("/system/bin/ftpput") = 0 And Dir.Exist("/system/xbin/ftpput") Then
If Dir.Exist("/system/bin/ftpput") = 0 Then
TracePrint "检测ftpput不存在,释放文件"'释放ftpput到设备系统bin目录
PutAttachment "/system/bin/","ftpput"
End If

// If Dir.Exist("/system/bin/ftpget") = 0 And Dir.Exist("/system/xbin/ftpget") Then
If Dir.Exist("/system/bin/ftpget") = 0 Then '释放ftpget到设备系统bin目录
TracePrint "检测ftpget不存在,释放文件"
PutAttachment "/system/bin/", "ftpget"
End If
//下面为修改ftpput和ftpget最高权限
Delay 100
Call xy.Chmod("/system/bin/ftpput", 0)'设为可读写
Delay 100
Call xy.Cmd("chmod 7777 /system/bin/ftpput")'修改最高权限
Delay 100
Call xy.Chmod("/system/bin/ftpget", 0)'设为可读写
Delay 100
Call xy.Cmd("chmod 7777 /system/bin/ftpget")'修改最高权限
Delay 100

End Function
//注:FtpGet和FtpPut放附件

最后编辑959888227 最后编辑于 2018-09-15 12:26:28
雪花飘飘
2#

做一次沙发

3#

,看看下,能否有用》》

4#

好像有用的样子。

5#

自己用的ftp可以上传下载所有格式文件,文本,图片等修改

[url=http://bbs.anji
6#

感谢分享


以建会友,共同学习,共同进步。无偿帮助解答各种简单小问题。

7#

感谢分享

8#

谢谢分享

9#

看一看

10#

学习学习

11#

签个到

12#

下载学习一下呗!

13#

阿的说法是打发大事发生地方

14#

干嘛用?自己做云存储?

15#

楼主辛苦了送花

16#

感谢分享~

17#

看看下,能否有用》》

18#

让我看看 我能用上不

19#

认为我无无无无无无无无无无无无无无无无无无

20#

向楼主学习

发新话题 回复该主题