16-05-2012, 03:30 PM
il suddetto programma dovrebbe inviare bytes al client
Codice:
#RequireAdmin
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("#Connetti#", 204, 140, 360, 250)
$Button1 = GUICtrlCreateButton("Invia dato", 8, 8, 179, 17, 0)
$Edit1 = GUICtrlCreateEdit("", 8, 32, 177, 89)
GUICtrlSetData(-1, "Ricezione ..")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$FinNos = WinExists("NosTale")
$Porta_Nos = "4010"
$IP_Nostale = _GUICtrlIpAddress_Get($FinNos)
TCPStartup()
TCPConnect($IP_Nostale, $Porta_Nos)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
TCPSend($Ip_Nostale,inputbox("Codice","Quanti byte da inviare al client?",""))
EndSwitch
WEnd