使用脚本实现图片上传操作

Function uploadImage(buttonName,imagePath)

Set BrowserDesc=description.create()0125986800(Ã÷ϸ)
Set PageDesc=description.create()

Set WebButtonDesc_SCZT=description.create()
WebButtonDesc_SCZT("name").value=buttonName
Browser(BrowserDesc).Page(PageDesc).WebButton(WebButtonDesc_SCZT).click

Set FrameDesc=description.create()
FrameDesc("name").value="_DialogFrame_z-dialog-2"

Dim wshShell
Set wshShell =CreateObject("Wscript.Shell")
wait(3)
wshShell.SendKeys "{TAB}"
' wait(3)
wshShell.SendKeys" "
wait(3)
Set DialogDesc=description.create()
DialogDesc("micclass").value="Dialog"
' Set DialogDesc_collect=Browser(BrowserDesc).ChildObjects(DialogDesc)
' MsgBox DialogDesc_collect.count

' Set DialogDesc_collect=desktop.ChildObjects(DialogDesc)
' MsgBox DialogDesc_collect.count
' MsgBox DialogDesc_collect(0).GetROProperty("text")

Set WinEditDesc=description.create()
WinEditDesc("micclass").value="WinEdit"