XMLHTTP应用

最新推荐文章于 2022-07-09 13:35:14 发布

宝马奥迪

最新推荐文章于 2022-07-09 13:35:14 发布

阅读量504

点赞数

分类专栏： MUSH应用文章标签： xml url function file

本文链接：https://blog.csdn.net/perky_bj/article/details/8062616

版权

MUSH应用专栏收录该内容

7 篇文章 0 订阅

订阅专栏

g_Luapath=string.match(GetInfo(35),"^.*\\")
assert(package.loadlib("luacom.dll","luacom_open"))()
function dj(i_url)
	--创建XMLHTTP对象
	xml=assert(luacom.CreateObject("MICROSOFT.XMLHTTP"),"wrong")

	--获取JPG图像地址
	xml:Open("POST",i_url,false)
	xml:setRequestHeader("User-Agent","Mozilla/4.0")
	xml:Send()
	i_url=xml.responseText
	i_url=string.match(i_url,"/b2evo_captcha_tmp.-jpg")
	local fname=g_Luapath..[[img\]]..os.time()..[[.jpg]]
	i_url="http://pkuxkx.net/antirobot"..i_url

	--通过地址获得图像流
	xml:Open("GET",i_url,false)
	xml:setRequestHeader("User-Agent","Mozilla/4.0")
	xml:Send()
	fname=g_Luapath..[[img\tmp.jpg]]

	--将流存入文件，流在responseBody中
 	if xml.readyState==4 and xml.Status==200 then
		fi=assert(io.open(fname,"wb"))
 		fi:write(xml.responseBody)
 		fi:close()
 	end
	local newfname=g_Luapath..[[img\]]..fsize(fname).."_"..os.time()..[[.jpg]]

	--打开tmp文件，重新写成保存文件
	f1=assert(io.open(fname,"rb"))
	f2=assert(io.open(newfname,"wb"))
	f2:write(f1:read("*all"))
	f1:close()
	f2:close()
end

--获取文件大小函数
function fsize (i_fname)
	fi=assert(io.open(i_fname,"r"))
    local current = fi:seek()     -- get current position
    local size = fi:seek("end")   -- get file size
    fi:seek("set", current)       -- restore position
	fi:close()
    return size
end