Hi, Leute ich hab mal wieder eine Frage... Wie kann ich bei dieser MsgBox per TCP den Text verändern???
Ist nur ein Testskript damit ich bei meinem "wirklichen" Projekt weiter komme.... möchte mal probiern ob ich nen verngesteuerten Task-Mgr hinbekomme
LINIE 75
Spoiler anzeigen
LINIE 75
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <String.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit];==============================================
;==============================================
;SERVER!! Start Me First !!!!!!!!!!!!!!!
;==============================================
;==============================================
; Initialize a variable to represent a connection
;==============================================
Global $ConnectedSocket = -1
Global $MainSocket
[/autoit] [autoit][/autoit] [autoit]Example()
[/autoit] [autoit][/autoit] [autoit]Func Example()
Local $g_IP, $RogueSocket, $GOOEY, $edit, $input, $butt, $msg
Local $ret, $recv
$g_IP = @IPAddress1
; Start The TCP Services
;==============================================
TCPStartup()
; Create a Listening "SOCKET"
;==============================================
$MainSocket = TCPListen($g_IP, 33891, 100)
If $MainSocket = -1 Then Exit
$RogueSocket = -1
; GUI Message Loop
;==============================================
While 1
If $RogueSocket > 0 Then
$recv = TCPRecv($RogueSocket, 512)
If Not @error Then
TCPCloseSocket($RogueSocket)
$RogueSocket = -1
EndIf
EndIf
; If no connection look for one
;--------------------
If $ConnectedSocket = -1 Then
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket < 0 Then
$ConnectedSocket = -1
Else
MsgBox(1,"","Connected with a Client")
EndIf
; If connected try to read some data
;--------------------
Else
; EXECUTE AN UNCONDITIONAL ACCEPT IN CASE ANOTHER CLIENT TRIES TO CONNECT
;----------------------------------------------------------------
$RogueSocket = TCPAccept($MainSocket)
If $RogueSocket > 0 Then
TCPSend($RogueSocket, "~~rejected")
EndIf
$recv = TCPRecv($ConnectedSocket, 512)
[/autoit] [autoit][/autoit] [autoit]If StringInStr($recv,"> test") Then
MsgBox(64,"TEST","TEST")
ElseIf StringInStr($recv,"> hoho") Then
MsgBox(1,"TEST1","TEXT") ;; <--- WIE KANN ICH DEN TEXT DIESER MSGBOX PER TCP ÄNDERN????
ElseIf @error Or $recv = "~~bye" Then
; ERROR OCCURRED, CLOSE SOCKET AND RESET ConnectedSocket to -1
;----------------------------------------------------------------
WinSetTitle($GOOEY, "", "my server - Client Disconnected")
TCPCloseSocket($ConnectedSocket)
$ConnectedSocket = -1
EndIf
EndIf
WEnd
EndFunc ;==>Example
Func OnAutoItExit()
;ON SCRIPT EXIT close opened sockets and shutdown TCP service
;----------------------------------------------------------------------
If $ConnectedSocket > -1 Then
TCPSend($ConnectedSocket, "~~bye")
Sleep(2000)
TCPRecv($ConnectedSocket, 512)
TCPCloseSocket($ConnectedSocket)
EndIf
TCPCloseSocket($MainSocket)
TCPShutdown()
EndFunc ;==>OnAutoItExit