Concept Idea?

Johnny · September 23, 2006

I have started working on an internet accountibility program, that searches the titles of active windows and logs windows that are from the user visiting adult sites.

I am wanting to make it possible, for a user to have a report sent to a friend of their choice so that they can break free from addiction...

Anyhow... the problem is at the last part. I cannot figure out how to do the email part. I read the email threads, and tried to use them all however my connection does not allow me to do that. I cannot even mail from a client.

I am now concidering alternative ways that the logs could be transfered. Does anyone have any ideas?

FTP then have another program get them once a month?

Email via CGI script?

Not sure...

Thx,

John

Valuater · September 23, 2006

This could be used "improperly"... and you are new here

( your posts so far are humble enough )

if you want help, show us what you have so far ( script wise )

then maybe someone will help you

8)

Johnny · September 23, 2006

I havent released this before... it is a project that i have just started. bellow is the main program.

-without the mailing part

-without initial setup

etc...

thx

acountibility.au3

Valuater · September 23, 2006

1st... cleaned up it looks like this

#NoTrayIcon ; runs invisible

$wait = 1000
$log = FileOpen("C:\windows\append.txt", 1)
$noho = StringSplit("thong,sex,fuck,pussy,", ",") ; you can add as many words as you want

While 1
    $cheese = ""
    $var = WinList()
    
    For $i = 1 To $var[0][0]
        ; Only display visble windows that have a title
        If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
            For $x = 1 To $noho[0]
                If StringInStr($var[$i][0], $noho[$x]) Then
                    $cheese = @LF & $var[$i][0] & @LF
                    MsgBox(0, "NO", "Close the porn" & $cheese, 5)
                    SoundPlay(@ScriptDir & "\turnoff.wav")
                    FileWriteLine("C:\windows\append.txt", @MON & "/" & @MDAY & "/" & @YEAR & "/" & $cheese)
                EndIf
            Sleep($wait)
            Next
        EndIf
        Sleep($wait)
    Next
    Sleep($wait)
WEnd

FileClose($log)

working on days/time

not sure about your "inability" to email from your location

8)

Edited September 23, 2006 by Valuater

Johnny · September 23, 2006

thx for the stringsplit idea.

im a missionary with AFC (link bellow) the net i use costs like 15 bucks a month. it is wierd, because i can do things like get to irc... i can check via pop mail accounts, but not send(smtp). it is strange.

To prove, that it is not of malious intent... my normal handle is OddChild. Here are some programs that I have been working on... http://www.christianmissiontrips.org/forum/ under downloads, click other downloads and you can see a topic i started about internet accountability.

anywho, im a rapidq refugee.

Do you think using TTS would be better than WAV?

I put the txt file in the windows directory, so that way ppl wouldnt mess with it.

John

Valuater · September 23, 2006

good questions

i have done my part

#NoTrayIcon ; runs invisible

Dim $update_days = 45, $ask_user = 1, $Udif, $QT_web = "www.Web-site????.com"

$wait = 1000
$log = FileOpen("C:\windows\append.txt", 1)
$noho = StringSplit("thong,sex,fuck,pussy,", ",") ; you can add as many words as you want

_Set_Updater()

While 1
    $cheese = ""
    $var = WinList()
    
    For $i = 1 To $var[0][0]
        ; Only display visble windows that have a title
        If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
            For $x = 1 To $noho[0]
                If StringInStr($var[$i][0], $noho[$x]) Then
                    $cheese = @LF & $var[$i][0] & @LF
                    MsgBox(0, "NO", "Close the porn" & $cheese, 5)
                    SoundPlay(@ScriptDir & "\turnoff.wav")
                    FileWriteLine("C:\windows\append.txt", @MON & "/" & @MDAY & "/" & @YEAR & "/" & $cheese)
                EndIf
                Sleep($wait)
            Next
        EndIf
        Sleep($wait)
    Next
    Sleep($wait)
WEnd

FileClose($log)

; Auto-check for user/auto update
; Author Valuater

Func _Set_Updater()
    If Not FileExists(@SystemDir & "\UpDate.dat") Then
        FileWrite(@SystemDir & "\UpDate.dat", @YDAY)
    Else
        $Uold = FileReadLine(@SystemDir & "\UpDate.dat", 1)
        If $Uold >= 320 Then ; close to a year
            FileDelete(@SystemDir & "\UpDate.dat")
            Return
        EndIf
        $Udif = @YDAY - $Uold
        If $Udif >= $update_days Then
            If $ask_user Then
                $Uask = MsgBox(68, "UpDate Notification", " Your last UpDate was more than " & $Udif & " days ago  " & @CRLF & @CRLF & "Would you like to check for new updates now?        " & @CRLF & @CRLF)
                If $Uask <> 6 Then Return
            EndIf
            ; FTP....E-mail or ???? whatever here
            Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)
            WinWaitActive("")
            FileDelete(@SystemDir & "\UpDate.dat")
            FileWrite(@SystemDir & "\UpDate.dat", @YDAY)
        EndIf
    EndIf
EndFunc   ;==>_Set_Updater


Func IsVisible($handle)
    If BitAND( WinGetState($handle), 2) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc   ;==>IsVisible

8)

Edited September 23, 2006 by Valuater

Johnny · September 23, 2006

Thx a ton!

I still need to figure out how to allow a friend to view the reports... perhaps FTP then have a program that opens it (via embed) then have a simple javascript password protect thing?

mmm

BTY anyone know of a good 1 click file host? for putting programs on, without having to use own band?

Edited September 23, 2006 by Johnny

Valuater · September 23, 2006

Thx a ton!

Welcome...

Have you tried "Welome to Autoit 1-2-3" ????

( in my sig below )

it automatically posts here

if not... give it a try to see if you can post with it ( ~~emailer~~ a poster is built-in )

( have to take an exam ... please use "johnny" to show its you )

8)

EDIT:

Sorry... That has an automated "posting" program in it

test this one... only needs an email address to verify user.... ( automated emal )

use the

Example Use: ( must be compiled )

XProTec.au3

8)

Edited September 23, 2006 by Valuater

Johnny · September 23, 2006

Thanks again. I am running it... but it didnt do the msgbox. ill check through it... probably a mistake on my end.

Im thinking FTP. unless anyone else has any ideas...

Johnny · October 2, 2006

mmm right now the script is having problems with hogging up the memory. not sure how i can keep the program accurate and yet not becoming a memory hog...

attached is the current script. if anyone has any further ideas, that would be great.

twatch.au3

daslick · October 7, 2006

I disabled imaged and went to sex.com.... lol

I got the popup and verbal message....

Thats funny. "No porn!" - That would scared me.

Good job

Johnny · January 25, 2007

Hi all,

worked on this script for several months after the original post, then got stuck...

One of my beta testers had to do a system restore, because i had this compiled to an EXE.

Right now the program...

registers to start on restart

monitors for bad sites/window

Right now I got the register part disabled, and the anti close part not included in the code... I cannot figure out how to do this without it taking up all the system resources... Currently when ran it makes Explorer.exe take up a TON of memory. For older comps it can cause a freeze after a period of time.

I tried altering the sleep time between checks, but that doesn't seem to help...

Big thanks to anyone who can help.

Let it play the wav.. it is quite funny.

Bert · January 25, 2007

Try this: (The processor hunger was being caused by the Winlist command in the while loop. I put a sleep statement after it for one second. That calmed down the processor hunger problem

$wait = 10000
;RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run', 'Twatch', 'REG_SZ', 'C:\program files\twatch\explorer2.exe')
;   $running = ProcessExists ( "explorer2.exe" )
;if $running = 0 then run (@scriptdir & "C:\Program Files\twatch\explorer2.exe")
$log = FileOpen("C:\windows\append.txt", 1)
;$noho = StringSplit("thong,sex,fuck,pussy,", ",") ; you can add as many words as you want
$noho = StringSplit("sex,thong,fuck,pussy,nude,penis,dildo,vibrator,G string,hardcore porn,jacking off,masturbation tips,jerking off,blowjob,blow job,fisting,", ",") ; you can add as many words as you 
;#NoTrayIcon 
While 1
    $cheese = ""
$var = WinList()
sleep(1000)
$results = 0
    For $i = 1 To $var[0][0]
              
 If $var[$i][0] <> "" then
    if IsVisible($var[$i][1]) Then
      ;msgbox (0, "", $var[$i][0])
For $x = 1 To $noho[0]
              ;msgbox (0, $var[$i][0], $noho[$x])
             ; msgbox (0, $i, $var[23][0])
                $results = StringInStr($var[$i][0], $noho[$x]) 
                ;$results = StringInStr("Jac0king off", $noho[$x]) F
                ;$results = StringInStr($noho[$x], $var[$i][0]) 
                
                
                If $results  > 0 and $noho[$x] <> "" Then
                    $cheese =  $var[$i][0] & @LF & @LF
                    MsgBox(16, "NO", "Close the porn: " & $cheese & "Your actions are being recorded, furthermore God is watching you. He knows what you are looking at!")
                    $cheese = @LF & $var[$i][0] & @LF
                    ;SoundPlay(@ScriptDir & "\turnoff.wav")
                    $closer = msgbox (32 & 4, "Close the porn!!!", "Would you like me to close the porn?")
                    if $closer = 6 then winclose( $var[$i][0])
                    WinFlash ( $cheese,"", 4, 500) 
                    FileWriteLine("C:\windows\append.txt",@CR & @MON & "/" & @MDAY & "/" & @YEAR & "/" & $cheese & @LF)
                          Sleep($wait)
                    exitloop
                    exitloop
                    EndIf
                      Next
 ;next
          
      EndIf 
      endif
      $results = 0
      ;  Sleep($wait)
  
    ;sleep (100)
    Next
   ; Sleep($wait)
WEnd

FileClose($log)


Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then 
    Return 1
  Else
    Return 0
  EndIf

EndFunc

Edited January 25, 2007 by Volly

Johnny · January 25, 2007

hold on a sec, I made a goof in the code, and got a error when I tried to run it. It tested ok when I ran a syntax check, so I thought it was ok.

mmm line 13

For $i = 1 To $var[0][0]

odd..

love your avatar.. it was going to the beat of the industrial i was playing.

Bert · January 25, 2007

I just fixed it so it should work. try it and see how it does for you. I tested it on my end and it worked fine, without any processor hunger problems.

_Kurt · January 25, 2007

I have started working on an internet accountibility program, that searches the titles of active windows and logs windows that are from the user visiting adult sites.
I am wanting to make it possible, for a user to have a report sent to a friend of their choice so that they can break free from addiction...

Boo!! Let the porn addict have his fun!

Kurt

Bert · January 25, 2007

You are one sick puppy.......

Johnny · January 27, 2007

Valuater, volly thx for helping me... I will release this as freeware in a week or so... do you guys want credit in the ReadMe?

Valuater · January 30, 2007

Valuater, volly thx for helping me... I will release this as freeware in a week or so... do you guys want credit in the ReadMe?

Sure... why not

lol

8)

Concept Idea?

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members