利用VB写简单的多向捆绑器

用来睡眠

Public Type BindType

FileByte() As Byte ’这个数据是用来装载文件的数据

ShellCommand As Integer ’ 而着个整数是告诉我门隐藏运行还是显示运行

End Type

然后开始写2个 变量 dim Zxcasd as BindType ’用来加载捆绑数据的

dim shellTempName as string ’是用来装下临时文件名字的

’好了着样类就完成了 接下来开始写读出捆绑数据

下面来写个函数就是根据时间计算个临时文件名字呵呵 特别简单的

Public Function GetTempFileName() As String

Dim TempStr() As String ’弄个临时字符

TempStr = Split(Time, ":") ’把时间格式话到数组里为了把：这个符号

GetTempFileName = TempStr(0) & TempStr(1) & TempStr(2)’把小时分钟和秒集合在一起

End Function

恩，比如如捆绑数据就在我门的目录下 名字就是 BindFIle.dat

跟着我来写代码

1。先开始打开文件

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

生成个并处理下

OK了 不好意思出了一点顺序毛病

这样就可以里 把图表和版本删除了 服务端基本完成