Jump to content

Concept Idea?


Johnny
 Share

Recommended Posts

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
Link to comment
Share on other sites

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

Link to comment
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
Link to comment
Share on other sites

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

Link to comment
Share on other sites

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
Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • 2 weeks later...
  • 3 months later...

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
Link to comment
Share on other sites

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
Link to comment
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..

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...