CURL是 URL命令行工具, 即 command URL, 可以通过命令行模拟各种应用协议的发包, 包括FTP HTTP HTTPS,

官方网站

http://curl.haxx.se/

luacurl
lua curl是基于curl的库libcurl

http://curl.haxx.se/libcurl/

针对libcurl开放的API

http://curl.haxx.se/libcurl/c/

, 定义lua API对curl基本功能进行封装。

luauser中列出来3中绑定libcurl的lua封装库

http://lua-users.org/wiki/LuaCurl

其中freepops-luacurl

http://www.freepops.org/en/

实现了libcurl所有的easy 接口

http://curl.haxx.se/libcurl/c/libcurl-easy.html

luaforge上提供一个 windows 上可运行luacurl的压缩包

http://files.luaforge.net/releases/luacurl/freepops-luacurl/0.3.0
freepops-lua-curl-binary-win32-openssl

本文示例就采用这个windows可运行包。

解压后, cmd命令行cd到解压目录,使用 luaxx.exe yy.lua 接口运行示例脚本。

示例
例子,实现https方式,登录网站,访问某个网页,修改其中参数的功能。其中xx应用时候需要修改。

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
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")

作者:LightSong
出处:http://www.cnblogs.com/lightsong/
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利