need some help pls.

[as5bcr]

hello. i need some tips on making a program that can view what processes are running on a remote computer. i want to monitor my son from my computer. i just want a simple client-server program, that can show me the active processes.

[BigDod]

You could script something using PSTools which is available at http://www.microsoft.com/technet/sysintern...ng/PsTools.mspx

[Immensee]

wow, so you want a spying program,

NICE!!!!

very smart, coz children nowadays (not me though) are very...

but if ur spying on your son, isn't that breaking a law?

ill help you,

hmm let me think

you will need the following things:

a code to start your code up when computer gets online
a continiously code that (if your son is online) sends things to check if the server is online (your computer)
a way to perfectly hide your program, or restart if closed.

quite hard actually,

im gonna try to make it now..

-me

edit:

i've researched a bit, and what you first need is to startup a UDP server.

UDPStartup()

Edited January 29, 2007 by Immense

[as5bcr]

ok, thanks a lot.

[Immensee]

Mmmm, creating a connection between server and client is new for me...

i can't have it done, i thought it was easier...

well, here's my progress:

expandcollapse popup

;;Server
;;  Includes
#include    <GUIConstants.au3>
#include    <INet.au3>

;;  The Setup of this program
$title      =   "Spy Server";;Your Title (variable)
$width      =   500             ;;Your wanted width-size (var)
$height     =   400             ;;Your wanted height-size (var)
$handle     =   GUICreate($title, $width, $height);;Create the GUI with the var's
$ChildIp    =   _GetIP();"127.0.0.1" or anything
$ChildPort  =   "65432";; Your port

;;Controls
GUISetFont(11, 600 , 6);;Set the fontsize into 11, 'depth'=600 and extra's: italic(2)+underlined(4)
$control1   =   GUICtrlCreateLabel($title, 10, 10)

GUISetFont(9, 400, 0);;Set the fontsize into 9(default), 'depth'=400(default) and no extra's
$control2   =   GUICtrlCreateLabel("Server Status: ", 10, 30)

GUISetFont(9, 400, 0);;Set the fontsize into 9(default), 'depth'=400(default) and no extra's
$control3   =   GUICtrlCreateLabel("Not Created", 150, 30, $width)

GUISetFont(9, 400, 0);;Set the fontsize into 9(default), 'depth'=400(default) and no extra's
$control4   =   GUICtrlCreateLabel("Connection to Client: ", 10, 45)

GUISetFont(9, 400, 0);;Set the fontsize into 9(default), 'depth'=400(default) and no extra's
$control5   =   GUICtrlCreateLabel("Not Connected", 150, 45, $width)

$control6   =   GUICtrlCreateEdit("No data has been sended.", 10, $height/3, $width-20, $height/3*2-10, $ES_READONLY)
GUISetState(@SW_SHOW, $handle);;Sets the state of a certain GUI, in this case, reveal the GUI

;;The loop, to constantly check events.
While 1
    
;;Start Creating Network Connection (UDP)
    If Not UDPStartup() = 0 Then
        GUICtrlSetData($control3, "Created and Running")
        
    ;;Connection Succes, creating socket
        $UDP    =   UDPBind($ChildIp, $ChildPort)
        If Not $UDP = -1 Then
            GUICtrlSetData($control5, "Client Founded -- Connected")
            
            $data   =   UDPRecv($UDP[1], 2000)
            
            If $data    =   ""  Then
                GUICtrlSetData($control6, "No data has been sended.")
            Else
                GUICtrlSetData($control6, $data)
            EndIf
        Else
            GUICtrlSetData($control5, "Error -- Unable to connect to client")
        EndIf
    Else
        GUICtrlSetData($control3, "Error -- Unable to create connection")
    EndIf
    
    $event  =   GUIGetMsg();;Event caller
    
        Select
            Case $event = $GUI_EVENT_CLOSE
            ;;The event if somebody closes the screen.
                ExitLoop
        EndSelect
    
;; Close UDP
    UDPShutdown()
WEnd
    
Exit

expandcollapse popup

;;Client
;;  Includes
#include    <GUIConstants.au3>
#include    <INet.au3>

;;  The Setup of this program
$title  =   "Spy Client";;Your Title (variable)
$width  =   500             ;;Your wanted width-size (var)
$height =   400             ;;Your wanted height-size (var)
;$handle    =   GUICreate($title, $width, $height);;Create the GUI with the var's
$myport =   "65432";or whatever


#cs following code not needed
;;Controls
GUISetFont(11, 600 , 6);;Set the fontsize into 11, 'depth'=600 and extra's: italic(2)+underlined(4)
$control1   =   GUICtrlCreateLabel($title, 10, 10)

GUISetFont(9, 400, 0);;Set the fontsize into 9(default), 'depth'=400(default) and no extra's
$control2   =   GUICtrlCreateLabel("Welcome to my just made setup!", 10, 30)

GUISetState(@SW_SHOW, $handle);;Sets the state of a certain GUI, in this case, reveal the GUI
#ce

;;The loop, to constantly check events.
While 1
    If Not UDPStartup() = 0 Then
    ;;UDP Services created, open a socket
        $UDP    =   UDPOpen(_GetIP(), $myport)  
        If Not $UDP = -1 Then
        ;;Opened a socket
            $result =   UDPSend($UDP[1], "text to send, testing!")
            
            If $result = 0 Then
                MsgBox(0, "asd", "failed!")
            EndIf
            
        EndIf
        
    EndIf
    
    $event  =   GUIGetMsg();;Event caller
    
        Select
            Case $event = $GUI_EVENT_CLOSE
            ;;The event if somebody closes the screen.
                ExitLoop
        EndSelect
    
UDPShutdown()
WEnd
    
Exit

note: this is just both beta, this won't ofcourse be the result.

- me

[Immensee]

nevermind... it seems that someone else was before me with some nifty tool.........