9zhmke

把批处理放到收藏夹里很方便，但出来总有个黑框，如果用VBS写就好了，我半抄半做了一个但效果不好，为什么删不掉cookies呢？

dim fso, ws, Objectfs
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
Set Objectfs = CreateObject("Scripting.FileSystemObject")
If Objectfs.FileExists("D:\我的文档\系统设置\上网印记\*dp168*.txt") Then
        fso.DeleteFile("D:\我的文档\系统设置\上网印记\*dp168*.txt")
Else
        If Objectfs.FileExists("C:\Documents and Settings\Administrator\Cookies\*dp168*.txt") Then
                fso.DeleteFile("C:\Documents and Settings\Administrator\Cookies\*dp168*.txt")
        End If
End If
set fso=nothing
set ws=nothing

rem createobject("scripting.filesystemobject").getfile("D:\我的文档\系统设置\上网印记\*dp168*.txt").delete

user = "未注册用户"
pass = "12345678"
strURL = "http://bbs.dp168.com/logging.php?action=login&loginsubmit=true&cookietime=66666&username=" & user & "&password=" & pass & ""  
Set objShell = CreateObject("Wscript.Shell")  
objShell.Run(strURL)