Jump to content
Sign in to follow this  

TCP & packets & WPE PRO

Recommended Posts

I start WPE PRO and then start logging process. Press button (macromedia flash game) in IE...

Then i get:

IP: (example)

Port: 3030

And Open socket ID: 2420

But if i do this actions again, Open socket ID will be another. How to detect it with AutoIT? I tried TCPRecv but always get socket 3 chars length (and WPE PRO always - 4)

Share this post

Link to post
Share on other sites

@Romm...Not sure if you already done so but did u look in the help file for all the TCP functions. They might be a good place to start.

Share this post

Link to post
Share on other sites

still need help

Example <= Found at TCPRecv

;SERVER!! Start Me First !!!!!!!!!!!!!!!

#include <GUIConstants.au3>

; Set Some reusable info

; Set your Public IP address (@IPAddress1) here.

Dim $szIPADDRESS = @IPAddress1

Dim $nPORT = 33891

; Start The TCP Services



; Create a Listening "SOCKET".

; Using your IP Address and Port 33891.


$MainSocket = TCPListen($szIPADDRESS, $nPORT)

; If the Socket creation fails, exit.

If $MainSocket = -1 Then Exit

; Create a GUI for messages


Dim $GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")",300,200)

Dim $edit = GUICtrlCreateEdit("",10,10,280,180)


; Initialize a variable to represent a connection


Dim $ConnectedSocket = -1

;Wait for and Accept a connection



$ConnectedSocket = TCPAccept($MainSocket)

Until $ConnectedSocket <> -1

; Get IP of client connecting

Dim $szIP_Accepted = SocketToIP($ConnectedSocket)

Dim $msg, $recv

; GUI Message Loop


While 1

$msg = GUIGetMsg()

; GUI Closed


If $msg = $GUI_EVENT_CLOSE Then ExitLoop

; Try to receive (up to) 2048 bytes


$recv = TCPRecv( $ConnectedSocket, 2048 )

; If the receive failed with @error then the socket has disconnected


If @error Then ExitLoop

; Update the edit control with what we have received


If $recv <> "" Then GUICtrlSetData($edit, _

$szIP_Accepted & " > " & $recv & @CRLF & GUICtrlRead($edit))


If $ConnectedSocket <> -1 Then TCPCloseSocket( $ConnectedSocket )


; Function to return IP Address from a connected socket.


Func SocketToIP($SHOCKET)

Local $sockaddr = DLLStructCreate("short;ushort;uint;char[8]")

Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$SHOCKET, _


If Not @error And $aRet[0] = 0 Then

$aRet = DLLCall("Ws2_32.dll","str","inet_ntoa","int",DLLStructGetData($sockaddr,3))

If Not @error Then $aRet = $aRet[0]


$aRet = 0


$sockaddr = 0

Return $aRet


Edited by GoodMan

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Create New...