Internet Explorer自动化表单帖子

时间:2012-07-11 04:18:26

标签: internet-explorer vbscript automation

我正在尝试使用vbscript加载页面。然后我在其输入字段中输入一些虚拟值并尝试提交它。

以下是代码:

    Dim ie
Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.navigate("http://somepage.com")

ie.width = 900
ie.height = 600
ie.Visible = 1

WScript.sleep(5000)

'Home page of user is loaded.
'Now find the field containing mobile number and type message




    Dim nameField, messageField
    set nameField = ie.document.getElementById("MobileNos")'this line throws error
    nameField.value = "somebody"

    messageField = ie.document.getElementById("Message")
    messageField.value = "Hi"

    'Sending the message
    ie.document.frmpostcomment.submit()

但每当我尝试运行此代码时,都不会发布评论,而只是刷新页面。

提前致谢。

1 个答案:

答案 0 :(得分:0)

在表格的帖子中我应该写

ie.document.frmpostcomment.submitbtn.click

这对我有用。