ms = New IO.FileStream(strUrl, IO.FileAccess.ReadWrite)
bw = New IO.BinaryWriter(ms)
'读取中文件配置的位置，以确定该文件是否被配置过
Dim ip As Integer = SeekPostion(Application.ExecutablePath)
If ip = 0 Then
'如果没有配置过，就定位到文件结尾
bw.Seek(0, IO.SeekOrigin.End)
Else
'已经配置过的话，就定位到配置位置
bw.Seek(ip, IO.SeekOrigin.Begin)
