Code archives/BlitzPlus Gui/File Viewer-Modification Checker

This code has been declared by its author to be Public Domain code.

Download source code

File Viewer-Modification Checker by Luke111
(Posted 18 years ago)
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