中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

'用法示例：

'cscript bak.vbs 百度用戶名 第I頁 至第n頁 目錄列表.htm 用戶名 密碼

'例如我的blgo示例：

'cscript baidublogbak.vbs myvbscript 0 3 url.htm myvbscript mima

'表示從第0頁備份到第3頁，blog的共有頁數打開http://hi.baidu.com/用戶名/blog/index/0就可以看到了。url.htm存放的是目錄列表

'注意的是百度是從0頁計數的

'如果用戶名和密碼隨便寫也可以備份，但是無法備份私有文檔

'推薦幾頁幾頁備份，最好建單獨一個目錄將bak.vbs放進去，會在當前目錄生成mht文檔。因為有的網絡原因，有的無法成mht，請對照url.htm目錄列表檢查

'====================================================================================================

On Error Resume next

if (lcase(right(wscript.fullname,11))="wscript.exe") then

wscript.echo "Execute it under the cmd.exe Plz! Thx."

wscript.quit

end if

Const adSaveCreateNotExist = 1

Const adSaveCreateOverWrite = 2

Const adTypeBinary = 1

Const adTypeText = 2

Set args = WScript.Arguments

if args.Count = 0 then

WScript.Echo "Usage: CScript baidublogbak.vbs blogname i n url.htm username password"

WScript.Quit 1

end If

Set objMessage = CreateObject("CDO.Message")

Set ie=WScript.CreateObject("InternetExplorer.Application")

ie.visible=true

ie.navigate "http://passport.baidu.com/?login"

Do

Wscript.Sleep 200

Loop Until ie.ReadyState=4

ie.document.getElementById("username").value=args.Item(4)

ie.document.getElementById("password").value=args.Item(5)

tj=ie.document.getElementsBytagname("form")

tj.submit

WScript.Sleep 10000

Sub SaveToFile(Msg, Fn)

Dim Strm, Dsk

Set Strm = CreateObject("ADODB.Stream")

Strm.Type = adTypeText

Strm.Charset = "gb2312"

Strm.Open

Set Dsk = Msg.DataSource

Dsk.SaveToObject Strm, "_Stream"

Strm.SaveToFile Fn, adSaveCreateOverWrite

End Sub

For n=args.Item(1) To args.Item(2) Step 1

url="http://hi.baidu.com/"&args.Item(0)&"/blog/index/"&n

ie.Navigate url

ie.visible=false

While ie.Busy

WScript.Sleep 100

Wend

Do

Wscript.Sleep 200

Loop Until ie.ReadyState=4

wscript.echo "正保存第"&n&"頁"

Wscript.Sleep 3000

For i=0 To ie.Document.links.length-1

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

wscript.echo ie.Document.links(i).href &"||"&ie.Document.links(i).innerText

CreateObject("Scripting.FileSystemObject").OpenTextFile(args.Item(3),8,True,0).WriteLine(ie.Document.links(i).href &"||"&ie.Document.links(i).innerText)

objMessage.CreateMHTMLBody ie.Document.links(i).href

SaveToFile objMessage, ie.Document.links(i).innerText&".mht"

End if

Next

next

ie.quit

Set ie=nothing