----------------------------------- FizixMan Sun Dec 08, 2002 4:07 pm Internet Chatting ----------------------------------- I used to talk to a friend of mine through IRC while she was at work, but now they got new firewalls and settings that don't allow her to connect anymore... they have ports 80 and 81 open... I saw a little blurb about someone's netchat program and I was wondering if it works over the internet and if it can be used on those ports... If not, how can I program one? It would really mean a lot to me 'cause otherwise I can't talk to my close good friend anymore! :cry: :cry: :cry: ----------------------------------- Dan Sun Dec 08, 2002 5:17 pm la la la ----------------------------------- it is posiable to make a chat progame in turing that runs on port 80, but the problem is i dont think it works over the net (just on netwroks). but here is the code any way, just chage port to 80 to comiunate over port 80. %set the screen setings and graphics setscreen ("Graphics:vga") setscreen ("Graphics:500;400") %vars and consts const port1 : int := 5555 %port to be used var sorc : string (1) var data : int var ip1 : string var name1 : string var help : string (1) var address1 : string var rowhere : int := 2 var colhere : int := 1 var rowthere : int := maxrow div 2 var colthere : int := 1 var ch : char var yourip : string var yourname : string var madeby:string:="Dan" cls %disalp loacl adress yourip := Net.LocalAddress %get ip yourname := Net.LocalName %get name put "Your IP is: ", yourip, " ", "Your Name is: ", yourname put "" %loop to see if conputer is host or not loop %disply choies and input respones put "1. Host Chat" put "2. Join Chat" put "3. Help" put "4. Exit" put "" getch (sorc) %creal screen and keep loacl mahine info cls put "Your IP is: ", yourip, " ", "Your Name is: ", yourname put "" %see if exit if sorc = "4" then cls put "Good Bye" return %end program %if help elsif sorc = "3" then loop %creal screen and keep loacl mahine info cls put "Your IP is: ", yourip, " ", "Your Name is: ", yourname put "" %put up help choies and get input put "1. Convernt IP to Host Name" put "2. Convernt Host Name to IP" put "3. Exit Help" getch (help) % if user picks 1 if help = "1" then %creal screen and keep loacl mahine info cls put "Your IP is: ", yourip, " ", "Your Name is: ", yourname put "" %aks user for ip number and get data put "Put in the IP number to convert (EX. 128.100.5.1)" put "Note: you need to be onilen or on the nerwrok for this to wrok" get ip1 %out put data put "" put "Host Name is: ", Net.HostNameFromAddress (ip1) delay (3000) %if user picks 2 elsif help = "2" then %clera screen and keep loacl mahine info cls put "Your IP is: ", yourip, " ", "Your Name is: ", yourname put "" %ask user for host name put "Put in the Host Name to convert (EX. www.yahoo.com)" put "Note: you need to be onilen or on the nerwrok for this to wrok" get name1 %output data put "" put "IP Number is: ", Net.HostAddressFromName (name1) delay (3000) end if %exit when user picks 3 exit when help = "3" end loop %creal screen and keep loacl mahine info cls put "Your IP is: ", yourip, " ", "Your Name is: ", yourname put "" %resata the meun put "1. Host Chat" put "2. Join Chat" put "3. Help" put "4. Exit" put "" end if %exit when user picks 1 or 2 exit when sorc = "1" or sorc = "2" end loop %see if user is host and wait for clint to conect if sorc = "1" then data := Net.WaitForConnection (port1, address1) %wait for clint to conect on port 5555 %see if user is clint and conect to host else %ask user where to conect to put "Enter IP or name of conputer to concet to." get address1 %open contection to host data := Net.OpenConnection (address1, port1) %open contection to host on port 5555 if data maxx - 10 then rowhere := rowhere mod (maxrow div 2) + 1 %chage line rowthere := 1 %chage line colhere := 1 Text.Locate (rowhere, colhere) put "" %clrea line end if end if end if %geting data from other conputer if Net.CharAvailable (data) then %see if there is any thing to get get : data, ch %get text form other conputer %if enter then move down line if ch = "\n" then %see if it is an enter rowthere := rowthere mod (maxrow div 2) + 1 + (maxrow div 2) colthere := 1 Text.Locate (rowthere, colthere) put "" %ceare line %if not enter and just text else color (brightred) if colhere < maxx - 10 then Text.Locate (rowthere, colthere) put ch .. %put text form other conputer colthere += 1 elsif colhere > maxx - 10 then rowthere := rowthere mod (maxrow div 2) + 1 + (maxrow div 2) colthere := 1 Text.Locate (rowthere, colthere) put "" %ceare line end if end if end if end loop sory about the spacing it may be a bit off also if you whont to tlak to your frend there are a lot of chat progames out there that will let you slect a port to use. ----------------------------------- WooFerPPK Sun Dec 08, 2002 5:55 pm ----------------------------------- sorry if you didnt want me to edit this but i modifed the code and it works over the net. Im very VERY close to finding the problem with the missing characters. I almost got it to, just for some reason the after a few msg's the msg screws up and somtimes doesnt apear. When i fiqure it out ill send it to u guys. View.Set ("graphics:670;368,nobuttonbar") colorback (black) cls var port : int := 007 var sorc, help, leave : string (1) var data : int var ip, name, address, yourip : string var rowhere : int := 2 var colhere : int := 1 var rowthere : int := maxrow div 2 var colthere : int := 1 var ch : char % Shows Ip address yourip := Net.LocalAddress color (10) put "Your IP is: ", yourip put "" % Help, Host, Join, change, or exit program loop color (yellow) % Menu put "1: Host Chat" put "2: Join Chat" put "3: Help" put "4: Change Port" put "5: Exit" put "" getch (sorc) cls color (10) put "Your IP is: ", yourip put "" %see if exit if sorc = "5" then cls color (0) locate (11, 21) put "Thank you for using my program" return end if if sorc = "4" then color (0) put "Type in the port number (max 99999)" get port put "Press E to exit" getch (leave) cls end if if sorc = "3" then loop color (10) cls put "Your IP is: ", yourip put "" %put up help choies and get input color (yellow) put "Help area" put "" put "1: How to use program" put "2: Defenition of IP" put "3: How the ports system works" put "4: Exit Help" getch (help) % if user picks 1 if help = "1" then cls put "What this program does is send and recive messages using turing" put "You are ether a host or a joiner. A host makes there computer a server" put "The joiner join's the host's server to chat with. This program DOESNT" put "require you to be on a network." put "" put "Press e to exit help" getch (help) exit when help = "e" elsif help = "2" then cls put "IP by itself is something like the postal system. It allows you to address " put "a package and drop it in the system, but there's no direct link between" put "you and the recipient. TCP/IP, on the other hand, establishes a connection" put "between two hosts so that they can send messages back and forth for a " put "period of time" put "" put "Press e to exit help" getch (help) exit when help = "e" elsif help = "3" then cls put "Ports is like a TV. There is 1 tv but there are differnt channels" put "With ports you can flip differnt channels. So if i want to talk to bob" put "Bob would be on port 1. Port 1 is now in use. Now joe wants to talk to me" put "well you give joe your ip, and you tell joe to use his port number 2." put "you can use the same computer with the same address and talk to two differnt" put "people" put "" put "Press e to exit" getch (help) exit when help = "e" end if exit when help = "4" end loop cls color (10) put "Your IP is: ", yourip put "" end if exit when sorc = "1" or sorc = "2" end loop % This will wait for the user to connect if you are a host if sorc = "1" then data := Net.WaitForConnection (port, address) else % This asks the user what is the ip of the computer to connect to put "Enter IP of conputer to concet to." get address % This will open a connection for the host so the "Joiner" can join into your server data := Net.OpenConnection (address, port) % This will produce an Error message if it was unable to successfully connect if data maxx - 10 then rowhere := rowhere mod (maxrow div 2) + 1 rowthere := 1 colhere := 1 Text.Locate (rowhere, colhere) put "" end if end if end if color (brightred) % This will keep the data in till the user presses enter if Net.LineAvailable (data) then var line : string get : data, line : * put line end if end loop ----------------------------------- Tony Sun Dec 08, 2002 6:17 pm ----------------------------------- I've heard from Martin that because of the way Net was build in turing, some characters @ the beginning of the string might get cut off. If thats the case, what you do to fix the problem is send a message with " " added in front of the message and once recieved, you just check for first character. If its a " " you just remove it put line(2..*) ----------------------------------- Dan Sun Dec 08, 2002 6:39 pm ----------------------------------- you can download my verion of the net chat progame form ftp://swat@danco.no-ip.com/Turing/Turing%20Programs/Turing%20Chat/netchat.zip ----------------------------------- FizixMan Mon Dec 09, 2002 11:06 pm ----------------------------------- Thanks for your help and immediate response guys, I really appreciate it. Though I never had a chance to test the program with my friend 'cause the firewall changed again at her work and now IRC is working again. But again thanks anyways... at least now I got the program and if it happens again we can test it. :D :D