PHP Code:
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
Example()
Func Example()
; Set Some reusable info
; Set your Public IP address (@IPAddress1) here.
; Local $szServerPC = @ComputerName
; Local $szIPADDRESS = TCPNameToIP($szServerPC)
Local $szIPADDRESS = @IPAddress1
;~ @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
$szIP_Accepted = SocketToIP($ConnectedSocket)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
$recv = TCPRecv($ConnectedSocket, 8192)
If @error Then ExitLoop
If $recv <> "" Then
GUICtrlSetData($edit, $szIP_Accepted&" > "&$recv&@CRLF&GUICtrlRead($edit))
IniWrite(@ScriptDir&"/Oukaresvtcp.ini", $recv)
EndIf
WEnd
If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)
TCPShutdown()
EndFunc
Func SocketToIP($SHOCKET) ; Function to return IP Address from a connected socket.
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
PHP Code:
Opt('MustDeclareVars', 1)
Example()
Func Example()
; Set Some reusable info
;--------------------------
Local $ConnectedSocket, $szData
; Set $szIPADDRESS to wherever the SERVER is. We will change a PC name into an IP Address
; Local $szServerPC = @ComputerName
; Local $szIPADDRESS = TCPNameToIP($szServerPC)
Local $szIPADDRESS = "xxx.xxx.xxx.xxx"
Local $nPORT = 33891
; Start The TCP Services
;==============================================
TCPStartup()
$ConnectedSocket = -1
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
If @error Then
MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error); If there is no error loop an inputbox for data to send to the SERVER.
Else
While 1;Loop forever asking for data to send to the SERVER
;~ $szData = InputBox("Data for Server", @LF & @LF & "Enter data to transmit to the SERVER:")
;~ If @error Or $szData = "" Then ExitLoop; If they cancel the InputBox or leave it blank we exit our forever loop
TCPSend($ConnectedSocket, FileRead(@ScriptDir&"/Oukatcp.ini")) ; We should have data in $szData... lets attempt to send it through our connected socket.
If @error Then ExitLoop ; If the send failed with @error then the socket has disconnected
sleep(5000)
WEnd
EndIf
EndFunc
ich hab das mit den scripts jetzt so realisiert und funktioniert einwandfrei, wie kann ich das jetzt hinkriegen das er nicht den neuen inhalt hinzufügt, sondern den alten überschreibt? Haste dafür ne lösung?
