Webbrowser 在没有ID和NAME 请问如何赋值

在没有ID和NAME 请问如何赋值 自己测试了很多次遍历 但是还是赋值不了，   最好有源码 谢谢了    网页登录源码如下：


<div class="login-default">
                        <div class="from-input-block" style="z-index:8">
                            <div class="input-text user">
                                <input class="text" type="text" value="請輸入手機號/用戶名">
                                <input data-input="user-id" class="box" type="text" maxlength="20" value="">
                            </div>
                            <div class="input-tips">
                                <div class="tips-block">
                                    <i class="tips-tri"></i>
                                    <i class="tips-warn"></i>
                                    <span class="tips-text">帳號或密碼錯誤，請重新輸入</span>
                                </div>
                            </div>
                        </div>
                        <div class="from-input-block" style="z-index:7">
                            <div class="input-text password">
                                <input class="text" type="text" value="請輸入密碼">
                                <input data-input="user-pwd" class="box" type="password" maxlength="20" value="">
                            </div>

没有ID和NAME那只能遍历了找出下标再赋值了
var
  i: Integer;
  ole: oleVariant;
begin
  ole := wb1.OleObject.document.all;
  for i := 0 to ole.length - 1 do
  begin
    if ole.item(i).tagName = 'INPUT' then // INPUT一定要大写
    begin
      ole.item(i).value := IntToStr(i);
    end;
  end;
end;

一个问题要注意，input在div里面的时候，需要递归遍历一下div。否则找不到div里面的input。

你这种设计感觉有问题，为什么小蜜蜂论坛发帖机不加上ID或name标签？

网页内容多的情况下vbscript脚本会占cpu的。