51Testing软件测试论坛

标题: 请高手帮忙！！！ [打印本页]

作者: kitomitt 时间: 2008-8-25 11:09
标题: 请高手帮忙！！！
请高手帮忙写个VBS的代码,就是下载WEB上的文件,比如http://www.tdt.com/1.rar

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

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

1912表示19点12分

作者: lingxin5013 时间: 2008-8-25 11:10
hard for me

作者: zte_boy 时间: 2008-8-25 12:07
这个我的blog中有，你可以参考下
http://www.51testing.com/?161787 ... e_itemid_88686.html

作者: kitomitt 时间: 2008-9-2 15:08
有人会吗~~？？？

作者: fengmingbao 时间: 2008-9-2 16:33
标题: 回复 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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)