クッキーの削除をしたい。

ばんぶー 2004-01-11 11:49:36 No: 81389 IP: [192.*.*.*]

初めまして、こんにちわ。実は、

ツール→インターネットオプション→クッキーの削除

をワンクリックで一発削除できる簡単なソフトを作りたい
のですが、いろいろと本を買ったりネットで探したりした
のですが、サンプルソース？みたいなものが全然みつからず
全く解りません。

ここで教えては頂けないでしょうか？＾＾；

編集削除

通りすがり 2004-01-11 19:37:01 No: 81390 IP: [192.*.*.*]

Private Const CSIDL_COOKIES = &H21
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
                        "SHGetPathFromIDListA" _
                        (ByVal pIDL As Long, _
                         ByVal pszPath As String) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32" _
                        (ByVal hWnd As Long, _
                         ByVal nFolder As Long, _
                         ppidl As Long) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" _
                                (ByVal hMem As Long)

Private Function GetCookiesFold() As String
    Dim lngResult As Long
    Dim lngIDList As Long
    Dim strBuffer As String * MAX_PATH

    lngResult = SHGetSpecialFolderLocation(0, _
                                           CSIDL_COOKIES, _
                                           lngIDList)
    If lngResult = 0 Then
        lngResult = SHGetPathFromIDList(lngIDList, strBuffer)
        Call CoTaskMemFree(lngIDList)

        GetCookiesFold = left$(strBuffer, InStr(strBuffer, vbNullChar) - 1)
    Else
        GetCookiesFold = vbNullString
    End If
End Function

この関数でクッキーのあるフォルダは取得できるんで、
その後はファイルを列挙して削除。
ってなもんでどうでしょう？

編集削除