51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2160|回复: 4
打印 上一主题 下一主题

[原创] 请高手帮忙!!!

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-8-25 11:09:02 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
请高手帮忙写个VBS的代码,就是下载WEB上的文件,比如http://www.tdt.com/1.rar

然后保存在指定文件夹,d:\down\

最最重要的是,以当年系统时间来命名文件名200805311912.rar

1912表示19点12分
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

5#
发表于 2008-9-2 16:33:38 | 只看该作者

回复 4# 的帖子

做点必要的修改,

Browser("AA").Page("BB").Link("qtp_reference_guide_cn.pdf").Click
wait(1)
Browser("Browser_2").Dialog("File Download").WinButton("Save").Type  micLeft
wait(1)
Browser("Browser_2").Dialog("File Download").WinButton("Open").Type  micRight
wait(1)
Browser("Browser_2").Dialog("File Download").Type  micReturn
wait(1)
Dialog("File Download").Dialog("Save As").WinToolbar("ToolbarWindow32").Press "My Computer"
wait(1)

'Change to D: disk
Dialog("File Download").Dialog("Save As").WinListView("SysListView32").Activate " (C"
wait(1)

'Change to your folder
Dialog("File Download").Dialog("Save As").WinListView("SysListView32").Activate "Logs"
wait(1)


Dialog("File Download").Dialog("Save As").WinComboBox("Save as type:").Select "All Files"
wait(1)

'26 is the default length of existing file name, change it
Dialog("File Download").Dialog("Save As").WinEdit("File name:").SetSelection 0,26
wait(1)
tempYear = Year(Date)
tempMonth = Month(Date)
tempDay = Day(Date)
tempHour = Hour(time)
tempMinute = Minute(time)
finalstr = tempYear&tempMonth&tempDay&tempHour&tempMinute&".rar"
print finalstr
Dialog("File Download").Dialog("Save As").WinEdit("File name:").Set tempYear&tempMonth&tempDay&tempHour&tempMinute&".rar"
wait(1)
Dialog("File Download").Dialog("Save As").WinButton("Save").Click
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2008-9-2 15:08:36 | 只看该作者
有人会吗~~???
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-8-25 12:07:23 | 只看该作者
这个我的blog中有,你可以参考下
http://www.51testing.com/?161787 ... e_itemid_88686.html
回复 支持 反对

使用道具 举报

该用户从未签到

2#
发表于 2008-8-25 11:10:23 | 只看该作者
hard for me
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-22 20:43 , Processed in 0.071969 second(s), 26 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表