| 网络日志 |
vb6.0，killCookie
Private Sub killCookie()
Dim i As Long
Dim strCookies() As String, strCookie() As String
strCookies = Split(Me.WebBrowser1.Document.cookie, ";")
For i = 0 To UBound(strCookies)
strCookie = Split(strCookies(i), "=")
If UBound(strCookie) = 1 Then
InternetSetCookie Me.WebBrowser1.LocationURL, strCookie(0), ""
End If
Next
End Sub
阅读全文
|
编辑
|
删除
| 2010-10-14 22:22:42 by 海蓝港湾 |
|
[ 1 ]
|
| 档案文件 |
| 姓名： |
海蓝港湾 |
| 年龄： |
55 |
| 性别： |
男 |
| 职业： |
教师 |
| 位置： |
中国
山西
|
|
|
|
查看档案文件详细信息 |
|
