vbscript - VB脚本集语句

Question

我需要以下代码的帮助:

Dim IE 
Dim UserName

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.nextview.com/index.php?country=my"
Do Until IE.ReadyState <> 3
Loop

Set UserName = IE.Document.getElementById("username")     <----- ERROR
IE.Document.all.UserName.Value = "TESTING"
Set Login = IE.Document.getElementById("frmlogin")
Login.submit
Do Until IE.ReadyState <> 3
Loop

创建代码是为了帮助我输入用户名。但是在上面显示的位置有错误。

任何想法如何解决这个问题？

Answer 1

我认为您等待的Do..Loop不正确。

'Syntax notes:
Do Until [expression return False]
Do While [expression return True]

'So, you can use one of the next:
Do Until IE.readyState = 4
    Wscript.Sleep 100
Loop

Do While IE.readyState <> 4
    Wscript.Sleep 100
Loop