Click here to Skip to main content
Click here to Skip to main content

Find out what your friends/co-workers have been doing on the Internet!

, 23 Jul 2005
Rate this:
Please Sign up or sign in to vote.
Internet Explorer: INDEX.DAT files keep a list of websites you have visited, cookies received and files opened/downloaded. As a result anyone can find out what you have been doing on the Internet!

What is an Index.dat file?

Index.dat are files hidden on your computer that contain many of the Web sites that you have visited. Every URL and Web page is listed there. This script is for you, if internet privacy is an issue or you're just curious to see what surfing habits people have on your PC or Network. In WinXP, here's where you'll usually find them:

C:\Documents and Settings\<Username>\Local Settings\History\History.IE5\index.dat

How do these scripts work?

IE.vbs and IE_Network.vbs allow you to find, scan, view and erase all local/remote history index.dat files. Also, records precise URL visit time stamps. Scans are very fast and index.dat file parsing is done using 100% VBScript. Results are logged locally to C:\spy.htm or C:\Machine-MM-DD-YYYY.htm. For example:

It's free!

Yep, feel free to modify this script for whatever nefarious activities you like. It's amazing to see so many websites charging $24.95/$39.95 for bloated programs which basically function the same way as this script! If you like this script and it runs correctly, please feel free to email me. It'll give me a better idea on how it's functioning on your systems. Of course, any bugs can be tracked below in the message board section. Thanks!

Enjoy! (-_-)

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

cyber_flash

United States United States
No Biography provided

Comments and Discussions

 
Questiondoes it work on windows 7? PinmemberJustin039-Apr-12 21:32 
AnswerRe: does it work on windows 7? Pinmembercyber_flash10-Apr-12 11:10 
GeneralIE Spy online in Real Time! [modified] Pinmembercyber_flash20-Aug-09 6:23 
GeneralNew Download Url [modified] Pinmembercyber_flash27-Apr-09 17:35 
GeneralRe: New Download Url PinmemberRandy Price19-Aug-09 8:22 
GeneralRe: New Download Url Pinmembercyber_flash19-Aug-09 17:59 
GeneralGood script but a problem... Pinmemberandrea77714-Apr-09 22:24 
GeneralRe: Good script but a problem... Pinmemberkwood326-Aug-09 7:51 
GeneralDownload FireFox/IE scripts for Windows XP/VISTA! Pinmembercyber_flash12-Oct-07 18:59 
GeneralPermission denied errors PinmemberEggibba6-Sep-07 11:39 
GeneralRe: Permission denied errors Pinmembercyber_flash12-Oct-07 19:07 
Generalprinting pages count PinmemberThangaDharma6-Oct-05 8:25 
Generalsmall problem PinmemberTibor Blazko26-Jul-05 0:47 
Generalnonavhistory Pinmembersal2125-Jul-05 23:59 
hi all, i have this macro and 9118 record into sheet ABICAB. I have seen in my History link (Cronology of IE) the macro make for each record scanned a new ink!!!!!!!!!!! after onlly 6 minutes of macro run, i have 156 new link into history list acccccc..........Frown | :-(
 
Is possible to not store into history link all page visited with the macro?
 
Sub RICERCA_ABI_CAB()
 
Dim ie As Object
Dim lngRow As Long
Dim lngMaxRow As Long
Dim wksList As Worksheet
 
Set wksList = ActiveWorkbook.Worksheets("ABICAB")
Set ie = CreateObject("InternetExplorer.Application")
 
On Error GoTo errHandler
lngMaxRow = Range("A65536").End(xlUp).Row
With ie
.Visible = True
For lngRow = 2 To lngMaxRow
.navigate "http://www.bancaroma.it/abicab/index.asp", 2
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
 
If wksList.Cells(lngRow, 3).Value = "" Then
 
With .document.Forms(0)
'Abi
.ABI.Value = Range("A" & lngRow)
'Cab
.CAB.Value = Range("B" & lngRow)
.submit
 
Application.StatusBar = "Processing row " &
lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count
 

End With
Do While Not CBool(InStrB(1, .document.URL, "?
search"))
DoEvents
Loop
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
On Error Resume Next
'CONSIDERARE PRIMA CELLA COME POSISZIONE "ZERO"
Range("C" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(0).Cells(3).innerText)
Range("D" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(1).Cells(3).innerText)
Range("E" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(2).Cells(1).innerText)
Range("F" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(3).Cells(1).innerText)
Range("G" & lngRow) = Format(UCase(.document.all.tags
("table").Item(1).Rows(4).Cells(1).innerText), "#00000")
 
On Error GoTo errHandler
End If
Next lngRow
End With
 
errHandler:
ie.Quit
Set ie = Nothing
Exit Sub
 
ActiveWorkbook.Save
 
End Sub

GeneralGood Script. Thanks PinmemberGautam Jain23-Jul-05 1:03 
GeneralRe: Good Script. Thanks Pinmembercyber_flash23-Jul-05 2:23 
General1/20/2005 PinmemberJianping Yan23-Jan-05 10:04 
GeneralRe: 1/20/2005 Pinmembercyber_flash23-Jan-05 15:24 
GeneralRe: 1/20/2005 PinmemberJianping Yan23-Jan-05 15:46 
GeneralRe: 1/20/2005 Pinmembercyber_flash24-Jan-05 3:22 
GeneralFixed! 1/20/2005 Pinmembercyber_flash9-Aug-05 15:18 
GeneralExcellent Script ! PinmemberDusty202021-Jan-05 6:17 
GeneralRe: Excellent Script ! Pinmembercyber_flash21-Jan-05 9:03 
GeneralRe: Excellent Script ! PinmemberDusty202021-Jan-05 10:01 
GeneralDangerous ... Pinmembergoodmast3r13-Jan-05 22:20 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.141220.1 | Last Updated 23 Jul 2005
Article Copyright 2003 by cyber_flash
Everything else Copyright © CodeProject, 1999-2014
Layout: fixed | fluid