如何用编程方式将新浪微博页面内容保存成TXT或mht格式文件

[jsntmouse]

如何用编程方式将多个新浪微博
（如：http://weibo.com/u/2531528405
http://weibo.com/u/1407219330
http://weibo.com/u/1867903025
http://weibo.com/u/2433634244
。。。。。
）
页面内容保存成TXT或mht格式文件

[jsntmouse]

猫老师 求解

[都市夜猫]

http://dkfdtf.blogbus.com/logs/20284731.html

[jsntmouse]

猫老师:能否请您来段代码试试，我试了好象不行

[都市夜猫]

是出错，还是保存后没内容？
我没微博账号测试不了，也没想要申请，对微博这玩意没兴趣

[jsntmouse]

没内容

[都市夜猫]

可能是需要登录成功才有内容吧
下面这个简化一点，试试有没有内容

cUrl = 'http://weibo.com/u/2531528405'
...
cdo = CreateObject('CDO.Message')
cdo.CreateMHTMLBody(cUrl, 0, '', '')

ado = cdo.GetStream()
ado.SaveToFile('c:\ttt.mht', 2)
StrToFile(Strconv(cdo.HTMLBody,9), 'c:\ttt.htm', 4)
StrToFile(cdo.TextBody, 'c:\ttt.txt')

[jsntmouse]

还是没有内容