| 
                                    
                                    
                                    
                                    
                                    
                                    
                                    
                                     
                                        
                                     
                                    
                                        
                                        - 博士后
 
                                        
                                        - 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  
                        
                     
                    
                    
                    
                    
                    
                    
                    
                    
                        
                        
                     
                     |