Sign in to follow this  
Followers 0
Johnny

Concept Idea?

19 posts in this topic

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


http://www.ArabsforChrist.org - Missions to the Middle East

Share this post


Link to post
Share on other sites



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)


NEWHeader1.png

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

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 by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

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. :P

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


http://www.ArabsforChrist.org - Missions to the Middle East

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

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 by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

Thx a ton! :P

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 by Johnny

http://www.ArabsforChrist.org - Missions to the Middle East

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

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 by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

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

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


http://www.ArabsforChrist.org - Missions to the Middle East

Share this post


Link to post
Share on other sites

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


http://www.ArabsforChrist.org - Missions to the Middle East

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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. :D

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


http://www.ArabsforChrist.org - Missions to the Middle East

Share this post


Link to post
Share on other sites

#13 ·  Posted (edited)

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 by Volly

Share this post


Link to post
Share on other sites

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. :)


http://www.ArabsforChrist.org - Missions to the Middle East

Share this post


Link to post
Share on other sites

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 :)


Awaiting Diablo III..

Share this post


Link to post
Share on other sites

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? :)


http://www.ArabsforChrist.org - Missions to the Middle East

Share this post


Link to post
Share on other sites

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)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0