免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 回復 發帖

Winsock telnet參考

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
----------------------------------------------------------------
返回列表