用VB语言开发文件捆绑器(图)

Open "BindFIle.dat" For Binary As #1

2。开始循环为了读到所有捆绑内容，如果文件没有到结尾读出一个

捆绑数据 EOF(1) 用EOF可以判断文件是否到结尾

Do While EOF(1) = False

3。在循环下面写出读出过程 和生成新的文件然后运行

Get #1, , Zxcasd

shellTempName=gettempfilename ’ 得到一个临时文件的名字

Open shellTempName For Binary As #2 ’打开文件如果文件不存在并且自动建立个新的

Put #2, , Zxcasd.FileByte ’写入捆绑数据

Close #2 ’然后关闭那个文件

sleep 1000 ’睡眠1秒哦

shell shellTempName ,zxcasd.shellcommand ’运行

4。写下代码LOOP 循环结束 这服务端代码就基本OK了

5。几就是关闭文件拉close#1