请大家帮个忙？

我想做一个可以用IE浏览的服务器例子。
打开8000端口，等待IE的连接，当IE连接后，就向IE发送数据，发送完毕后，要马上中断连接后，重新监听8000端口，等待IE的再次连接，再次发送数据。
可以接收到数据，但是不能自动向连接的目标发送数据。不知道是怎么回事。点command1后开始监听8000端口。当有数据发送过来，就向目标发送数据。
可是我下面的这段代码有问题，请大家帮改一下：
Sub Wclose()
wsk1.Close
End Sub
Sub SendData()
 wsk1.SendData "<html><title>"
 wsk1.SendData "Test</title>"
 wsk1.SendData "<a href='ok'>OK</a>"
 wsk1.SendData "</html>"
 Call Wclose
End Sub
Private Sub Command1_Click()
wsk1.LocalPort = 8000
wsk1.Listen
End SubPrivate Sub Command3_Click()
wsk1.Close
End SubPrivate Sub Timer1_Timer()
Label1.Caption = wsk1.State
End SubPrivate Sub wsk1_ConnectionRequest(ByVal requestID As Long)
If wsk1.State <> sckClosed Then wsk1.Close
  wsk1.Accept requestID
End SubPrivate Sub wsk1_DataArrival(ByVal bytesTotal As Long)
Dim mydata As String
wsk1.GetData mydata
Text1.Text = mydata
If bytesTotal > 0 Then
  Call SendData
End If
End Sub