Lagging when using TCP

[bf2forlife]

So always when i try to connect somewhere with TCP, my computer starts lagging, and then the program with TCP is not responding anymore. Where is the problem?

[SmOke_N]

So always when i try to connect somewhere with TCP, my computer starts lagging, and then the program with TCP is not responding anymore. Where is the problem?

Replace line 16 with

$myCode = "If I showed code, I would probably get an answer I understood"

[PsaltyDS]

Hi, I'm Mike Rowe, and THIS is my job...

Replace line 16 with

$myCode = "If I showed code, I would probably get an answer I understood"

Today on Dirty Jobs, I try my hand at being an AutoIt Forum Moderator!

[bf2forlife]

One more thing, it starts lagging when the TCPConnect($ip, $port) is before the TCPListen('127.0.0.1', $port), and when i put the TCPListen first, nothing happends. Can someone help?

[bf2forlife]

bump

[Jos]

bump

Which part of "first show your code before we can help you!" didn't you understand ?

[bf2forlife]

Of course.

expandcollapse popup

#include <GUIConstants.au3>
dim $appname = "TCP Sniffer"
Opt("GUIOnEventMode", 1)
GUICreate($appname, 830, 450)
$Edit1 = GUICtrlCreateInput ("",8,10,813,300)
$Edit2 = GUICtrlCreateInput ("To client",8,354,650,25)
$Edit3 = GUICtrlCreateInput ("To server",8,410,650,25)
$Button1 = GUICtrlCreateButton ("Send",670,354,150,25)
$Button2 = GUICtrlCreateButton ("Send",670,410,150,25)
GUISetState(@SW_SHOW)
; Start The TCP Services
;==============================================
TCPStartUp()

; Set Some reusable info
;--------------------------

Dim $szIPADDRESS = "62.50.35.181"
Dim $nPORT = 30001


; Initialize a variable to represent a connection
;==============================================
Dim $ConnectedSocket = -1


;Attempt to connect to SERVER at its IP and PORT 33891
;=======================================================

    $main_socket = TCPListen('127.0.0.1',30000)

    $clt_socket = TCPAccept($main_socket)


$string = "Connected to client" & @CRLF
GUICtrlSetData($Edit1, $string)

$ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT)


$string = "Connected to server" & @CRLF
GUICtrlSetData($Edit1, $string)
; If there is no error loop an inputbox for data
;   to send to the SERVER.
;Loop forever asking for data to send to the SERVER
; InputBox for data to transmit
        
; If they cancel the InputBox or leave it blank we exit our forever loop     
; We should have data in $szData... lets attempt to send it through our connected socket.
        While 1
                $Recv = TCPRecv($ConnectedSocket,1000)
        If $Recv  Then
            $string &= "[ToClient]:" & Hex($Recv) & @CRLF
            GUICtrlSetData($Edit1, $string)
        EndIf
        $msg = GUIGetMsg()
        Select
        Case $msg = $Button2
        TCPSend($ConnectedSocket,$Edit3)
        Case $msg = $Button1
        TCPSend($main_socket,$Edit2)
        EndSelect
        $Recv = TCPRecv($clt_socket,1000)
        If $Recv  Then
            $string &= "[ToServer]:" & Hex($Recv) & @CRLF
            GUICtrlSetData($Edit1, $string)
        EndIf
; If the send failed with @error then the socket has disconnected
;----------------------------------------------------------------
        If @error Then ExitLoop
    WEnd

TCPCloseSocket($ConnectedSocket)

[Kip]

;Attempt to connect to SERVER at its IP and PORT 33891
;=======================================================

    $main_socket = TCPListen('127.0.0.1',30000)

    $clt_socket = TCPAccept($main_socket)


$string = "Connected to client" & @CRLF
GUICtrlSetData($Edit1, $string)

$ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT)

TCPListen and TCPAccept are only used at the server side. I assume that this is the client script since you are trying to connect to the server.

[Jos]

I expect the TCPListen() waits till a connection is made to it ...right ?

[bf2forlife]

Im trying to log packets from client AND server, client with TCPListen and server with TCPConnect (dunno even if this works, if not, can u fix my script?). And ingore the "green texts" because i started this script with script from help file then modiflied a bit.

Edited May 31, 2008 by bf2forlife

[Jos]

If I understand you well you would like to Snif IP packets and then the answer is simple: Is not possible.

The command you use are used when you have a true session between 2 machines, not sniffing packages.

[bf2forlife]

But can you snif packets from website? or game? or maybe from some flash stuff?

[Jos]

But can you snif packets from website? or game? or maybe from some flash stuff?

I must have been writing in riddles for you.

look for something like "NetworkActivPIAFCTMv1.5.exe" to get what you want.

Jos

[bf2forlife]

Ok, thank you for that Jos, these autoit sniffers just dont work for me. I even tried sniffer directly from help file, but no, didnt work.

[Jos]

Ok, thank you for that Jos, these autoit sniffers just dont work for me. I even tried sniffer directly from help file, but no, didnt work.

I don't think there is any sniffer example in the helpfile, only Client-server type applications, for the simple fact that for Sniffing type operations you need to monitor at a lower level than the IP stack. Edited May 31, 2008 by Jos

[bf2forlife]

Well the example was TCPRecv()

[Jos]

Well the example was TCPRecv()

That is a SERVER example to which a client can connect.

[bf2forlife]