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