[HELP]Winsock Functions, recv from(von) Process

uragan · 08/01/2011, 17:10

Hallo

Ich bauen grad einen TCP recv Script, um von einem Process die Packete zu empfangen. Habe hier ein bespiel server&client gebaut um packete zu simulieren. Diese Packete möchte ich nun per script empfangen. Nun bin ich grad am hängen. Hab da wenig erfahrung mit DLLCall und weiß nicht zu 100% ob das überhaupt möglich ist.

Hier der Server:

Spoiler

Code:

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

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

Example()

Func Example()
	; Set Some reusable info
	; Set your Public IP address (@IPAddress1) here.
;	Local $szServerPC = @ComputerName
;	Local $szIPADDRESS = TCPNameToIP($szServerPC)
	Local $szIPADDRESS = @IPAddress1
	Local $nPORT = 33891
	Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
	Local $msg, $recv

	; Start The TCP Services
	;==============================================
	TCPStartup()

	; 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
	;==============================================
	$GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")", 300, 200)
	$edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
	GUISetState()


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


	;Wait for and Accept a connection
	;==============================================
	Do
		$ConnectedSocket = TCPAccept($MainSocket)
	Until $ConnectedSocket <> -1


	; Get IP of client connecting
	$szIP_Accepted = SocketToIP($ConnectedSocket)

	; 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))
	WEnd


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

	TCPShutdown()
EndFunc   ;==>Example

; Function to return IP Address from a connected socket.
;----------------------------------------------------------------------
Func SocketToIP($SHOCKET)
	Local $sockaddr, $aRet

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

	$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
			"ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
	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]
	Else
		$aRet = 0
	EndIf

	$sockaddr = 0

	Return $aRet
EndFunc   ;==>SocketToIP

Der Client sendet automatisch jede Sekunde ein Packet

Spoiler

Der Hauptcode um das ganze zu empfangen:
Dies habe ich ein wenig umgeschrieben, von

Ich hoffe es macht keinem was aus, (natürlich danke dafür)

Spoiler

Wie gesagt, kenn mich mit dem DLLCall nicht ganz aus, bitte daher um hilfe
Danke

PS:
Sonstige Infos
recv Function

~~kknb~~ · 08/01/2011, 17:16

uragan · 08/01/2011, 19:42

sehr gut, danke
Das hilf mir ein wenig weiter
doch leider immer noch ohne erfolg

nehmen wir an, recv hat 4 einträge

Code:

int recv(
[COLOR="Red"]  __in   SOCKET s,[/COLOR]
[COLOR="SeaGreen"]  __out  char *buf,[/COLOR]
[COLOR="RoyalBlue"]  __in   int len,[/COLOR]
[COLOR="DarkOrange"]  __in   int flags[/COLOR]
);

Dann wir bei mir Dllcall so aussehen:

Code:

	
$sockaddr = DllStructCreate("char[256]")
$recv1 = DllCall($dll, "int", "recv", [COLOR="Red"]"int" , 520,[/COLOR] [COLOR="SeaGreen"]"ptr", $sockaddr, [/COLOR][COLOR="RoyalBlue"]"int", DllStructGetSize($sockaddr),[/COLOR] [COLOR="DarkOrange"]"int", 0[/COLOR])
$recv = DllStructGetData($sockaddr,1)
ToolTip($recv,1,1)

(das ganze ist natürlich in einer Schleife)

Den Socket (520) weiß ich immer noch nicht wie ich den rauslesen soll, dahen wurde dieser mit Hilfe von WPE Pro ermittelt und eingesetzt

Ich weiß jetzt immer noch nicht wo der fehler ist

Thema wurde vergesen oder weiß niemand mehr ein rat?