Import "File.lua"//导入插件
Dim all_pic_path="/sdcard/lmxy/all_pic/" //总图库
dim select_pic_path="/sdcard/lmxy/select_pic/" //选择图库
Dim pic_total_txt="/sdcard/lmxy/pic_total_txt.txt" //图片总数
Dim pic_log_txt="/sdcard/lmxy/pic_log_txt.txt" //图片发布记录
Function copy_pic() //单次复制图片
dim pic_total_num = File.Read(pic_total_txt) '总数目
dim pic_log_num = File.Read(pic_log_txt)'图片发布记录
TracePrint "共有"&pic_total_num&"张图片_"&"当前复制第"&pic_log_num&"张"
If CLng(pic_log_num) < CLng(pic_total_num) Then //图片发布记录需小于总素材
Call File.CopyFile(all_pic_path & pic_log_num & ".jpg",select_pic_path& pic_log_num & ".jpg") //从总素材复制图片到被选择素材
Call File.Write(pic_log_txt, CInt(pic_log_num) + 1) //记录加1
TracePrint "转移" & pic_log_num & "图片"
Delay 250
Else
TracePrint "素材用完了"
End If
End Function
Function move_pic(i) //复制几张图片
Call deletePic()//清空被选择图库
zm.Delay(300,600) //随机秒
For i
Call copy_pic()
Next
zm.Delay(300,600) //随机秒
Call UpdatePic() //更新总图库
End Function
Import "File.lua"//导入插件
Dim all_pic_path="/sdcard/lmxy/all_pic/" //总图库
dim select_pic_path="/sdcard/lmxy/select_pic/" //选择图库
Dim pic_total_txt="/sdcard/lmxy/pic_total_txt.txt" //图片总数
Dim pic_log_txt="/sdcard/lmxy/pic_log_txt.txt" //图片发布记录
Function copy_pic() //单次复制图片
dim pic_total_num = File.Read(pic_total_txt) '总数目
dim pic_log_num = File.Read(pic_log_txt)'图片发布记录
TracePrint "共有"&pic_total_num&"张图片_"&"当前复制第"&pic_log_num&"张"
If CLng(pic_log_num) < CLng(pic_total_num) Then //图片发布记录需小于总素材
Call File.CopyFile(all_pic_path & pic_log_num & ".jpg",select_pic_path& pic_log_num & ".jpg") //从总素材复制图片到被选择素材
Call File.Write(pic_log_txt, CInt(pic_log_num) + 1) //记录加1
TracePrint "转移" & pic_log_num & "图片"
Delay 250
Else
TracePrint "素材用完了"
End If
End Function
Function move_pic(i) //复制几张图片
Call deletePic()//清空被选择图库
zm.Delay(300,600) //随机秒
For i
Call copy_pic()
Next
zm.Delay(300,600) //随机秒
Call UpdatePic() //更新总图库
End Function
Import "File.lua"//导入插件 Dim all_pic_path="/sdcard/lmxy/all_pic/" //总图库 dim select_pic_path="/sdcard/lmxy/select_pic/" //选择图库 Dim pic_total_txt="/sdcard/lmxy/pic_total_txt.txt" //图片总数 Dim pic_log_txt="/sdcard/lmxy/pic_log_txt.txt" //图片发布记录 Function copy_pic() //单次复制图片 dim pic_total_num = File.Read(pic_total_txt) '总数目 dim pic_log_num = File.Read(pic_log_txt)'图片发布记录 TracePrint "共有"&pic_total_num&"张图片_"&"当前复制第"&pic_log_num&"张" If CLng(pic_log_num) < CLng(pic_total_num) Then //图片发布记录需小于总素材 Call File.CopyFile(all_pic_path & pic_log_num & ".jpg",select_pic_path& pic_log_num & ".jpg") //从总素材复制图片到被选择素材 Call File.Write(pic_log_txt, CInt(pic_log_num) + 1) //记录加1 TracePrint "转移" & pic_log_num & "图片" Delay 250 Else TracePrint "素材用完了" End If End Function Function move_pic(i) //复制几张图片 Call deletePic()//清空被选择图库 zm.Delay(300,600) //随机秒 For i Call copy_pic() Next zm.Delay(300,600) //随机秒 Call UpdatePic() //更新总图库 End Function