NetTransport.vbs
上传用户:davilee3
上传日期:2015-04-22
资源大小:986k
文件大小:0k
源码类别:

浏览器

开发平台:

Visual Basic

  1. On Error Resume Next
  2. download_url=WScript.Arguments(0)
  3. download_info=WScript.Arguments(1)
  4. document_Url=WScript.Arguments(2)
  5. err.clear
  6. set NTIECatcher=CreateObject("NTIEHelper.NTIEAddUrl")
  7. if err.number=0 then
  8. call NTIECatcher.AddLink(document_Url, download_url, download_info)
  9. else
  10. msgbox "error"
  11. end if