📄 63.htm
字号:
<HTML><HEAD><TITLE>CTerm非常精华下载</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type></HEAD>
<BODY bgColor=#ffffff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% background=0044.jpg>
<BODY>
<TR>
<TD height=150 rowSpan=2 width="308" ><IMG alt=DDl_back.jpg height=129 width=300 src="DDl_back.jpg" ></TD>
<TD background=DDl_back2.jpg height=50 width="581" ><BIG><BIG><FONT face=黑体>
<P align=center >重拳出击 一网打尽</FONT></BIG></BIG></P></TD></TR>
<TR>
<TD bgColor=#0099ff borderColor=#0099ff height=5 width="581"></TD></TR>
<TR>
<TD align=middle colSpan=2 height=100 vAlign=top width="891" ><BR>
<p align=center>[<a href="清华bbs网络资源.htm">回到开始</a>][<a href="8.htm">上一层</a>][<a href="64.htm">下一篇</a>]
<hr><p align="left"><small>发信人: chzh (南园 Z h C h), 信区: Winsock <br>
标 题: Telnet客户端源码[in Vb5] <br>
发信站: BBS 水木清华站 (Sat Jan 2 21:14:28 1999) WWW-POST <br>
<br>
下面这个程序是个简短但基本功能齐全的telnet客户端. <br>
欢迎大家使用, 多提宝贵意见. <br>
(先用notepad保存为 .frm文件, 用vb打开即可运行, 有些行贴时断了需接上) <br>
<br>
VERSION 5.00 <br>
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX" <br>
Begin VB.Form bbs <br>
AutoRedraw = -1 'True <br>
Caption = "bbs" <br>
ClientHeight = 2496 <br>
ClientLeft = 48 <br>
ClientTop = 336 <br>
ClientWidth = 3744 <br>
LinkTopic = "Form1" <br>
ScaleHeight = 208 <br>
ScaleMode = 3 'Pixel <br>
ScaleWidth = 312 <br>
StartUpPosition = 3 'Windows Default <br>
Begin VB.Timer Timer1 <br>
Interval = 100 <br>
Left = 360 <br>
Top = 0 <br>
End <br>
Begin MSWinsockLib.Winsock Winsock1 <br>
Left = 0 <br>
Top = 0 <br>
_ExtentX = 593 <br>
_ExtentY = 593 <br>
End <br>
End <br>
Attribute VB_Name = "bbs" <br>
Attribute VB_GlobalNameSpace = False <br>
Attribute VB_Creatable = False <br>
Attribute VB_PredeclaredId = True <br>
Attribute VB_Exposed = False <br>
Rem Nju Telnet Client Programed by chzh, nju, 1998 <br>
DefInt A-Z <br>
Dim Bold, Reverse, Bcolor, Fcolor, Css, ox, oy <br>
<br>
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) <br>
Select Case KeyCode <br>
Case 38: SendChars "27;91;65" <br>
Case 40: SendChars "27;91;66" <br>
Case 37: SendChars "27;91;68" <br>
Case 39: SendChars "27;91;67" <br>
End Select <br>
End Sub <br>
<br>
Private Sub Form_KeyPress(KeyAscii As Integer) <br>
If KeyAscii >= 0 Then SendChars Str$(KeyAscii) Else l& = KeyAscii + 65536: <br>
SendChars Str$(l& \ 256) + ";" + Str$(l& Mod 256) <br>
End Sub <br>
<br>
Private Sub Form_Load() <br>
Fcolor = 7: Bcolor = 0: BackColor = 0 <br>
bbs.Width = 648 * 12: bbs.Height = 416 * 12 <br>
Winsock1.Connect "202.119.38.2", 23 <br>
End Sub <br>
<br>
Private Sub Timer1_Timer() <br>
Main <br>
Css = (Css + 1) Mod 10: x = CurrentX: y = CurrentY <br>
If x <> ox Or y <> oy Then Line (ox, oy + 15)-Step(7, 0), QBColor(Bcolor): ox <br>
= x: oy = y <br>
If Css < 5 Then c = Bcolor Else c = Fcolor <br>
Line (x, y + 15)-Step(7, 0), QBColor(c): CurrentX = x: CurrentY = y <br>
End Sub <br>
<br>
Function Inkey() As Byte <br>
Dim b As Byte <br>
While Winsock1.BytesReceived = 0: Nop: Wend <br>
Winsock1.GetData b: Inkey = b <br>
End Function <br>
<br>
Sub Nop() <br>
DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: <br>
DoEvents: DoEvents <br>
End Sub <br>
<br>
Function VVV(d$) <br>
VVV = Val(d$): d$ = Mid$(d$, InStr(d$ + ";", ";") + 1) <br>
End Function <br>
<br>
Sub SendChars(d$) <br>
Dim b As Byte <br>
Dim b As Byte <br>
While d$ <> "": b = VVV(d$): Winsock1.SendData b: Wend <br>
End Sub <br>
<br>
Sub Main() <br>
Dim b As Byte, LL <br>
While Winsock1.BytesReceived > 0 <br>
b = Inkey <br>
Select Case b <br>
Case 255 <br>
c = Inkey: d = Inkey <br>
If c = 253 And (d = 1 Or d = 24) Then SendChars "255;251;" & d: GoTo L2 <br>
If c = 254 And d = 1 Then SendChars "255;252;1": GoTo L2 <br>
If c = 251 And d = 1 Then SendChars "255;253;1": GoTo L2 <br>
If c = 250 Then While d <> 240: d = Inkey: Wend: SendChars "255;250;24;0;118; <br>
116;49;48;48;255;240": GoTo L2 <br>
If c = 253 Then SendChars "255;252;" & d: GoTo L2 <br>
Case 27 <br>
s$ = "": c = Inkey: If c <> 91 Then GoTo L2 <br>
L1: dat$ = Chr$(Inkey): If InStr(" 0123456789;", dat$) > 1 Then s$ = s$ + <br>
dat$: GoTo L1 <br>
Select Case dat$ <br>
Case "m" <br>
Case "m" <br>
If s$ = "" Then s$ = "0" <br>
While s$ <> "" <br>
v = VVV(s$) <br>
If v > 29 And v < 38 Then Fcolor = v - 30 + Bold * 8 <br>
If v > 39 And v < 48 Then Bcolor = v - 40 <br>
If v = 0 Then Bold = 0: Reverse = 0: Fcolor = 7: Bcolor = 0: 'Fcolor Mod <br>
8 <br>
If Bcolor = 4 Then Bcolor = 1 <br>
If v = 1 Then Bold = 1: Fcolor = Fcolor Mod 8 + 8 <br>
If v = 7 Then Reverse = 1 <br>
ForeColor = QBColor(Fcolor) <br>
Wend <br>
Case "K": x = CurrentX: y = CurrentY: Line (x, y)-Step(720, 15), <br>
QBColor(Bcolor), BF: CurrentX = x: CurrentY = y <br>
Case "C": xx = VVV(s$): CurrentX = CurrentX + xx * 8 <br>
Case "H": yy = VVV(s$): xx = VVV(s$): If xx > 0 And yy > 0 Then CurrentX = <br>
(xx - 1) * 8: CurrentY = (yy - 1) * 16 <br>
Case "J": bbs.Picture = LoadPicture(): bbs.Cls <br>
End Select <br>
Case 7: Beep <br>
Case 8: If CurrentX > 0 Then CurrentX = CurrentX - 8 <br>
Case 13: CurrentX = 0 <br>
Case 0 <br>
Case 10: CurrentY = CurrentY + 16: If CurrentY >= 384 Then CurrentY = <br>
CurrentY - 16: bbs.Picture = bbs.Image: PaintPicture bbs.Picture, 0, -16: oy <br>
= oy - 16 <br>
Case Else <br>
p& = -1 <br>
If b < 128 Then LL = 0: p& = b <br>
If b >= 128 And LL = 0 Then LL = b Else p& = LL * 256& + b: LL = 0 <br>
If p& > 256 Then l = 16 Else l = 8 <br>
x = CurrentX: y = CurrentY: F = Fcolor: b = Bcolor <br>
If Reverse Then t = F: F = b: b = t <br>
ForeColor = QBColor(F) <br>
If p& >= 0 Then Line (x, y)-Step(l - 1, 15), QBColor(b), BF: CurrentX = x: <br>
CurrentY = y: Print Chr$(p&);: CurrentX = x + l <br>
End Select <br>
L2: Wend <br>
End Sub <br>
<br>
Private Sub Winsock1_Close() <br>
End <br>
End Sub <br>
<br>
<br>
<br>
-- <br>
※ 修改:·chzh 於 Jan 2 21:14:28 修改本文·[FROM: 202.119.32.32] <br>
※ 来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: 202.119.32.32] <br>
</small><hr>
<p align="center">[<a href="清华bbs网络资源.htm">回到开始</a>][<a href="8.htm">上一层</a>][<a href="64.htm">下一篇</a>]<p align="center" ><font face="黑体" size=5><big>网络资源大全</big></font></p>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -