【一只熊】cookies自动管理

一只熊

对于cookies的管理相信一直苦恼很多新手小白们

现在【一只熊】提供个cookies 自动管理的工具类给大家。让大家开发更方便

1. 
   
2. var cookies
   
3. //获取cookies的正则语句: "Set-Cookie[^.]*?[^;];"  
   
4. //如果存在则更新，不存在则添加
   
5. function CookiesManager_setCookie(head)
   
6.     //cookie=""
   
7.     if(head!="")
   
8.         var setCookie=regexmatchtext(head,"Set-Cookie[^.]*?[^;];",false,true,true,false)
   
9.         if(setCookie !=null && setCookie!="")
   
10.             var n = arraysize(setCookie)   //条件1
    
11.             if(n!=-1 && setCookie[0]!="")
    
12.                 for(var i = 0; i < n; i++)
    
13.                     var cookie=string_mid(setCookie[i],"Set-Cookie:",";")
    
14.                     var cookie_key=string_mid(cookie," ","=")
    
15.                     var pos=strfind(cookies,cookie_key)
    
16.                     if(pos!=-1)
    
17.                         cookies=strreplace(cookies,cookie_key&"="&string_mid(cookies,cookie_key,";"),cookie)
    
18.                     else
    
19.                         cookies=cookies&cookie&";"
    
20.                     end
    
21.                 end
    
22.             end
    
23.         end
    
24.     end
    
25. end
    

复制代码

字符串取中间信息方法string_mid，CookiesManager_setCookie 中有用到

1. 
   
2. //取两个字符串中间的信息
   
3. //参数1:源字符串
   
4. //参数2:要取的部分所在开头的字符串
   
5. //参数3:结束部分字符,默认为空,表示到到结尾
   
6. function string_mid(source,startStr,endStr)
   
7.     var startpos
   
8.     var endpos
   
9.     var temp
   
10.     if(startpos=="")
    
11.         startpos=0
    
12.     else
    
13.         startpos=strfind(source,startStr)
    
14.         
    
15.     end
    
16.     temp=strsub(source,startpos+strlen(startStr),strlen(source))
    
17.    
    
18.     if(endStr=="")
    
19.         endpos=strlen(temp)
    
20.     else
    
21.         endpos=strfind(temp,endStr)
    
22.     end
    
23.    
    
24.     if(startpos==-1 || endpos==-1)
    
25.         return ""
    
26.     end
    
27.     var ret=strsub(temp,0,endpos)
    
28.     return ret
    
29. end
    

复制代码

一只熊

好帖希望大家顶，有问题也可以回帖提问

donggua11

你好，我用tc7.0编译时出现> function CookiesManager_setCookie(head)，错误信息:函数定义中,不能识别的语法定义 。还想请教一下如何用tc设置ie的Cookie，谢谢。

一只熊

donggua11 发表于 2017-12-22 21:58
你好，我用tc7.0编译时出现> function CookiesManager_setCookie(head)，错误信息:函数定义中,不能识别的语 ...

tc貌似没提供设置iecookies的方法，，可以直接调用js设置ie cookies

donggua11

谢谢

halong1000

一只熊 发表于 2017-12-25 13:58
tc貌似没提供设置iecookies的方法，，可以直接调用js设置ie cookies

我也是小白
TC用法：
dllcall("wininet.dll", "BOOL", "InternetSetCookieA", "char *", url地址, "char *", Cookie名字, "char *", cookies数据)


微软帮助文档如下：
InternetSetCookieA function
12/05/2018
2 minutes to read
Creates a cookie associated with the specified URL.

Syntax
C++

Copy
BOOLAPI InternetSetCookieA(
  LPCSTR lpszUrl,
  LPCSTR lpszCookieName,
  LPCSTR lpszCookieData
);
Parameters
lpszUrl

Pointer to a null-terminated string that specifies the URL for which the cookie should be set.

lpszCookieName

Pointer to a null-terminated string that specifies the name to be associated with the cookie data. If this parameter is NULL, no name is associated with the cookie.

lpszCookieData

Pointer to the actual data to be associated with the URL.