VB 版 (精华区)

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: telnet lib(1)
发信站: 哈工大紫丁香 (2000年09月05日15:52:09 星期二), 站内信件


DefLng A-Z
Private Sub Form_Load()
    Winsock1.Bind 23
    Winsock1.Listen
End Sub
Private Sub Timer1_Timer()
    If Winsock1.State > 7 Then End
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
    Pb 255
    Pb 251
    Pb 3
    Sleep
    ClearA
 ' Winsock1.Listen
    Call Myprogram'这里加入你的程序
End Sub
--


--
├┝┞┟┠┢┣◣◢
               ∣
             ▆▆▆    
              ▇▇            

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.247.254]