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
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 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