自动填写表单IE VBScripting

时间:2018-05-21 05:27:02

标签: vbscript

晚上好,所有,我有问题。我有一个html页面,我正在测试自动化,简而言之,我试图用VB自动填充字段,页面有一个字段带有提交按钮。

这是名称字段代码

<input ng-reflect-id="firstName" id="firstName" ng-reflect-type="text" type="text" ng-reflect-placeholder="Legal Name" placeholder="name" class="ng-pristine ng-valid ng-touched">

这是提交按钮代码

<button ng-reflect-type="submit" type="submit" ng-reflect-id="next_btn" id="next_btn" ng-reflect-class-name="btn mobile-primary margin-bottom-15" class="btn mobile-primary margin-bottom-15">
          Register
        </button>

这是我的Vb代码..

    On Error Resume Next
Const PAGE_LOADED = 4
Set objIE = CreateObject("InternetExplorer.Application")
Call objIE.Navigate("my page URL")
objIE.Visible = True
Do Until objIE.ReadyState = PAGE_LOADED : Call WScript.Sleep(100) : Loop


objIE.Document.all.Item("firstName").Value = "Test"

call objIE.Document.all.Item("next_btn").click
Set objIE = Nothing

有人可以告诉我为什么这段代码不起作用?

0 个答案:

没有答案