webbrowser里怎么清除session 或者说清除cokkie也行。我已经在某论坛登陆,怎么写代码才能清掉这个登陆信息,以便重新登陆 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 session 保存在服务器端,cokkie 保存在客户端,简单点 直接清空浏览器指定保存cokkie目录 清除COOKIE cookie 一般保存在ie临时目录里C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Filescookie文件名形如 Cookie:[email protected]/你找到相关的文件删了就可以,,, 这个容易呀//==============================================================================// 查找COOKIES目录//==============================================================================function GetCookiesFolder:string;var pidl:pItemIDList; buffer:array [ 0..255 ] of char ;begin SHGetSpecialFolderLocation(application.Handle , CSIDL_COOKIES, pidl); SHGetPathFromIDList(pidl, buffer); result:=strpas(buffer);end;//==============================================================================// 删除上面查找出的目录文件//==============================================================================function ShellDeleteFile(sFileName: string): Boolean;var FOS: TSHFileOpStruct;begin FillChar(FOS, SizeOf(FOS), 0); {记录清零} with FOS do begin wFunc := FO_DELETE;//删除 pFrom := PChar(sFileName); fFlags := FOF_NOCONFIRMATION; end; Result := (SHFileOperation(FOS) = 0);end; //==============================================================================// 清除COOKIES//============================================================================== procedure DelCookie; var dir:string; begin try InternetSetOption(nil, INTERNET_OPTION_END_BROWSER_SESSION, nil, 0); dir:=GetCookiesFolder; ShellDeleteFile(dir+'\*.txt'+#0); except abort; end;end; 【庆祝贴】庆祝接分生娃开宝马变大猩猩,哈哈 如何在一个窗体按查询条件查询结果显示在另一个窗体,而查询窗体自动消失?我是菜鸟,求救!谢谢啦! 问一个接口继承的问题 一会去答辩~~散分~ 请教对一个图象差分算法怎么做啊! 删除本人回复的大版出来!!!!!!!! 各位兄弟,帮帮手呀. 应用服务器执行客户端请求,为什么总是串行的? delphi 中的报表问题,小小问题,来者不拒!!!!! delphi 预约时间 多线程ADO插入数据表问题,高手进,在线急等之 快疯了!!!在StringGrid上生成panel产生的问题
cokkie 保存在客户端,简单点 直接清空浏览器指定保存cokkie目录
cookie 一般保存在ie临时目录里
C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Filescookie文件名形如 Cookie:[email protected]/你找到相关的文件删了就可以,,,
//==============================================================================
// 查找COOKIES目录
//==============================================================================function GetCookiesFolder:string;
var
pidl:pItemIDList;
buffer:array [ 0..255 ] of char ;
begin
SHGetSpecialFolderLocation(application.Handle , CSIDL_COOKIES, pidl);
SHGetPathFromIDList(pidl, buffer);
result:=strpas(buffer);
end;
//==============================================================================
// 删除上面查找出的目录文件
//==============================================================================function ShellDeleteFile(sFileName: string): Boolean;
var
FOS: TSHFileOpStruct;
begin
FillChar(FOS, SizeOf(FOS), 0); {记录清零}
with FOS do
begin
wFunc := FO_DELETE;//删除
pFrom := PChar(sFileName);
fFlags := FOF_NOCONFIRMATION;
end;
Result := (SHFileOperation(FOS) = 0);
end; //==============================================================================
// 清除COOKIES
//==============================================================================
procedure DelCookie;
var
dir:string;
begin
try
InternetSetOption(nil, INTERNET_OPTION_END_BROWSER_SESSION, nil, 0);
dir:=GetCookiesFolder;
ShellDeleteFile(dir+'\*.txt'+#0);
except
abort;
end;
end;