Code archives/BlitzPlus Gui/File Viewer-Modification Checker
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
| Nanotech Industries Check(NT Check) v1.0.0 Product Update 0.0.1 Checks the user-specified file for modifications in bytes. This can be caused by remote use, viruses, and full computer hijacking. This is a very useful program. It is FREEWARE on code but YOU HAVE TO HAVE MY PERMISSION TO SELL AS A .EXE FILE It also loads the user-specified file for viewing for the user-specified time period In Seconds. It also does all of this when running with directories. This IS NOT RECCOMENDED FOR CONTINUALLY CHECKING THE "C:\" DRIVE | |||||
;Check http://nanotechindustries.spaces.live.com/ for New Products, and Product Updates
;NT Check 1.0.0
Print "___________________________"
Print "|NT Check 1.0.0 UP 0.0.1 |"
Print "|Nanotech Industries, 2009|"
Print "---------------------------"
AppTitle "NT Check 1.0.0"
.start
option1$=Input$("View | Check - ")
If option1$="View" Or option1$="view" Then
Goto loadbyte
EndIf
If option1$="Check" Or option1$="check" Then
Goto cbyte
EndIf
.loadbyte
filename$=Input$("Please Enter The Path, Filename, & Extension For The Viewing - ")
time$=Input$("Please Enter The Time To View The File In Seconds - ")
open=OpenFile(filename$)
Goto nxtload
.nxtload
Print ReadLine$(open)
If Eof(open)<>1 Then
Goto nxtload
EndIf
If Eof(open)=1 Then
Goto nxtload2
EndIf
.nxtload2
CloseFile(open)
Goto nxtload3
.nxtload3
Delay time$+"000"
End
.cbyte
filename2$=Input$("Please Enter The Path, Filename, & Extension For The File - ")
time2$=Input$("Please Enter The Time Between Checks For Modification In Seconds - ")
If FileType(filename2$)=0 Then
RuntimeError "Error: File Not Found"
EndIf
If FileType(filename2$)=1 Then
Print "File Found"
EndIf
If FileType(filename2$)=2 Then
Proceed("File Is A Directory. Proceed?",False)
EndIf
.nxtcbyte
orginsize$=FileSize(filename2$)
Print FileSize(filename2$)+" Bytes"
.nxtcbyte2
If FileSize(filename2$)<>orginsize$ Then
Print "File Has Been Modified"
Proceed("File Has Been Modified!",True)
Goto nxtcbyte
EndIf
If FileSize(filename2$)=orginsize$ Then
Print "File Not Modified"
Delay time2$+"000"
Goto nxtcbyte2
EndIf |
Comments
| ||
| LOL You know any code posted in the code archives is Public Domain by default... If you do not want it to be public domain, post it in another section of the forums. Also, that is a pretty simple bit of code for you to be so protective. Also, all you are doing is checking for file size change. You know, you could easily do a MD5 or CRC on the file and know if it changed, even if it is the same size, but the content changed... You could also check modified date/times... |
| ||
| "This is a very useful program." |
| ||
| ..Nice bump... |
Code Archives Forum
   |