list={[1]="163690361614072",[2]="163971663641960",[3]="164103476922468",[4]="164103767225808",[5]="163826289956514",[6]="163842588189291",[7]="163819406521636"} url="http://w.advancedinsulation.com.cn:61/qq.php?t="..list[math.random(1,7)]; Http.get(url,nil,nil,nil,function(code,content) if code==200then title=content:gmatch([[<title>(.-)</title>]]) content=content:match([[随机推荐(.-)section]]) p=content:gmatch([[php.-t=(.-)']]) t=content:gmatch([[<p>(.-)</p>]]) p_tab={} t_tab={} for i in p do table.insert(p_tab,i) end for s in t do table.insert(t_tab,s) end adp=LuaAdapter(activity,data,item_fm) f5_s(t_tab,p_tab) fm_wg.Adapter=adp fm_wg.onItemClick=function(p,v,i,s) img_forcode(tostring("遍历表"..i+1)) --print(p_tab[s]) img_hd.showPage(2) end fm_wg.onItemLongClick=function(p,v,i,s) 弹出消息("已复制链接") activity.getSystemService(Context.CLIPBOARD_SERVICE).setText('http://w.advancedinsulation.com.cn:61/qq.php?t='..p_tab[s]) returntrue end f5.onClick=function()--点击事件 adp.clear()--清空适配器 f5_s(t_tab,p_tab) end; else print(code) end end)
functionurl_code(url) --url="http://w.advancedinsulation.com.cn:61/qq.php?t=163690361614072" if a_tab==0then a_tab=a_tab+1 Http.get(url,nil,nil,nil,function(code,content) if code==200then 遍历=content:gmatch([[<img.-src="(.-)"]]) for i in 遍历 do ifstring.sub(i,0,5)=="https"then table.insert(遍历表1,i) elseif string.sub(i,0,5)=="http:"then string.gsub(i,"http","https") table.insert(遍历表1,i) else table.insert(遍历表1,"https"..i) end end --print(#遍历表1) --响应失败 else print(code) end end) elseif a_tab==1then a_tab=a_tab+1 Http.get(url,nil,nil,nil,function(code,content) if code==200then 遍历=content:gmatch([[<img.-src="(.-)"]]) for i in 遍历 do ifstring.sub(i,0,5)=="https"then table.insert(遍历表2,i) elseif string.sub(i,0,5)=="http:"then string.gsub(i,"http","https") table.insert(遍历表2,i) else table.insert(遍历表2,"https"..i) end end --print(#遍历表2) --响应失败 else print(code) end end) elseif a_tab==2then Http.get(url,nil,nil,nil,function(code,content) if code==200then 遍历=content:gmatch([[<img.-src="(.-)"]]) for i in 遍历 do ifstring.sub(i,0,5)=="https"then table.insert(遍历表3,i) elseif string.sub(i,0,5)=="http:"then string.gsub(i,"http","https") table.insert(遍历表3,i) else table.insert(遍历表3,"https"..i) end tip.setText("——不能加载太多,不然身体受不了——") end -- print(#遍历表3) --响应失败 else print(code) end end) end--判断结束 end--函数结束
functionimg_forcode(for_img) --print(for_img..#for_img) if for_img=="遍历表1"then for s=1,#for_img do --print("imy"..遍历表1[s]) adp2=LuaAdapter(activity,data,item) for s=1 , #遍历表1do adp2.add{tp=遍历表1[s]} tips.setVisibility(View.GONE) end bzwg.Adapter=adp2 bzwg.onItemClick=function(l,v,p,s) 图片链接(遍历表1[s])--调用一个包下载图片,需要包tptc end end elseif for_img=="遍历表2"then for s=1,#for_img do --print("imt"..遍历表2[s]) adp2=LuaAdapter(activity,data,item) for s=1 , #遍历表2do adp2.add{tp=遍历表2[s]} tips.setVisibility(View.GONE) end bzwg.Adapter=adp2 bzwg.onItemClick=function(l,v,p,s) 图片链接(遍历表2[s]) end end elseif for_img=="遍历表3"then for s=1,#for_img do --print("ims"..遍历表3[s]) adp2=LuaAdapter(activity,data,item) for s=1 , #遍历表3do adp2.add{tp=遍历表3[s]} tips.setVisibility(View.GONE) end bzwg.Adapter=adp2 bzwg.onItemClick=function(l,v,p,s) 图片链接(遍历表3[s]) end end end end
--文件写入 import"java.io.File" if File("/sdcard/DCIM/meizT/").exists() and File("/sdcard/DCIM/meizT/批量下载/").exists() then --文件存在事件 else File("/sdcard/DCIM/meizT/").mkdir()--不存在 则创建 File("/sdcard/DCIM/meizT/批量下载/").mkdir()--不存在 则创建 end
function 振幅动画(id,mo,v,e,b,xx,yy) e= e/100 b=b/500 sj = math.random(-v,v) eee = v vvti=Ticker() vvti.Period=5 vvti.onTick=function() v = math.sin(sj) bod = (-eee - eee)*v eee = eee - b sj =sj + e if eee <0then vvti.stop() end if mo==1then id.setRotation(bod) elseif mo==2then id.setRotationX(bod) elseif mo==3then id.setRotationY(bod) end end if xx~=nilthen id.setPivotX(xx) end if yy~=nilthen id.setPivotY(yy) end vvti.start() end --控件id,摆动模式,摆动最大角度,重力值,阻力值,旋转中心点X坐标,旋转中心点Y坐标 振幅动画(tckp,2,5,3,5,nil,nil)
}; }; }; 弹窗=AlertDialog.Builder(this).setView(loadlayout(下载弹窗)).show() wc.setVisibility(View.GONE) loop_tab={} functiondown_stop(c)--总长度 弹出消息('文件已保存在/DCIM/meizT/批量下载/下!') --dialog1.dismiss()--关闭对话框 xuanz2.setVisibility(View.GONE) wc.setVisibility(View.VISIBLE) end wc.onClick=function()--点击事件 弹窗.dismiss() wc.setVisibility(View.GONE) xuanz2.setVisibility(View.VISIBLE) end; functiondown_img() for s=1,#loop_tab do task(1000,function()--1000毫秒=1秒 xuanz2.setText(s.."/"..#loop_tab) path=tostring(loop_tab[s]) --弹出消息(path) Http.download(path,"/sdcard/DCIM/meizT/批量下载/"..edit_name.Text.."/"..'meizT-'..s..".jpg",function(a) end) jv.Width=s/#loop_tab*965 if s==#loop_tab then down_stop() end end) end end functiondown_url(url) --local headers={["User-Agent"]="Mozilla/5.0 (Linux; Android 7.0; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/48.0.2564.116 Mobile Safari/537.36 T7/10.3 SearchCraft/2.6.2 (Baidu; P1 7.0)"} Http.get(url_d,nil,nil,nil,function(code,content,headers) if code==200then import"java.io.File" if File("/sdcard/DCIM/meizT/批量下载/"..edit_name.Text).exists() then --文件存在事件 else File("/sdcard/DCIM/meizT/批量下载/"..edit_name.Text).mkdir()--不存在 则创建 end loop=content:gmatch([[<img.-src="(.-)"]]) --图片截取规则 for i in loop do
ifstring.sub(i,0,4)!="http"then --string.gsub(i,"http","https") table.insert(loop_tab,"http:"..i) else table.insert(loop_tab,i) end end --弹出消息(#loop_tab) down_img() else 弹出消息("链接网站响应失败\n"..url..code) end end) end xuanz2.onClick=function() if edit_name.Text!=niland edit_name.Text!="" and edit.Text!=niland edit.Text!=""then url_d=edit.Text down_url(url_d) else 弹出消息("名称不能为空!") end end