url请求

谁借莪１个温暖的怀抱￠ 2021-11-05 13:48 446阅读 0赞

\--\[\[local g = require 'library.global'  
\--\_\_ml\_ss = mlc.prefix.ml\_psession..tostring(os.time());  
local mlc = require 'ml\_config'

local function haslogin()  
local r = g.getredis()  
local s,e = r:get();  
if s ~= nil then  
return true;  
else  
return false;  
end  
end

local ffiok, ffi = pcall(require,"ffi")  
\--require('library.kav\_fnc')  
\--md5 = require('library.md5')  
system\_hid = \{\}

\--require "redis"

\--\[\[local myclient = redis.connect();  
local all\_keys = myclient:keys("\*");  
local all\_values = myclient:mget(all\_keys);

for i, k in ipairs( all\_keys) do  
local v = all\_values\[i\];  
print(k, v)  
end --\]\]

\--\[\[local result =\{\}  
for i = 1,\#(KEYS) do  
result\[i\]= redis.call('get',KEYS\[i\])  
end  
return result--\]\]

\--\[\[local result=\{\};  
local myperson=KEYS\[1\];  
local nums=ARGV\[1\];

local myresult =redis.call("hkeys",myperson);

for i,v in ipairs(myresult) do  
local hval= redis.call("hget",myperson,v);  
redis.log(redis.LOG\_WARNING,hval);  
if(tonumber(hval)<tonumber(nums)) then  
table.insert(result,1,v);  
end  
end

fodr i=1,\#(result) do  
print(result\[i\])  
end

return result;--\]\]  
\--\]\]

\--\[\[local myKeyList=redis.call("keys","string.tmd.\*")  
local count=0  
local tempStrlocal str --experience all the keys 遍历数组 有多种方法遍历数组 网上很容易找到  
for index,line in pairs(myKeyList) do --通过Redis API调用 获取line的值 line即为键  
str=redis.call("get",line) --string.sub() match() gmatch() len() 对字符串操作的函数  
local matchStr=string.match(str,"http://tmd2.ghost.com/comment/images/%d+.png")  
\--匹配到http链接 --下面注释掉的函数可以在"服务器"端打印变量的值  
print(matchStr)  
local reserveStr=matchStr.sub(matchStr,40,string.len(matchStr));  
\--将链接截断，并替换成指定的模式  
\--print(reserveStr) -- .. 用于连接字符串 不像java中用 + 此处替换 str为源 中间为模式 右边为目标  
tempStr=string.gsub(str,"http://tmd2.ghost.com/comment/images/%d+.png","http://tmd2-img.ghost.com/1/"..reserveStr) --print(tempStr) --替换完后将之重新设置到Redis中  
redis.call("set",line,tempStr)  
print(redis.call("get",line))  
end--\]\]  
  
\---------------------------------------------  
  
二、lua发送http请求代码

1.get请求

bash  
local zhttp = require "resty.http"  
local function http\_post\_client(url, timeout)  
local httpc = zhttp.new()  
  
timeout = timeout or 30000  
httpc:set\_timeout(timeout)  
  
local res, err\_ = httpc:request\_uri(url, \{  
method = "GET",  
headers = \{  
\["Content-Type"\] = "application/x-www-form-urlencoded",  
\}  
\})  
httpc:set\_keepalive(5000, 100)  
\--httpc:close()  
return res, err\_  
end

2.post请求

bash

local zhttp = require "resty.http"  
local function http\_post\_client(url,body,timeout)  
local httpc = zhttp.new()  
  
timeout = timeout or 30000  
httpc:set\_timeout(timeout)  
  
local res, err\_ = httpc:request\_uri(url, \{  
method = "POST",  
body = body,  
headers = \{  
\["Content-Type"\] = "application/x-www-form-urlencoded",  
\}  
\})  
httpc:set\_keepalive(5000, 100)  
httpc:close()  
if not res then  
return nil, err\_  
else if res.status == 200 then  
return res.body, err\_  
else  
return nil, err\_ end  
end  
  
end

bash

\--get  
local resp, err = http\_post\_client("http://zixuephp.net/index.html?name=test",3000)  
\--post  
local body = \{"name" = "test"\}  
local resp, err = http\_post\_client("http://zixuephp.net/index.html?name=test",body,3000)  
  
  
  
  
\----------------------------------------  
  
require("curl")

local ipList =  
\{  
"192.168.1.1",

"192.168.1.1",

\--登陆  
function loginWeb(ip)  
　　c = curl.easy\_init()  
　　c:setopt(curl.OPT\_SSL\_VERIFYHOST, 0);  
　　c:setopt(curl.OPT\_SSL\_VERIFYPEER, 0);  
　　c:setopt(curl.OPT\_URL, "https://"..ip.."/")  
c:setopt(curl.OPT\_POSTFIELDS, "Username=admin&Password=admin&Frm\_Logintoken=&action=login")

c:setopt(curl.OPT\_WRITEFUNCTION, function(buffer)  
　　　　--print(buffer)  
　 　　--print("\\r\\n---------------------------\\r\\n");  
　　　　return \#buffer  
　　end)

c:perform()  
end

\--访问页面  
function accessPage(ip)  
　　c = curl.easy\_init()  
　　c:setopt(curl.OPT\_SSL\_VERIFYHOST, 0);  
　　c:setopt(curl.OPT\_SSL\_VERIFYPEER, 0);  
　　c:setopt(curl.OPT\_URL, "https://"..ip.."/xxpage.html")

c:setopt(curl.OPT\_WRITEFUNCTION, function(buffer)

--print(buffer)  
　 　　--print("\\r\\n---------------------------\\r\\n");  
　　　　return \#buffer  
　　end)

c:perform()  
end

\--设置参数  
function setParameter(ip, file)  
　　c = curl.easy\_init()  
　　c:setopt(curl.OPT\_SSL\_VERIFYHOST, 0);  
　　c:setopt(curl.OPT\_SSL\_VERIFYPEER, 0);  
　　c:setopt(curl.OPT\_URL, "https://"..ip.."/xx.php")  
　　c:setopt(curl.OPT\_POSTFIELDS, "DaylightSavingsUsed=1&Dscp=-1")

local htmlTable = \{\}  
　　c:setopt(curl.OPT\_WRITEFUNCTION, function(buffer)

--print(buffer)  
　 　　--print("\\r\\n---------------------------\\r\\n");  
　　　　table.insert(htmlTable, buffer)  
　　　　return \#buffer  
　　end)

c:perform()

local htmlStr = table.concat(htmlTable);  
　　local resultBuff = "";  
　　if string.match(htmlStr, "<result>SUCC</result>") ~= nil then  
　　　　resultBuff = ip.." config OK\\r\\n";  
　　　　print(resultBuff)  
　　　　file:write(resultBuff);

else

resultBuff = ip.." config NOK\\r\\n";  
　　　　print(resultBuff)

file:write(resultBuff);

end

local file = io.open(".\\\\result.txt", "w+");  
for key,ip in ipairs(ipList) do  
　　loginWeb(ip);  
　　accessPage(ip);  
　　openLightSave(ip, file);  
end  
file:close();

print("Done")

\------------------------------------------------------------------------------------------------------------------

local function postdata(url,postdata)  
local res="";  
c = curl.new()  
c:setopt(curl.OPT\_URL,url)  
c:setopt(curl.OPT\_POSTFIELDS,postdata)  
c:setopt(curl.OPT\_WRITEFUNCTION, function(userparam,buffer)  
if buffer ~= nil then  
\--local f = io.open(kav\_fnc.getmodulepath()..'session2.dat','w')  
\--if f ~= nil then  
\--f:write(buffer);  
print( buffer);  
\--f:close();  
\--end  
  
res =res .. buffer;  
return \#buffer;  
end  
end)

local i,j,k = c:perform();  
  
  
local rep=string.char(239, 187, 191);-- 防 utf标志开头 EF BB BF  
res =string.gsub(res,rep,'');  
if i == nil then  
return nil,j,k;  
else  
return res;  
end

return nil;  
end

在C:\\Users\\Administrator\\Desktop\\lua\\library\\util.lua

local M = \{\}  
\_G\[NAME\] = M  
function M.getFile(file\_name)  
local f = assert(io.open(file\_name, 'r'))  
local string = f:read("\*all")  
f:close()  
return string  
end

转载于:https://www.cnblogs.com/gd-luojialin/p/10962932.html