修复GetRight 3.02文件头

Author: 高大华 Date: 1998年第05期 12版

　　当使用《电脑报第三期配套光盘》内的GetRight 3.02 时意外的断线（包括WinGate断线），有可能从服务器上返回错误数据，而GetRight 3.02将其作为完整数据包写入下载文件的头部，并中断续传。此类文件头大约如下：
　　<HTML><HEAD><TITLE>Socket Error</TITLE></HEAD>
　　<BODY><H1>Socket Error</H1><P><P>Connection to Remote Host timed out
　　</BODY></HTML>
　　对于这种情况，可不予理睬，继续按下述方法下载：
　　1.在设置了GetRight.Log和使用.GetRight后缀时，首先将下载文件后缀增加为.GetRight。
　　2.选择GetRight的Advanced|Recover Lost DownLoads...菜单继续下载。
　　3.确认下载长度正确后，将文件更名，重新下载该文件，当长度大于256字节后中断。
　　4.用本软件进行修复即可。语法：
　　GetRtFix <错误文件头文件 > <正确文件头文件>
　　这里<正确文件头文件 >即是第3步下载文件，<错误文件头文件>是长度正确的文件。
　　5.注意！GetRtFix只能用于Windows95下（长文件名）。
　　源程序如下：
　　Attribute VB_Name="Module1"
　　Sub Main（）
　　′VB 5.0
　　Dim File1S，File2S，I％，F1％，F2％，A（） As Byte
　　ReDim A（&H100）
　　If Command=" " Or InStr（Command，Chr（32））=0 Then GoTo Err1
　　I=InStr（Command，Chr（32））
　　File1S=Trim（Left（Command，I））
　　File2S=Trim（Right（Command，Len（Command）－I））
　　If Dir（File1S）=" " Or Dir（File2S）=" " Then GoTo Err1
　　F2％=FreeFile
　　Open File2S For Binary Access Read As F2
　　F1％=FreeFile
　　Open File1S For Binary Access Write As F1
　　Get F2，1，A（）
　　Put F1，1，A（）
　　Close
　　End
　　Err1:
　　MsgBox "语法："&Chr（10）&Chr（13）&" GetRtFix <错误文件头文件 > <正确文件头文件>" &Chr（10） &Chr（13） &Chr（10） &Chr（13）&Chr（10）&Chr（13）&"作者：高大华!"，，"修复GetRight文件头"
　　End
　　End Sub
　　本软件在《电脑报第四期配套光盘》内:\internet\ftp\getright\GetRtFix.exe。