神梦HTTP请求插件【GET】【POST】【Heraders】【Cookies】【JSON】

神梦无痕

神梦HTTP请求插件 {:4_116:}
v1.0.0.0版 2023.10.12
\
|--功能 支持GET、POST、HEAD等HTTP协议请求
|--功能 支持构造请求协议头、请求Cookies
|--功能 支持构造各种类型请求体（url、form、json）
|--功能 支持解析JSON响应

插件预览

                               
登录/注册后可看大图

演示例子

                               
登录/注册后可看大图

插件例子

[按键精灵] 纯文本查看 复制代码

'【神梦HTTP请求插件 SmHTTP.dll 演示按键例子】
'作者：神梦无痕
'ＱＱ：1042207232
'Ｑ群：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

开源仓库

【开源】用 VB6 编写 COM 类型的神梦HTTP请求插件

1. git clone [email protected]:SMWHff/SmHTTP.dll.git

复制代码

插件下载
QQ 群号：624655641
百度网盘: https://pan.baidu.com/s/1w7vuTuEyBchyvj5G1zdL1Q?pwd=y3rg
提取码(回复可见)：
提取码: y3rg


SMWHff's 梦痕编程 - 神梦博客
https://smwhff.com

紫猫

感谢分享!

胖子

能出个视频教程吗

2056328195

能加上代理ip那些吗

li302892520

感谢大佬

回家吃饭

支持，想下载试一下

zhangcc

支持♪(^∇^*)