See if the following help:

* get the History folder name
CSIDL_HISTORY = 34  &&History Folder

DECLARE SHGetSpecialFolderPath IN SHELL32.DLL ;
      LONG hwndOwner, ;
      STRING @cSpecialFolderPath, ;
      LONG  nWhichFolder

cSpecialFolderPath = space(255)
=SHGetSpecialFolderPath(0, @cSpecialFolderPath, CSIDL_HISTORY)
cSpecialFolderPath=left(RTrim(cSpecialFolderPath), ;
                      Len(RTrim(cSpecialFolderPath))-1)
cSpecialFolderPath=ADDBS(cSpecialFolderPath)

* invoke files explorer
oShell = CreateObject("WScript.Shell")
=oShell.Run("explorer.exe "+cSpecialFolderPath)

* set the the window title, it may vary, so check it on the PC
INKEY(2)
lctitle1=LEFT(cSpecialFolderPath,LEN(cSpecialFolderPath)-1)
lctitle2=SUBSTR(lcTitle1, RAT("\",lctitle1)+1)

* activate the window to apply sendkey method. Keep in mind that key combination may vary, so make changes if needed.

if oShell.AppActivate(lctitle1) or;
			(not EMPTY(lctitle2) AND oShell.AppActivate(lctitle2))
	oShell.SendKeys("%(EA)")
	oShell.SendKeys("%(FD)")
	oShell.SendKeys("{ENTER}%(FC)")
ELSE
	=MESSAGEBOX("Unable to invoke History in Windows Explorer")
ENDIF

oShell =null
CLEAR dlls
RETURN

Best Wishes

>how i can clear a site history from my program?