修复GetRight 3.02文件头 高大华 1998年 第05期 12版   当使用《电脑报第三期配套光盘》内的GetRight 3.02 时意外的断线(包括WinGate断线),有可能从服务器上返回错误数据,而GetRight 3.02将其作为完整数据包写入下载文件的头部,并中断续传。此类文件头大约如下:   Socket Error   

Socket Error

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。