VB 版 (精华区)

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


DefLng A-Z
Private Function State() As Long
    State = Form1.Winsock1.State
End Function
Public Sub Pt(Optional ByVal d$ = "")
    If d$ > "" Then If State = 7 Then Form1.Winsock1.SendData d$
End Sub
Public Sub Pn(Optional ByVal d$ = "")
    Pt d$ + vbCrLf
End Sub
Public Sub Pb(ByVal b As Byte)
    If b > 0 Then If State = 7 Then Form1.Winsock1.SendData b
End Sub
Public Sub InputA(Optional ByVal Pmt$ = "", Optional d$ = "", Optional ByVal
Public Sub InputA(Optional ByVal Pmt$ = "", Optional d$ = "", Optional ByVal
MaxLen = 60)
    Pt Pmt$
    Dim buf$, L
    Do
        b = InkeyB
        L = LenB(buf)
        Select Case b
        Case 13
            Pn
            d$ = StrConv(buf$, vbUnicode)
            Exit Sub
        Case 8
            If L > 0 Then
                buf = LeftB(buf, L - 1)
                Pt Chr(8) + " " + Chr(8)
            End If
        Case Is >= 32
            If L < MaxLen Then
                buf = buf + ChrB(b)
                Pb b
            End If
        End Select
        End Select
    Loop
End Sub
Public Function InkeyB() As Byte
    Dim b As Byte
    If State = 7 Then Form1.Winsock1.GetData b
    InkeyB = b
    DoEvents
End Function
Public Function InkeyA$()
    If State = 7 Then Form1.Winsock1.GetData a$
    InkeyA = a$
    DoEvents
End Function
Public Sub Sleep()
    o = Form1.Winsock1.BytesReceived
    While o = Form1.Winsock1.BytesReceived
        DoEvents
    Wend
End Sub
End Sub
Public Sub Pause(ByVal Dt!)
    T! = Timer
    While Abs(Timer - T!) < Dt!
        DoEvents
    Wend
End Sub
Public Sub ClearA()
    a$ = InkeyA
End Sub
Public Sub ClsA()
    Pt Chr(27) + "[H" + Chr(27) + "[J"
End Sub
Public Function Pos$(ByVal y As Byte, ByVal x As Byte)
    If y < 1 Or y > 24 Or x < 1 Or x > 80 Then Exit Function
    Pos = Chr(27) + "[" + Trim(y) + ";" + Trim(x) + "H"
End Function
Public Sub BeepA()
    Pb 7
End Sub
--

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

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