官方里面的山海插件也是调用curl下载文件的,不安装curl则也无法使用,

顺便提示下,山海里的输入法文档说明是错误的,正确的以源码为准,


插件和curl文件都在附件里面 lua插件放到 按键精灵手机助手 安装位置的 Plugin 文件夹里面去

curl文件 放到脚本附件里面

还有个多线程结束脚本运行的命令

Import "curl.lua"'导入插件

//////////////////////////////////////////

'---------------------------释放:curl 文件

If Dir.Exist("/system/bin/curl") = 0 Then

    TracePrint "系统运行缺少必备的Curl库" : Call curl.Cmd("mount -o remount,rw /dev/block/sda6 /system")

    Call curl.Cmd("mount -o remount,rw /dev/block/mtdblock8 /system") : TracePrint "正在自动安装Curl库" : PutAttachment "/system/bin/", "curl" : Call curl.Cmd("chmod 777 /system/bin/curl")

    If Dir.Exist("/system/bin/curl") = 0 Then  : TracePrint "curl 安装失败,请手动复制到: /system/bin/ 目录下" : EndScript : End If

End If

'-----------------------------------------

//////////////////////////////////////////

'----------------------------------定义参数

Dim ftp地址="ftp://198.0.0.1/"    '示例

Dim 用户名="root"    '示例

Dim 密码="root"    '示例

'-----------------------------------------

//////////////////////////////////////////

'----------------------------调用插件命令示例

//删除指定ftp文件, 参数:【用户名】,【密码】,【ftp地址】,【文件路径 如:htdocs/by/1.txt】

Call curl.ftpDel(用户名, 密码, ftp地址, "htdocs/by/1.txt") '示例


//上传文件到ftp,参数:【用户名】,【密码】,【上传文件的路径,上传到ftp的路径 如:[url]ftp://198.0.0.1/htdocs/by/[/url]】

Call curl.ftpSc(用户名, 密码, "/sdcard/1.txt", "ftp://198.0.0.1/htdocs/by/")  '示例


//下载ftp文件到本地,参数:【下载ftp文件路径 如:[url]ftp://198.0.0.1/htdocs/by/1.txt[/url]】,【用户名】,【密码】,【保存到手机的路径 如:/sdcard/1.txt】

Call curl.ftpXz("ftp://198.0.0.1/htdocs/by/1.txt",用户名,密码,"/sdcard/1.txt")  '示例


//使用 curl 下载文件,参数:【下载到手机的路径 如:/sdcard/3.txt】,【下载文件的地址】

Call curl.xzwj("/sdcard/3.txt","http://zhoummo.com/")  '示例

'-----------------------------------------



curl_20176613358.zip


标签: none

添加新评论