服务器之家

服务器之家 > 正文

百度空间备份脚本baidublogbak.vbs代码分析

时间:2020-07-24 12:03     来源/作者:VBS教程网
  1. '用法示例:  
  2. 'cscript bak.vbs 百度用户名 第I页 至第n页 目录列表.htm 用户名 密码  
  3. '例如我的blgo示例:  
  4. 'cscript baidublogbak.vbs myvbscript 0 3 url.htm myvbscript mima  
  5. '表示从第0页备份到第3页,blog的共有页数打开http://hi.baidu.com/用户名/blog/index/0就可以看到了。url.htm存放的是目录列表  
  6. '注意的是百度是从0页计数的  
  7. '如果用户名和密码随便写也可以备份,但是无法备份私有文档  
  8. '推荐几页几页备份,最好建单独一个目录将bak.vbs放进去,会在当前目录生成mht文档。因为有的网络原因,有的无法成mht,请对照url.htm目录列表检查  
  9. '====================================================================================================  
  10.  
  11. On Error Resume next  
  12. if (lcase(right(wscript.fullname,11))="wscript.exe") then  
  13. wscript.echo "Execute it under the cmd.exe Plz! Thx."  
  14. wscript.quit  
  15. end if  
  16.  
  17. Const adSaveCreateNotExist = 1  
  18. Const adSaveCreateOverWrite = 2  
  19. Const adTypeBinary = 1  
  20. Const adTypeText = 2  
  21.  
  22. Set args = WScript.Arguments  
  23.  
  24. if args.Count = 0 then  
  25. WScript.Echo "Usage: CScript baidublogbak.vbs blogname i n url.htm username password"  
  26. WScript.Quit 1  
  27. end If  
  28.  
  29. Set objMessage = CreateObject("CDO.Message")  
  30. Set ie=WScript.CreateObject("InternetExplorer.Application")  
  31. ie.visible=true  
  32. ie.navigate "http://passport.baidu.com/?login"  
  33.  
  34. Do  
  35. Wscript.Sleep 200  
  36. Loop Until ie.ReadyState=4  
  37. ie.document.getElementById("username").value=args.Item(4)  
  38. ie.document.getElementById("password").value=args.Item(5)  
  39. tj=ie.document.getElementsBytagname("form")  
  40. tj.submit  
  41. WScript.Sleep 10000  
  42. Sub SaveToFile(Msg, Fn)  
  43. Dim Strm, Dsk  
  44. Set Strm = CreateObject("ADODB.Stream")  
  45. Strm.Type = adTypeText  
  46. Strm.Charset = "gb2312"  
  47. Strm.Open  
  48. Set Dsk = Msg.DataSource  
  49. Dsk.SaveToObject Strm, "_Stream"  
  50. Strm.SaveToFile Fn, adSaveCreateOverWrite  
  51. End Sub  
  52.  
  53. For n=args.Item(1) To args.Item(2) Step 1  
  54.  
  55. url="http://hi.baidu.com/"&args.Item(0)&"/blog/index/"&n  
  56. ie.Navigate url  
  57. ie.visible=false  
  58.  
  59. While ie.Busy  
  60. WScript.Sleep 100  
  61. Wend  
  62.  
  63. Do  
  64. Wscript.Sleep 200  
  65. Loop Until ie.ReadyState=4  
  66.  
  67. wscript.echo "正保存第"&n&"页"  
  68. Wscript.Sleep 3000  
  69.  
  70. For i=0 To ie.Document.links.length-1  
  71. If InStrRev(ie.Document.links(i).href,"blog/item/",-1,1)<> 0 And InStrRev(ie.Document.links(i).innerText,"浏览",-1,1)= 0 And InStrRev(ie.Document.links(i).href,"#comment",-1,1)= 0 And InStrRev(ie.Document.links(i).href,"cmtid",-1,1)= 0then  
  72. wscript.echo ie.Document.links(i).href &"||"&ie.Document.links(i).innerText  
  73. CreateObject("Scripting.FileSystemObject").OpenTextFile(args.Item(3),8,True,0).WriteLine(ie.Document.links(i).href &"||"&ie.Document.links(i).innerText)  
  74. objMessage.CreateMHTMLBody ie.Document.links(i).href  
  75. SaveToFile objMessage, ie.Document.links(i).innerText&".mht"  
  76. End if  
  77.  
  78. Next  
  79.  
  80. next  
  81.  
  82. ie.quit  
  83. Set ie=nothing  

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
返回顶部