qwertylol Posted November 23, 2007 Share Posted November 23, 2007 I am on 10.0.1.101 ( my own router network ) and I want to send a line of text to 10.0.1.103 how do I do it? Link to comment Share on other sites More sharing options...
Fossil Rock Posted November 24, 2007 Share Posted November 24, 2007 Search for client/server in the forums, there are some good examples. Agreement is not necessary - thinking for one's self is! Link to comment Share on other sites More sharing options...
rasim Posted November 24, 2007 Share Posted November 24, 2007 I am on 10.0.1.101 ( my own router network ) and I want to send a line of text to 10.0.1.103 how do I do it?Example: expandcollapse popup;Server!!! Start me first #include <GUIConstants.au3> Global $szIPAddress = "127.0.0.1" Global $TcpPort = 33891 TCPStartup() $MainSocket = TCPListen($szIPAddress, $TcpPort) If @error Then Exit ;Create a GUI for incoming messages GUICreate("Chat", 300, 200) $edit = GUICtrlCreateEdit("", 10, 10, 200, 150) GUISetState() Global $Connect = -1 Do $Connect = TCPAccept($MainSocket) If GUIGetMsg() = -3 Then ExitLoop Until $Connect <> -1 While 1 If GUIGetMsg() = -3 Then ExitLoop $recv = TCPRecv($Connect, 2048) If @error Then ExitLoop If $recv <> "" Then GUICtrlSetData($edit, $recv) Sleep(30) WEndoÝ÷ Ù«¢+Øí ±¥¹ÐÌÌìÌÌìÌÌìMÑÉÐÑ¡¥ÌÍÉ¥ÁÐÑÈÍÑÉÑ¥¹ÍÉÙÈ()Q AMÑÉÑÕÀ ¤()±½°ÀÌØíÍé%AÉÍÌôÅÕ½ÐìÄÈܸÀ¸À¸ÄÅÕ½Ðì)±½°ÀÌØíQÁA½ÉÐôÌÌàäÄ)±½°ÀÌØíÍéÑ((ÀÌØí ½¹¹ÐôQ A ½¹¹Ð ÀÌØíÍé%AÉÍÌ°ÀÌØíQÁA½ÉФ)%ÉɽÈQ¡¸(%5Í ½à ÄØ°ÅÕ½ÐíÉɽÈÅÕ½Ðì°ÅÕ½Ðí9½Ð½¹¹ÐѼÍÉÙÈÅÕ½Ðì¤(%á¥Ð)¹%($)]¡¥±Ä($ÀÌØíÍéÑô%¹ÁÕÑ ½à ÅÕ½ÐíM¹ÑѼÍÉÙÈÅÕ½Ðì°ÅÕ½Ðí¹ÑÈÑѼÑɹ͵¥ÐѼѡÍÉÙÈÅÕ½Ðì°ÅÕ½Ðí!±±¼É¥¹ÌÌìÅÕ½Ðì¤(%%ÉɽÈQ¡¸á¥Ñ1½½À($%Q AM¹ ÀÌØí ½¹¹Ð°ÀÌØíÍéѤ($%%ÉɽÈQ¡¸á¥Ñ1½½À($$%M±À ÌÀ¤($%]¹ 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