vbs自动化提交工作项OA

主要在于VBS如何处理Frame中包含的HTML对象，VBS如何处理包含AJAX传值的对象。

VBS读取Frame中包含的HTML页面对象，网上有很多人遇到过此类问题，但是没看到有好的解决方案，这里我给出：

frame.contentWindow.Document。

而AJAX存在读取数据延时的问题，这里我们需要给出个时间范围，保证我们能很好的读取数据。读取成功之后的操作，基本上是和其他对象是一致的。

Select控件的选择，存在AJAX联动的情况最好还是用WshScript.SendKeys "{Down}" ("{Up}")来模拟键盘选择一下，否则父联动会获取不到事件，无法调用AJAX。而AJAX的下拉列也无法保证是真实的选择，从而导致提交会认为AJAX下拉列没有选择值。

 

源代码：

 

'***************************************************************************** Dim Username Dim Password Dim ProjectName '项目名称(索引值) Dim TaskContent '任务内容(索引值) Dim Activity '活动(索引值) Dim RealTime '实际工时(文本值) Dim Note '备注(文本值) Dim IsAutoClose '是否操作成功自动关闭窗口 Username = "tony.deng" Password = "xxxxxx" ProjectName = 1 TaskContent = 4 Activity = 3 RealTime = 7 Note = "引擎开发" IsAutoClose = True '***************************************************************************** on error resume Next Set ie=WScript.CreateObject("InternetExplorer.Application") set WshShell = WScript.CreateObject("WScript.Shell") 'set sh = CreateObject("Shell.Application") ie.visible=true ie.navigate "http://oa.xx.cn/" '取得IE的URL的标题 'for each wnd in sh.windows ' if InStr(1, wnd.LocationURL, "http", 1) = 7 then ' MsgBox wnd.document.title ' End if 'Next Load() '判断是否首页 if ie.document.title = "Powered By Clochase" Then Login() Else SetLanguage(GetFrameContent("topFrame")) End If Load() InputTimeTrack() ' '加载IE ' Function Load() While ie.Busy Or ie.ReadyState <> 4 Wscript.Sleep 1000 Wend WshShell.Appactivate ie End Function ' '登陆 ' Function Login() SetLanguage(ie.Document) ie.Document.getElementById("txtUsername").value = Username ie.Document.getElementById("txtPassword").value = Password Set cbRemembe = ie.Document.getElementById("cbRemembe") If Not cbRemembe.checked Then cbRemembe.checked = true End If ie.Document.getElementById("btnSubmit").click End Function ' '设置语言 ' Function SetLanguage(objDocument) Set lnkLanguage = objDocument.getElementById("lnkLanguage") If lnkLanguage.innerText <> "English" Then lnkLanguage.click End If End Function ' '输入工作项 ' Function InputTimeTrack() '取得框架包含页面HTML对象 set menuDocument = GetFrameContent("leftFrame") '取得节点信息 模拟菜单点击效果 'Set menuTitle900000 = menuDocument.all.namedItem("menuTitle900000") Set menuTitle900000 = menuDocument.getElementById("menuTitle900000") menuTitle900000.click ClickA(menuDocument.getElementById("menuitem900600")) '点击"工作项录入"链接 Load()'等待页面加载完成 SubmitTimeTrack()'自动填充并提交工作项内容 If IsAutoClose = True Then ie.quit() Else ClickA(menuDocument.getElementById("menuitem901200"))'点击"查看工作项内容"链接 End If End Function ' '工作项提交 ' Function SubmitTimeTrack() Set MainDocument = GetFrameContent("Main") MainDocument.getElementById("ctl00_content_dropProjectName").focus() '触发事件 'MainDocument.getElementById("ctl00_content_dropProjectName").fireEvent("onchange") '选择父列表 'MainDocument.getElementById("ctl00_content_dropProjectName").options(0).click() MainDocument.getElementById("ctl00_content_dropProjectName").options(ProjectName-1).selected = True 'WshShell.SendKeys "{Enter}" WshShell.SendKeys "{Down}" '下拉方式需要模拟按键 '选择AJAX取到的值列表 Set content = MainDocument.getElementById("ctl00_content_dropTaskContent") If content.length <= 1 then Dim i i = 1 Do While content.length <= 1 If i > 5 Then Exit Do '超过5秒即不取数据 '设置延迟 保证AJAX取到值 Wscript.sleep i*100 i = i + 1 Loop End If content.focus() If content.length > 1 Then content.options(TaskContent-1).selected = True WshShell.SendKeys "{Down}" '下拉方式需要模拟按键 MainDocument.getElementById("ctl00_content_dropActivity").options(Activity).selected = true MainDocument.getElementById("ctl00_content_txtRealTime").value = RealTime MainDocument.getElementById("ctl00_content_txtNote").value = Note Set BtnSubmit = MainDocument.getElementById("ctl00_content_BtnSubmit") BtnSubmit.click Wscript.sleep 1000 WshShell.SendKeys "{Enter}" '模拟点击"提交成功"提示框 End Function Function ClickA(menuitem) '排查其他节点 包括空值节点 For Each node In menuitem.childNodes If node.nodeName = "A" Then node.click '打开连接 End if Next End Function Function GetFrameContent(frameName) ' MsgBox ie.document.all.namedItem("leftFrame").Document.body.innerHTML '只会取得frame框架页面的节点信息 '取得所有的frame框架的信息 'for each frame in ie.Document.getElementsByTagName("FRAME") 'msgbox frame.name 'Next '取得Frame框架对象 set frame = ie.document.all.namedItem(frameName) '注意：contentWindow取得frame框架的HTML内容 ' MsgBox ie.document.all.namedItem("leftFrame").contentWindow.Document.documentElement.innerHTML Set GetFrameContent = frame.contentWindow.Document '使用set取得对象引用 End function set ie = nothing WScript.QUIT(0)