微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题修复GetRight 3.02文件头
栏目综合新闻
作者高大华
发布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。