请高手帮忙！！！

kitomitt

请高手帮忙写个VBS的代码,就是下载WEB上的文件,比如http://www.tdt.com/1.rar

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

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

1912表示19点12分

lingxin5013

hard for me

zte_boy

这个我的blog中有，你可以参考下
http://www.51testing.com/?161787 ... e_itemid_88686.html

kitomitt

有人会吗~~？？？

fengmingbao

做点必要的修改,

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