百度空间备份脚本baidublogbak.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