Créer, lire et supprimer un cookie

Rubriques generale concernant SpiderBasic
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Créer, lire et supprimer un cookie

Message par falsam »

Trois procédures pour créer, lire et supprimer un cookie. L'occasion de montrer comment insérer du JavaScript dans un code SpiderBasic.

Code : Tout sélectionner

Procedure SetCookie(Name.s, Value.s)
  Protected Buffer.s = Name + "=" + Value 
  
  ! document.cookie = v_buffer;
EndProcedure

Procedure GetCookie(Name.s)
  ! var value = "; " + document.cookie;
  ! var parts = value.split("; " + v_name + "=");
  ! if (parts.length == 2) return parts.pop().split(";").shift();  
EndProcedure

Procedure RemoveCookie(Name.s)
  ! document.cookie = v_name + '=; Path=/; Expires=Thu, 01 Jan 1970 00:00:01 GMT;';
EndProcedure

SetCookie("soc", "12345")
SetCookie("name", "John Doe")
SetCookie("PHPSESSID", "0781d6ea840acd7c52186fd916a76705")

Debug GetCookie("PHPSESSID")
Debug GetCookie("soc")
Debug GetCookie("name")

RemoveCookie("soc")

Debug GetCookie("soc")
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%