上传图片脚本

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"

' Set WinEditDesc_collect=DialogDesc_collect(0).ChildObjects(WinEditDesc)
' MsgBox WinEditDesc_collect.count

Dialog(DialogDesc_collect).WinEdit(WinEditDesc).set imagePath
' DialogDesc_collect(0).WinEdit(WinEditDesc).set "C:\1.TXT"
Set WinButtonDesc=description.create()
WinButtonDesc("micclass").value="WinButton"
' WinButtonDesc("regexpwndtitle").value="打开(&O)"
Set WinButtonDesc_collect=DialogDesc_collect(0).ChildObjects(WinButtonDesc)
' MsgBox WinButtonDesc_collect.count
WinButtonDesc_collect(0).click
wait(1)
Set WebButtonDesc=description.create()
WebButtonDesc("micclass").value="WebButton"
Set WebButtonDesc_collect=Browser(BrowserDesc).Page(PageDesc).ChildObjects(WebButtonDesc)
' MsgBox WebButtonDesc_collect.count

WebButtonDesc_collect(1).click


End Function