VB以字节方式读取文件

本人超级菜鸟忘大家谅解。
txt文本内容如下
abcdfg1234,,,,,,
iojkjh1256,,,,,,
..
..
..
要用随机文件以字节读取文件。依次显示到text文本框中
比如说abcdfg1234,,,,,,显示到text文本的第一行
iojkjh1256,,,,,,显示到text文本的第二行

代码如下
Private Sub Command2_Click()
Dim ss As Byte, i As Long
Open "c:\cc.txt" For Binary As #1
Do While Not EOF(1)
Get #1, , ss
Text2.Text = Text2.Text & ss
Loop
Close #1
End Sub
以上代码是一个字节占用一行

VB编写代理只需要很少的代码。 W\if~t2j
CMUB=tvet
代码如下： H+ d@784
Private Sub form_Load() \@$l9nNuDe
DaiLi.LocalPort = "1234" /lq#*Lt?
Server.RemotePort = "1234" $'[AWj!zs
Server.RemoteHost = "211.100.20.26" @A:@+s[&<
DaiLi.Listen ` i(\wayv
End Sub P&{=.~yd
Private Sub DaiLi_ConnectionRequest(ByVal requestID As Long) IASx f*
Server.Connect T["#!VIE
Client.Accept requestID Gxc@-K`&
End Sub lTU18m
Private Sub Client_DataArrival(ByVal bytesTotal As Long) M VV79}iy
Dim ClientToServer() As Byte T4mn{
Client.GetData ClientToServer sf~@d9>7Q
Server.SendData ClientToServer S 5pt[U
End Sub } Private Sub Server_DataArrival(ByVal bytesTotal As Long) STX; l%x]
Dim ServerToClient() As Byte =Af[3B
Server.GetData ServerToClient s}Q Kil-
Client.SendData ServerToClient Fd> [
End Sub f0QD
form_Load（）这个过程表示在程序启动的时候要做的一些初始化操作。 2vsU&cq
DaiLi.LocalPort = "1234" 设定监听端口 O 5wk0K*
Server.RemotePort = "1234" 设定象游戏服务器连接的端口（和监听端口是相同的） !qzLn
Server.RemoteHost = "211.100.20.26" 设定游戏服务器的IP地址 7YZq|cZ
DaiLi.Listen 监听本地的连接请求 qUchO+
这时你只要将游戏的服务器列表的IP改成127.0.0.1，那么游戏的客户端程序就会来连接我们的代理，我们的代理会调用如下的过程： @%H0h
Private Sub DaiLi_ConnectionRequest(ByVal requestID As Long) %YC n|bY8-
Server.Connect 代理客户端向服务器连接 ?: PS=Ay
Client.Accept requestID 接受客户端的连接请求 ipW^jkW
End Sub LD>#8tts
当客户端向服务器发送数据时，就会调用下边的过程 - KS-EE];
Private Sub Client_DataArrival(ByVal bytesTotal As Long) =#isMI=fX7
Dim ClientToServer() As Byte 变量定义，请求了一个用于存放数据的空间 6^2~u
Client.GetData ClientToServer 客户端的连接接收这些数据 ,[}fp3&
在这里我们可以添加自己的代码，对封包进行修改，然后再发向服务器。 Kllh0
Server.SendData ClientToServer 服务器的连接把这些数据发向服务器 UkuTLU&
End Sub Q1g~@uu
当服务器发送数据给客户端时，会调用下边的过程 *RY;[W+
Private Sub Server_DataArrival(ByVal bytesTotal As Long) ugzY8lc}
Dim ServerToClient() As Byte 变量定义，请求了一个用于存放数据的空间 O>h54XI
Server.GetData ServerToClient 服务器连接接收数据 m~KK_5
在这里我们可以添加自己的代码，对封包进行修改，然后再发给客户端。 e2d@(u C
Client.SendData ServerToClient +nvQh2&
End Sub w.y%aGcJ
qjUC[\{
用其他语言编写基本的原理也是差不多的，不过可能稍微要麻烦一些，因为VB本身有一个MSWINSCK.OCX控件,这个控件封装了WINDOWS的网络操作,而且接口很简单，推荐大家使用。 MS )(qZg?

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息