- 按键认证大神
- 2699998
- 3587
- 11
- 2173 朵
- 7386 个
- 1021 个
- 91120
- 2014-08-23
|
1#
t
T
发表于 2023-10-16 11:40
|
|只看楼主
神梦HTTP请求插件 v1.0.0.0版 2023.10.12 \ |--功能 支持GET、POST、HEAD等HTTP协议请求 |--功能 支持构造请求协议头、请求Cookies |--功能 支持构造各种类型请求体(url、form、json) |--功能 支持解析JSON响应
| 插件预览演示例子插件例子- '【神梦HTTP请求插件 SmHTTP.dll 演示按键例子】
- '作者:神梦无痕
- 'QQ:1042207232
- 'Q群:624655641
- ' 导入插件
- Import "SmHTTP.dll"
- ' 创建插件对象
- Set SmHTTP = CreateObject("SMWH.SmHTTP")
- ' 插件版本号
- TracePrint "插件版本号:" & SmHTTP.Ver()
- TracePrint("**********************【神梦HTTP请求插件 SmHTTP.dll 演示按键例子】**********************")
- Dim user, pass, Data, Ret, Cookies, Headers
- ' 开启自动识别参数模式
- Call SmHTTP.SetAutoParamArray(True)
- user = "你的按键精灵论坛账号"
- pass = "你的按键精灵论坛密码"
- ' 登录论坛账号
- Data = SmHTTP.Data( _
- "username", user, _
- "password", pass, _
- "question", "0", _
- "answer", "", _
- "templateid", "0", _
- "login", "", _
- "expires", "43200" _
- )
- Ret = SmHTTP.HTTP_Request("POST", "http://bbs.anjian.com/login.aspx?referer=forumindex.aspx", Data)
- ' 判断是否登录成功
- If InStr(Ret, user) = 0 Then
- MsgBox "出错,登录失败!", 16 + 4096, "报错!"
- EndScript
- End If
- Cookies = SmHTTP.GetCookies()
- ' 打卡签到
- Data = SmHTTP.Data( _
- "signmessage", "签个到,每天心情都是美美哒~~按键精灵祝大家新年好运连连!!" _
- )
- Headers = SmHTTP.Headers( _
- "Referer", "http://bbs.anjian.com/" _
- )
- Ret = SmHTTP.HTTP_Request("POST", "http://bbs.anjian.com/addsignin.aspx?infloat=1&inajax=1",Data, Headers, Cookies)
- ' 判断是否签到成功
- If InStr(Ret, "恭喜您获取本日签到奖励") Or InStr(Ret, "你今天已经签到过了") Then
- TracePrint "恭喜,您已完成签到任务!"
- End If
复制代码 开源仓库- git clone git@github.com:SMWHff/SmHTTP.dll.git
复制代码 插件下载QQ 群号:624655641百度网盘: https://pan.baidu.com/s/1w7vuTuEyBchyvj5G1zdL1Q?pwd=y3rg提取码(回复可见): 提取码: y3rg
|