 | 3ad |
| | Posto qui un esercizio che non merita di essere nella sezione programmi  Comunque, è un programma che serve solo per cazzeggiare asd Lo schermo di chi apre il server, dopo la connessione con il client (reverse connection) diventa nero (o almeno dovrebbe :\) e sul pc su cui è runnato il client appare un edit dove quello che ci sarà scritto apparirà in verde sullo schermo del pc su cui è runnato il server, stile matrix *.* Vabbè, vi lascio al source di questa cagatona :Q SERVER: CODICE #include <WindowsConstants.au3>
#include <GUIConstants.au3>
;$IP=InputBox("IP","IP a cui collegarsi")
;_CONNECT($IP)
_CONNECT()
Func _CONNECT($IP=@IPAddress1)
TCPStartup()
Do
Global $SOCKET=TCPConnect($IP, 29102)
Until $SOCKET <> -1
_GUI()
EndFunc
Func _GUI()
Global $GUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0,BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
GUISetCursor(16, 1, $GUI)
GUISetState(@SW_SHOW, $GUI)
Global $EDIT=GUICtrlCreateEdit("", -1, -1, @DesktopWidth+2, @DesktopHeight+2,$WS_CLIPSIBLINGS)
GUICtrlSetFont(-1,20,5000,1,'Comic Sans MS')
GUICtrlSetState($EDIT, $GUI_FOCUS)
GUICtrlSetColor($EDIT,0x00FF00)
GUICtrlSetBkColor($EDIT,0x000000)
_MAIN()
EndFunc
Func _MAIN()
While 1
$RECV=TCPRecv($SOCKET, 2048)
If $RECV="EXIT" Then
TCPShutdown()
Exit
ElseIf $RECV="" Then
ContinueLoop
ElseIf StringLeft($RECV,3)="IP_" Then
$RSplit=StringSplit($RECV,"_")
_NEW($RSplit[2])
Else
GUICtrlSetData($EDIT, $RECV)
EndIf
WEnd
EndFunc
Func _NEW($IP)
GUIDelete($GUI)
GUIDelete($EDIT)
_CONNECT($IP)
EndFunc CLIENT: CODICE #include <WindowsConstants.au3>
#include <GUIConstants.au3>
_CONNECT()
Func _CONNECT()
TCPStartup()
$SOCKET=TCPListen(@IPAddress1, 29102)
Do
Global $ACCEPT=TCPAccept($SOCKET)
Until $ACCEPT <> -1
_GUI()
EndFunc
Func _GUI()
Global $GUI=GUICreate("RemoteMatrix[CLIENT]", 300, 200, -1, -1)
Global $EDIT=GUICtrlCreateEdit("", -1, -1, 250, 180)
Global $EXIT=GUICtrlCreateButton("EXIT", 250, 180, 50, 20)
Global $CLEAR=GUICtrlCreateButton("CLEAR", 250, 160, 50, 20)
GUISetState(@SW_SHOW, $GUI)
_MAIN()
EndFunc
Func _MAIN()
While 1
HotKeySet("{ESC}","_EXIT")
If GUIGetMsg()=$GUI_EVENT_CLOSE Then ExitLoop
If GUIGetMsg()=$EXIT Or GUICtrlRead($EDIT)="/EXIT" Then TCPSend($ACCEPT, "EXIT")
If GUIGetMsg()=$CLEAR Then GUICtrlSetData($EDIT, "")
If GUICtrlRead($EDIT)="" Then
TCPSend($ACCEPT, " ")
ElseIf StringLeft(GUICtrlRead($EDIT),1) <> "/" Then
TCPSend($ACCEPT, GUICtrlRead($EDIT))
EndIf
Sleep(200)
WEnd
EndFunc
Func _EXIT()
Exit
EndFunc PS: Utilizza la porta 29102. Bye. | | | |
| |
|
