پاك كردن history اينترنت اكسپلورر در ويژوال بيسيك

[rezasanta]

سلام
2 تا سوال تو اين انجمن پرسيدم ولي يكي رو كه اصلا هيچ كس جواب نداد اون يكي هم جواب درست و حسابي نبود...
حالا خواهش ميكنم اين يكي رو لا اقل يك جواب درست و حسابي بديد

در وبژوال بيسيك چجوري ميشه با زدن 1 دكمه (كامند باتن) history اينترنت اكپلورر رو (البته ترجيحا مثلا فقط صفحاتي كه امروز مرور شده اند ) رو پاك كرد.
تورو خدا كمك كنين فوريه.

[saeedvir]

سلام:


Private Declare Function GetUserName _
Lib "advapi32.dll" Alias "GetUserNameW" ( _
ByVal lpBuffer As Long, _
ByRef nSize As Long) As Long

Private Declare Function SHGetSpecialFolderPath _
Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" ( _
ByVal hwnd As Long, _
ByVal pszPath As String, _
ByVal csidl As Long, _
ByVal fCreate As Long) As Long

Private Const CSIDL_COOKIES As Long = &H21

msg = MsgBox("Do You Want Clear Cookies Now ?" + vbCrLf + "- This work Clear All Password And History !" + vbCrLf + _
"- That may later Browse Webs", vbExclamation + vbYesNo, "Clear History")
If msg = vbYes Then
Dim sPath As String
sPath = Space(260)
Call SHGetSpecialFolderPath(0, sPath, CSIDL_COOKIES, False)
sPath = Left$(sPath, InStr(sPath, vbNullChar) - 1) & "\*.txt*"
On Error Resume Next
Kill sPath
End If

[rezasanta]

سلام
خيلي ممنون بابت كدي كه قرار داديد
اولش كه همه كد رو داخل كامند باتن ريختم تو كامپايل ارور داد ولي بعد كه اين قسمت:


Private Declare Function GetUserName _
Lib "advapi32.dll" Alias "GetUserNameW" ( _
ByVal lpBuffer As Long, _
ByRef nSize As Long) As Long

Private Declare Function SHGetSpecialFolderPath _
Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" ( _
ByVal hwnd As Long, _
ByVal pszPath As String, _
ByVal csidl As Long, _
ByVal fCreate As Long) As Long

Private Const CSIDL_COOKIES As Long = &H21



داخل بخش جنرال گذاشتم مشكل كامپايل حل شد و برنامه اجرا شد.
فقط مشكلي كه دارم اينه كه اصلا history رو پاك نميكنه!!!
يعني كامند باتن رو كه ميزنم سوال رو ميپرسه بعد yes رو كه ميزنم هيچ اتفاقي براي history نمي افتد و ليست سايتهايي كه بهشون مراجعه كردم هنوز هم در آدرس بار وجود دارند

اگر ممكنه يك راهنمايي بفرماييد

[saeedvir]

با این دستوراتی که من دادم برنامه میره فایل ها txt آدرس زیر را پاک میکنه :

C:\Documents and Settings\saeed\Cookies

saeed : نام کاربری شما

[rezasanta]

سلام
ممنون
راستش من نميخوام كوكي ها رو پاك كنم ميخوام history اينترنت اكسپلورر رو پاك كنم
يعني ليست سايتهايي كه مشاهده شده از طريق اينترنت

اگر راهنمايي كنين لطف ميكنين