VB Script Set Заявление

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