BlackDawn187 Posted July 4, 2009 Share Posted July 4, 2009 I dont plan on using GUI's with this as of now im taking baby steps in learning so help where you can. Server: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.0.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Host or Ip to Connect to $Server_IP = "127.0.0.1" $Server_Port = "65432" ; Start The TCP Services TCPStartup ( ) ; To start TCP services ; Time to Listen for Connections $MainSocket = TCPListen($Server_IP, $Server_Port, 100 ) If $MainSocket = -1 Then Exit ; Accept a Incoming Connection While 1 $ConnectedSocket = TCPAccept( $MainSocket) If $ConnectedSocket >= 0 Then $ClientIp = @IpAddress1 msgbox(0,"Server","Client" & " " & $ClientIp & " " & "Connected!") EndIf WEnd ; Server will Run continously Client: expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.0.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Host or Ip to Connect to $Server_IP = "127.0.0.1" $Sever_Port = "65432" ; Start The TCP Services TCPStartup ( ) ; To start TCP services ; Connect to The Server $socket = TCPConnect( $Server_IP, $Sever_Port ) If $socket = -1 Then MsgBox(0, "Client", "Unable to Contact Server!") Exit EndIf If $socket >= 0 Then msgbox(0,"Client","Successfully Connected to the Server!") EndIf While 1 ; InputBox for data to transmit $data = InputBox("Client", "Message to Send to Server") ; If they cancel the InputBox or leave it blank we exit our forever loop If @error Or $data = "" Then Exit EndIf ; We should have data in $data, lets attempt to send it through our connected socket. TCPSend($socket, $data) WEnd Im looking for a way to Send whatever the Client types into the InputBox -> to the Server and have it displayed in a Message Box. What I've tried so far hasn't worked so I thought to ask you. Link to comment Share on other sites More sharing options...
DCCD Posted July 4, 2009 Share Posted July 4, 2009 1. take a lookhttp://www.autoitscript.com/forum/index.ph...st&p=6948532. Windows Firewall [u][font=Arial Black]M[/font]y Blog, AVSS Parts[/u][font=Arial Black]Else[/font][font=Arial Black]L[/font]ibya Linux Users Group Link to comment Share on other sites More sharing options...
BlackDawn187 Posted July 4, 2009 Author Share Posted July 4, 2009 1. take a lookhttp://www.autoitscript.com/forum/index.ph...st&p=6948532. Windows FirewallI have the help file and it doesn't help. And that help file is running a GUI which I stated that I am not. Link to comment Share on other sites More sharing options...
Andreik Posted July 4, 2009 Share Posted July 4, 2009 I wrote for you one client and one server. SERVER HotKeySet("{PAUSE}","Quit");Press PAUSE key to exit Global $SERVER_IP = @IPAddress1 Global $SERVER_PORT = 65432 Global $SERVER TCPStartup() $SERVER = TCPListen($SERVER_IP,$SERVER_PORT,4) If @error Then Exit Do $SOCKET = TCPAccept($SERVER) Sleep(10) Until $SOCKET > 0 While True $RECV = TCPRecv($SOCKET,256) If $RECV <> "" Then MsgBox(0,"Received data","Client:" & $RECV) TCPSend($SOCKET,"Your message has arrive") EndIf Sleep(20) WEnd Func Quit() TCPCloseSocket($SERVER) TCPShutdown() Exit EndFunc CLIENT HotKeySet("^s","SendMsg");Press CTRL+S to send a message to server. HotKeySet("^q","Quit");Press CTRL+Q to quit Global $SERVER_IP = @IPAddress1 Global $SERVER_PORT = "65432" Global $CLIENT TCPStartup() $CLIENT = TCPConnect($SERVER_IP,$SERVER_PORT) If @error Then MsgBox(0, "Client", "Unable to Contact Server!") Exit Else TrayTip("Client","Successfully Connected to the Server!",1) EndIf While True $RECV = TCPRecv($CLIENT,256) If $RECV <> "" Then TrayTip("Server Message",$RECV,1) Sleep(20) WEnd Func SendMsg() $MESSAGE = InputBox("CLIENT","Type here a message to server:","TEST") TCPSend($CLIENT,$MESSAGE) EndFunc Func Quit() TCPCloseSocket($CLIENT) TCPShutdown() Exit EndFunc Hope that help you. When the words fail... music speaks. Link to comment Share on other sites More sharing options...
BlackDawn187 Posted July 4, 2009 Author Share Posted July 4, 2009 Thank you, that is a big help!!!!! Much Appreciated!! Link to comment Share on other sites More sharing options...
BlackDawn187 Posted July 4, 2009 Author Share Posted July 4, 2009 Updated Code: Server: expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.0.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- HotKeySet("{PAUSE}","Quit");Press PAUSE key to exit Global $SERVER_IP = "127.0.0.1" Global $SERVER_PORT = 65432 Global $SERVER TCPStartup() $SERVER = TCPListen($SERVER_IP,$SERVER_PORT,4) If @error Then Exit Do $SOCKET = TCPAccept($SERVER) Sleep(10) Until $SOCKET > 0 If $SOCKET > 0 Then $ClientIP = @IPAddress1 $ClientUN = @UserName $ClientCN = @ComputerName $ClientOS = @OSVersion MsgBox(0,"Server", $ClientUN & " on " & $ClientCN & " running " & $ClientOS & " has connected with the following Ip Address:" & $ClientIP ) EndIf While True $RECV = TCPRecv($SOCKET,256) If $RECV <> "" Then MsgBox(0,"Server: Message from Client", $RECV) TCPSend($SOCKET,"Your message was received!") EndIf Sleep(20) WEnd Func Quit() TCPCloseSocket($SERVER) TCPShutdown() Exit EndFunc Client: expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.0.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- HotKeySet("^s","SendMsg");Press CTRL+S to send a message to server. HotKeySet("^q","Quit");Press CTRL+Q to quit Global $SERVER_IP = "127.0.0.1" Global $SERVER_PORT = "65432" Global $SOCKET ; Start The TCP Services TCPStartUp() ; Connect to The Server $socket = TCPConnect( $SERVER_IP, $SERVER_PORT ) If $socket = -1 Then Exit If @error Then MsgBox(0, "Client", "Unable to Contact Server!") Exit Else MsgBox(0, "Client","Successfully Connected to the Server!",1) EndIf While True $RECV = TCPRecv($SOCKET,256) If $RECV <> "" Then MsgBox(0, "Client", $RECV,1) Sleep(20) EndIF WEnd Func SendMsg() $MESSAGE = InputBox("Client","Message to Send to Server:","Your Message Here") TCPSend($SOCKET,$MESSAGE) EndFunc Func Quit() TCPCloseSocket($SOCKET) TCPShutdown() Exit EndFunc Thanks to Andreik for Contributions. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now