http://www.programmer-club.com.tw/showSameTitleN/vb/29541.html
我是模仿其他 telnet 程式...如何跟 server 溝通的.
通關密碼:
Server: ff fd 18 ff fd 20 ff fd 23 ff fd 27
Client: ff fb 18 ff fd 03 ff fb 03 ff fd 01 ff fb 1f
Client: ff fc 20 ff fc 23 ff fc 27
Server: ff fb 03 ff fd 03 ff fb 01 ff fd 1f ff fa 18 01
Client: ff fa 1f 00 50 00 18 ff f0
Client: ff fa 18 00 76 74 31 30 30 ff f0
Server: ff fd 01 ff fb 05 ff fd 21
Client: ff fc 01
Client: ff fe 05 ff fc 21
Server: login:
記得要轉成 10進位
-------------------------------------------
Private Sub WinsockClient_DataArrival(ByVal bytesTotal As Long)
Dim ch() As Byte
Dim TR() As Byte
Dim i As Integer
Dim str As String
If (bytesTotal > 0) Then
WinsockClient.GetData ch, vbByte + vbArray, bytesTotal
Else
Exit Sub
End If
For i = 0 To bytesTotal - 1
str = str & Chr$(ch(i))
Next i
If ch(0) = 255 Then
If ch(1) = 253 Then
If ch(2) = 24 Then
ReDim TR(14) As Byte
TR(0) = 255: TR(1) = 251: TR(2) = 24
TR(3) = 255: TR(4) = 253: TR(5) = 3
TR(6) = 255: TR(7) = 251: TR(8) = 3
TR(9) = 255: TR(10) = 253: TR(11) = 1
TR(12) = 255: TR(13) = 251: TR(14) = 31
WinsockClient.SendData TR
End If
If ch(2) = 1 Then
ReDim TR(2) As Byte
TR(0) = 255: TR(1) = 252: TR(2) = 1
WinsockClient.SendData TR
Pause (1)
ReDim TR(5) As Byte
TR(0) = 255: TR(1) = 254: TR(2) = 5
TR(3) = 255: TR(4) = 252: TR(5) = 33
WinsockClient.SendData TR
End If
End If
If ch(1) = 251 Then
If ch(2) = 3 Then
ReDim TR(8) As Byte
TR(0) = 255: TR(1) = 252: TR(2) = 32
TR(3) = 255: TR(4) = 252: TR(5) = 35
TR(6) = 255: TR(7) = 252: TR(8) = 39
WinsockClient.SendData TR
End If
End If
If ch(1) = 250 Then
If ch(2) = 24 Then
ReDim TR(8) As Byte
TR(0) = 255: TR(1) = 250: TR(2) = 31
TR(3) = 0: TR(4) = 80: TR(5) = 0
TR(6) = 24: TR(7) = 255: TR(8) = 240
WinsockClient.SendData TR
Pause (1)
ReDim TR(10) As Byte
TR(0) = 255: TR(1) = 250: TR(2) = 24
TR(3) = 0: TR(4) = 118: TR(5) = 116
TR(6) = 49: TR(7) = 48: TR(8) = 48
TR(9) = 255: TR(10) = 240
WinsockClient.SendData TR
End If
End If
End If
End Sub
---------------------------------------------------------------- |