Problem with TCPReceive and Duration Time

[JohnRichard]

Hi to all. I have this script, a server which accepts 2 simultaneous connection from client. Client send data by tcpsend then server receives by tcpreceive. When server receives data, it will connect remotely using VNC. then i have the function which calculates the time spent until the VNC window closes. Server successfully receives first connection. My problem is, when the next PC client sends data while server is active on first connection, server could not accept the connection. It will accept the connection when the window for VNC has been closed.

any idea how to do it? basically i just want to calculate the time until VNC window closes. appreciate anyone's bright idea.

thank you. script is like this...

expandcollapse popup

#include <inet.au3>
#include <Constants.au3>
#include <GuiEdit.au3>
#include <GuiMenu.au3>
#include <WinAPI.au3>

Opt("TrayMenuMode", 1)
Opt("WinTitleMatchMode", 2)
Opt('MustDeclareVars', 0)
Opt("GUIOnEventMode", 1)

Global $CURRENT_SOCKET 
Global $CONNECTED_SOCKET[3]
Global $TCP_SERVER
Global $SPLIT, $RECV

$accept = TrayCreateItem("Accept")
TrayCreateItem("")
$close = TrayCreateItem("Close")

TraySetState()


While 1
    
$msg = TrayGetMsg()
    Select      
        Case $msg = $accept         
            Connect()           
        Case $msg = $close
            Close()
    EndSelect
    
    $CONNECTED_SOCKET[$CURRENT_SOCKET] = TCPAccept($TCP_SERVER)         
        If $CONNECTED_SOCKET[$CURRENT_SOCKET] <> -1 Then            
            
            $CURRENT_SOCKET += 1            
            
            If $CURRENT_SOCKET = 2 Then 
                
                TCPCloseSocket($TCP_SERVER)                 
                Sleep(100)
                MsgBox(64, "Warning!", "Full!")         
            EndIf
        EndIf       
         
    For $INDEX = 0 To 2
        
        $RECV = TCPRecv($CONNECTED_SOCKET[$INDEX],512)      
        If $RECV <> "" Then 
            
            $SPLIT = StringSplit($RECV, "|",0)          
            If IsArray($SPLIT) Then 
                Remote()
                Duration()          
            EndIf       
        EndIf
         
    Next    
Wend

Func Connect()  
    $TCP = TCPStartup()
    $TCP_SERVER = TCPListen(@IPAddress1,2000,16)    
    $CURRENT_SOCKET = 0 
ENdFunc


Func Duration()
    
    AutoItSetOption("WinTitleMatchMode", 4)
    Dim $h, $m, $s

    If WinExists("classname=rfb::win32::DesktopWindowClass", "") Then
        WinSetState("classname=rfb::win32::DesktopWindowClass", "", @SW_SHOWMINNOACTIVE)
    EndIf

    WinWait("classname=rfb::win32::DesktopWindowClass", "")
    $title = WinGetTitle("classname=rfb::win32::DesktopWindowClass")

    $start = _NowTime()
    $timer = TimerInit()

    WinWaitClose($title, "")    


    $timer = TimerDiff($timer)
    $end = _NowTime()

    _TicksToTime(Int($timer), $h, $m, $s)
;_TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs)
    $dur = StringFormat("%02i:%02i:%02i", $h, $m, $s)   

    Return ($start & "|" & $end & "|" & $dur)

EndFunc  ;==>VNCTime2


Func Remote()
    $PC = $SPLIT[2] 
    $VNC_Path = "C:\Program Files\RealVNC\VNC4\vncviewer.exe "
    $VNC_Dir = "C:\Program Files\RealVNC\VNC4\"
    If Not FileExists($VNC_Path) Then
        MsgBox(16, "Program Error", "WinVNC is not installed")
    Else
        Run($VNC_Path & $PC, $VNC_Dir)
    EndIf   
EndFunc


Func Close()    
    Exit
EndFunc

[martin]

I don't see why you shouldn't be able to receive anything with TCPAccept when VNC is running. I have a script which automatically start and stops UVNC and I check that UVNC is running using ProcessExists("winvnc.exe"). Maybe you could do something like that to decide when to start a timer or note the start time, and when to stop the timer or note the ending time.

[JohnRichard]

  martin said:

I don't see why you shouldn't be able to receive anything with TCPAccept when VNC is running. I have a script which automatically start and stops UVNC and I check that UVNC is running using ProcessExists("winvnc.exe"). Maybe you could do something like that to decide when to start a timer or note the start time, and when to stop the timer or note the ending time.

thanks martin for the reply. thats why i'm stuck to this. i cannot receive from client until only i close the VNC window. i'm thinking that Winwaitclose command. the script is waiting for that command to be finished so that i can receive data from client. i have tested to remove the Duration function which waits for the VNC window to close, and was successful to receive two simultaneous client connections.

i haven't tried to use the ProcessClose command, but i still have to issue ProcesswaitClose command for my script to detect that process has been closed. i am thinking to calcualte the time difference between the time started and time end. something like time start - time end but could not get any formula to calculate time difference in seconds and minutes...

any idea?

[JohnRichard]

  martin said:

I don't see why you shouldn't be able to receive anything with TCPAccept when VNC is running. I have a script which automatically start and stops UVNC and I check that UVNC is running using ProcessExists("winvnc.exe"). Maybe you could do something like that to decide when to start a timer or note the start time, and when to stop the timer or note the ending time.

hi martin. mind to share that script? thanks...

[quake101]

  On 6/1/2009 at 11:19 AM, 'JohnRichard said:

hi martin. mind to share that script? thanks...

I would also like to see this script if you don't mind.