# Re: how to do --make like telnet program?

Posted by 睿舆 on January 12, 1999 at 15:15:39:

In Reply to: Re: how to do --make like telnet program? posted by 和林 on January 12, 1999 at 15:10:19:

: : 可以呀! 我以前曾试写过一个简易的版本，的确可以用的。你把你认为有问题的程序放上来让大家帮你看看吧!

: Private sub form_load()
: winsock1.remotehost=text1.text
: winsock1.remoteport=text2.text
: winsock1.protocol=scktcpprotocal
: end sub
: Private sub command1_click()
: winsock1.connect
: end sub
: private sub winsock1_dataArrival(Byval bytestotal as long)
: dim s as string
: winsock1.getdata s
: text3.text=s
: end sub
: private sub text4_keypress(keyasscii as integer)
: if keyascii=13 then winsock1.senddata text4.text
: end sub
: 请多多指教!谢谢.

Follow Ups: