技术资料 > .Net专区 > Asp.Net开发 : asp.net中的vb7中如何使用socket作一个传送时间的serv

asp.net中的vb7中如何使用socket作一个传送时间的serv

March 25,2004

/*
豆腐制作，都是精品
http://www.asp888.net 豆腐技术站
如转载请注明出处
*/

利用Socket 可以编写一个向客户端传送时间的一个程序，现在他还只能向
固定的客户端传送时间，我打算过几天写一个可以向浏览器传送时间的一个程序
请大家随时注意我的站点的更新情况。。。
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Public Class DateTimeServer
Public Shared Sub temp()
System.Console.WriteLine("hello")
Console.Writeline("Hellon")
End Sub

Public Shared Sub Main()
Dim now As Date
Dim strDateLine As String
Dim ASCII As Encoding = Encoding.ASCII

Dim tcpl As New TCPListener(13) 'listen on port 13

tcpl.Start()

Console.WriteLine("Waiting for clients to connect")
Console.WriteLine("Press Ctrl+c to Quit...")

While (True)
' Accept will block until someone connects
Dim s As Socket = tcpl.Accept()

' Get the current date and time then concatenate it
' into a string
now = DateTime.Now
strDateLine = now.ToShortDateString() + " " + now.ToLongTimeString()

' Convert the string to a Byte Array and send it
Dim byteDateLine() As Byte = ASCII.GetBytes(strDateLine.ToCharArray())
s.Send(byteDateLine, byteDateLine.Length, 0)
Console.WriteLine("Sent " + strDateLine)
End While
End Sub
End Class

作者:豆腐()