使用VBscript将值输入到html中的测试框

Question

我试图使用VBscript在html中的文本框中输入/设置值，以自动化测试过程中的一小步。

我使用下面的VBscript实现相同

Dim objIE
Set objIE = WScript.CreateObject ("InternetExplorer.Application")
Set objShellApp = CreateObject("Shell.Application")
objIE.Width = 700
objIE.Height = 250
objIE.Toolbar = false
objIE.statusbar = false
objIE.Navigate "http://MYURL"
objIE.Visible = true
Set objIE = Nothing 'Set nothing to the object due to trusted policies in IE
For Each objWindow In objShellApp.Windows
If LCase(objWindow.LocationName) = LCase("MSec Test Application 5.9.22") Then
  Set objIE = objWindow
End If
Next
objIE.Document.getElementsByName("whoId").Items(0).value =    "CN45234"                                   'This step not working
objIE.Quit

我尝试设置值的文本框元素具有如下所示的属性[我使用firebug进行了处理]

<td class="fr"> whoId</td>
<td>
<input class="fr" value="" name="whoId">
</td>

在执行上面的VBscript时，它会以以下错误消息结束：

我花了很多时间来找到解决这个问题的方法，但是没有运气。 请帮助我修复它。

谢谢，Madhan

Answer 1

遵循错误消息并松开.Items：

objIE.Document.getElementsByName("whoId")(0).value =    "CN45234"  

（并测试您的假设（找到有效的窗口，GetElementsByName（）的非空返回））