backhome 发表于 2010-5-6 11:05:21

QTP网页上传图片

QTP网页上传图片怎么实现自动化啊

wolaizhinidexin 发表于 2010-5-8 13:13:21

'这是完整的录制过程代码

SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","","C:\Documents and Settings\wqssdd","open"
Browser("BYD WebOffice").Page("BYD WebOffice").Sync
Browser("BYD WebOffice").Navigate "http://localhost:12972/上传图片的显示/Default.aspx"
Browser("BYD WebOffice").Page("无标题页").WebFile("FileUpload1").Click'添加此句脚本
'Browser("BYD WebOffice").Page("无标题页").WebFile("FileUpload1").Set "D:\1_baoshd.jpg"'这句把它注释掉

'在这里重新录制第二次脚本,只录制选择文件的过程,即先打开选择框后再录制

Browser("BYD WebOffice").Dialog("选择文件").Activate '激活选择框
Browser("BYD WebOffice").Dialog("选择文件").WinListView("SysListView32").Select "1_baoshd.jpg"'选择文件
Browser("BYD WebOffice").Dialog("选择文件").WinButton("打开(O)").Click'将此文件内容代码给fileupload1

Browser("BYD WebOffice").Page("无标题页").WebButton("上传相片").Click

msgbox "上传成功!"

cnsong99 发表于 2010-5-10 09:18:45

这样写也不是很好,不能 适应所有的上传。你应该考虑下做个公用的函数
页: [1]
查看完整版本: QTP网页上传图片