修复GetRight 3.02文件头 高大华 1998年 第05期 12版 当使用《电脑报第三期配套光盘》内的GetRight 3.02 时意外的断线(包括WinGate断线),有可能从服务器上返回错误数据,而GetRight 3.02将其作为完整数据包写入下载文件的头部,并中断续传。此类文件头大约如下:
Connection to Remote Host timed out 对于这种情况,可不予理睬,继续按下述方法下载: 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。